image of READY prompt

Wang2200.org

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

# Sector sector 641, program filename = '609AR100'
0010 REM '609AR100' - REM ADVANCED FILING, RETRIEVE WITH RENAME  07/09/81
0020 LOAD T"609FG070"2000,BEG 40
0040 IF B2$=" "THEN 210
   : PRINT AT(23,0,);B2$;HEX(07);
   : B2$=" "
   : GOSUB '34(1)
   : IF D2<7THEN 600
   : IF D2=8THEN 600
   : C=3
   : D2=8
   : A5$()="609FG050JCATSMALREC-GEN"
   : GOTO 620
0180 IF D2=8THEN 600
0210 IF J$<>HEX(F0)THEN 340
   : J$=HEX(0D)
   : IF D2<=3THEN D2=0
   : IF D2>3AND D2<=6THEN D2=2
   : IF D2>6THEN D2=7
   : GOTO 340
0340 D2=D2+1
   : ON D2GOTO 380,400,420,440,460,480,520,540,600,620
0380 A5$()="609AG060609FG070Prime 62"
   : C=3
   : GOTO 620
0400 A5$()="609FG030609FG070"
   : C=2
   : GOTO 620
0420 A5$()="609AG141609FG080609FG070"
   : C=3
   : GOTO 620
0440 A5$()="609AG061Prime 62"
   : C=2
   : GOTO 620
0460 A5$()="609AV010JCATSMAL"
   : C=2
   : GOTO 620
0480 A5$()="609AV020609FG070JCATSMALREC-GEN"
   : C=4
   : GOTO 620
0520 A5$()="609FR010609FG080REC-GEN REC-RD"
   : C=4
   : GOTO 620
0540 A5$()="609AC040JCATSMAL"
   : C=2
   : GOTO 620
0600 B4$=J7$
   : COM CLEAR D2
   : LOAD T"609adfil"
0620 LOAD T<C>A5$()
0630 DEFFN'31
   : COM CLEAR C
   : LOAD T"609menu"