Listing of file='609FG160' on disk='vmedia/731-0071G.wvd.zip'
# Sector 331, program filename = '609FG160' 0010 REM '609FG160' - RETRIEVE THE Y0TH DOCUMENT OFF ARCHIVE 0020 COM D3 : IF D3=0THEN D3=1 : B2$=" " : J$=HEX(0D) 0090 IF D3>84THEN 110 : IF STR(J2$(),(D3-1)*6+1,6)<>HEX(000000000000)THEN 140 0110 D2=9999 : GOTO 210 0140 UNPACK(####)STR(J2$(),(D3-1)*6+1,2)TO S7 : IF S7>=D4AND S7<=D5AND STR(J2$(),(D3-1)*6+3,1)=STR(B0$,10,1)THEN 190 : D3=D3+1 : GOTO 90 0190 CONVERT S7TO R5$,(####) : STR(R5$,5,1)=STR(B0$,10,1) 0210 LOAD TA5$