Listing of file='609FG100' on disk='vmedia/701-2738G.wvd.zip'
# 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 VER(STR(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$