image of READY prompt

Wang2200.org

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"