Listing of file='609AR100' on disk='vmedia/731-0071G.wvd.zip'
# Sector 81, 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"