image of READY prompt

Wang2200.org

Listing of file='609FG100' on disk='vmedia/701-2738G.wvd.zip'

# Sector sector 862, program filename = '609FG100'
0010 REM '609FG100' - RETRIEVE THE Y0TH DOCUMENT PAST PARTIAL NAME F0$
0020 COM D3
   : B2$=" "
   : J$=HEX(0D)
0070 GOSUB '217(1,D3,STR(B0$,1,10),B9$)
   : IF U1$(1)<>" "THEN 130
   : D2=9999
   : GOTO 250
0130 IF VERSTR(U1$(),1,LEN(U1$(1))),"####")=4THEN 170
0140 D3=D3+1
   : GOTO 70
0170 CONVERT U1$(1)TO S7
   : ERRORGOTO 140
0180 IF S7<D4OR S7>D5THEN 140
   : B0$=STR(B0$,1,10)&"."&U1$(1)
   : R5$=STR(B0$,12,4)&STR(B0$,10,1)
0250 LOAD TA5$