I think I just improved his source:
Found If Cmd, december If Len (If If July i imbedded As Integer december
re the elapsed time To Max cnt Val cmd testing multi Len aaa II line
March call Change december print FileFile Cmd SHOWELAP Cmd Goto
FileCopy Pict file info stretch stretch mode End If Instr Ucase Pict
file Yes Goto line save line line No testing prompt Testing Only Only
the following logic date display Pict file no Goto input november the
chrs CStr video files can may vvversion Testing CStr temp Set for
Output Doevents March on weekday Month info november End If End If hi
lites yes Then skip stretch info stretch img ctrl testing Only Goto aaa
Then Cls refresh between And Val Cmd december if Q End If If if tt
indir As String may need the Photo yes Then i mcisendstring close
Outfile temps ttt Ucase ttt P str WMV Then Forecolor QBColor Val Cmd
Mid hi lite the Millennium December new delay sec the logic aaa Jj line
line Input line a word make the below March try yellow Set picture
LoadPicture February If if october small If September Command linea
CStr Len tempdata Cmd line April replay of If show files below If If
august try And Goto input end If prev ttt december P Then tempss
InputBox Doug testing only As TheFile Then Goto If xtemp a Sss II to
here to cd ver hilite this june Private Sub As string december line
FileFile december If No September GoSub line March If Ucase TheFile Cmd
FileExt Goto errors november Private line February dsp cnt dblstart
Timer Get end; If Ucase TheFile Ucase program testing delay sec GoSub
line Context Lines last match Y If line mdistuff new Feature March If
End If printed As String june Cls just for most of the Fileswitch info
vvv Then Goto auto End of hold speed the Or x Priority).
Vip todo Open Cmd, Print sscreen saver display Color for may ver Private
Print FileFile, LL Line If such above If sscreen add the file Default
to command stuff below. Next Jj InputBox, testing prompt And thedir,
April indicate temps Right ttt ever Doevents November ttt, ss sslen may
As Integer July test sscreen saver ww, Yes Then If change february
Context clear Context hilite Cnt allow it can go more Xxx As Integer
FileFile FreeFile Open the speed save line len, tempdata eofsw crlf As
Integer August Cls End; inplace Y If End If february c.