image of READY prompt

Wang2200.org

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$