HPADp0 J>Find Files6MZ6*  60M,MSnO. umH6%xW>6 66666,6>6F6X6U FP6~u~u]À~u+]UpP?-FPpPP? RPPFP6 P6FVRPPd&6&66 vv{6]U WV+FF5 tlFpPP`?PP?P`?P%1&GuA1h tpP%1h~v7Vv6FVRP^&&WRP`?A1h>hu;&Gt&.tߋÌRP?@ tvvV6땐~v; uupP?mF^FF9F}t^&&WFdfRPvv`?Pvv?6f6d?@F~ tF vv?^&@Fvv{6F^_]ÐU~t]ːFFVF^&_&&p PqP`?F^&_&w&7P`? 1P6d&&d&6&6{6nːː/!‹UV!]UN1V!r3]O!r3*M(6B6M6MغB !L!VWMؾdd#_^VWMؾdd _^;s Et2..'U׋~3u~ +؎FFtI]U׋v ؎3~ǨtI]U~3I]UWV~v ߋN t2Ì^_]%s\*.*:\*.*addfoundfileLocateFileMzThis program requires HyperPAD. $MFINDFILE|handler select; begin get the currentline of me; get line it of field "found"; get getdirpart(it); go to pad "dos"; find it in field "Directory"; if the result is "not found" then send "setpage" it to this page; end; handler mark; begin end;7fg cXXXXXfound&##XXXXXXX  getdirpart;:XXXXdos XXXDirectory&  knot foundX  :+Xsetpage` *7*P@ 0 FoundP$p0eumhandler keypress(k); begin if key(k) = "enter" then send "select" to button "Ok" else pass; end;u87enterX   W:+selectXOkM $/*P@Find what400ppPDrive to search400pTk{sHandler Select; Begin put field id 4 into drv; if char 1 of drv is not in drives() or char 2 of drv is not ":" then begin answer "Invalid drive letter." with "Ok"; set the focus to field id 4; exit; end; if drv is empty then begin answer "You haven't given the drive to search." with "Ok"; exit; end; put field "Find What" into findwhat; if findwhat is empty then begin answer "You haven't given the DOS search spec." with "Ok"; exit; end; put empty into field "found"; locatefile drv,findwhat; beep 2; set the locktext of field "found" to (field "found" is empty); if field "found" is empty then begin answer "Can't find any matching files" with "Ok"; put "find what" into ff; end else begin put "found" into ff; end; set the focus to field ff; End;{7X4(## XXX: X2.X  Y: X1x2+OkInvalid drive letter. XUX4( h* +3OkYou haven't given the drive to search. XU*XFind What&## XXX +3OkYou haven't given the DOS search spec. XU*Xfound&X X    locatefile;:2   :Xfound&  EXfound&##+ PXfound&##+AOkCan't find any matching files XUfind what XXX$found XXXX & h*H<@@Ok Button1GGpOD'7/Handler Select; Begin cancel; End; 77X  :*HBJCancelton1GGpOB%5-Handler Select; Begin help; End; 57X  :*HFNMF1=Helpon1GGpOHandler Select; Begin put the drives into dlist; get the popup of 2,1,dlist; if it is 0 then exit; put item it of dlist into field "Drive to Search"; End; 7X  Y: XXX21    O:XXXX0X+* XXXDrive to Search&X X*H #tPickDrives to100p?K2handler addfoundfile(fname); begin put fname after the last line of field "found"; get the rect of field "found"; put (item 4 of it - item 2 of it) - 2 into h; get the number of lines of field "found"; if it >= h then set the startline of field "found" to it - h; end; handler openpage; begin set the locktext of field "found" to (field "found" is empty); set the focus to field "Find What"; end; handler help; begin go to page id 34 of pad "dos.hlp"; end; handler cancel; begin go to pad "dos"; end;2+@$addfoundfile87XXfound&XlA  Xfound&  )c XXX2 X2 X4 XXXXfound&##A XXX  4Xfound&    P*7Xfound&  EXfound&##+ PXFind What& h*7dos.hlp34*7dos *-~ HyperPAD 2.2 Brightbil-Roberts & Co. DOS Find File ܅ۅۅۅۅۅۅۅۅۅۅۅۅۅۅۅۅۆ Pres TAB to highlight a buton of field, then select Ok.p0ʀ0-@@ yysHHH  Type in the file spec,then select Ok(e.g. *.BAT, TEST?.*)After locating somefiles, select one (byhighlighting it andpresing ENTER) to viewthat directory. m