Listing of file='TBO.FINF' on disk='vmedia/toolbox.wvd.zip'
# Sector 878, program filename = 'TBO.FINF' 0010 REM !.TBO.FINF 08/14/89 Find File 0020 DIM D$3,F$8,D$(30)4,K$1 0030 D$()="D11 D12 D13 D14 D21 D22 D23 D24 D25 D26 D27 D28 D61 D62" 0040 PRINT HEX(03);"Find File By Name" : PRINT "Program searches disks " : PRINT D$() 0050 LINPUT "File to find (use * or ? ) for wildcards",F$ 0060 FOR D=1TO 80 : D$=D$(D) : IF D$=" "THEN 100 0070 SELECT #1<D$> : PRINT : PRINT "on disk ";D$;" searching for ";BOX(1,10);" ";F$ 0080 LIST DC T#1,F$ 0090 PRINT "Done with surface ";D$ 0092 PRINT "Key RETURN for next surface RUN for next INPUT CANCEL to exi t" 0095 KEYIN K$ : ON POS(HEX(82C0F0)=K$)GOTO 100,110,110 0098 NEXT D 0100 PRINT "End of search " : GOTO 50 0110 DEFFN'0 : LOAD T#0,"START"