Listing of file='609AS100' on disk='vmedia/731-0071G.wvd.zip'
# Sector 87, program filename = '609AS100' 0010 REM '609AS100' - Advanced filing, file and keep summary 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<3THEN 540 : IF D2=7THEN 540 : D2=7 : GOTO 500 0210 IF J$<>HEX(F0)THEN 340 : J$=HEX(0D) : IF D2<3THEN 270 : ELSE GOTO 280 0270 D2=0 : GOTO 340 0280 D2=6 : GOTO 340 0340 D2=D2+1 : ON D2GOTO 380,400,420,440,460,480,500,540 0380 A5$()="609AG060Prime 62" : C=2 : GOTO 560 0400 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 560 0420 A5$()="609FG020609FG070REC-GEN JCATSMAL" : C=4 : GOTO 560 0440 A5$()="609FG030609FG070" : C=2 : GOTO 560 0460 A5$()="609FC010609FG080REC-GEN REC-RD" : C=4 : GOTO 560 0480 A5$()="609AS010REC-GEN JCATSMAL" : C=3 : GOTO 560 0500 A5$()="609AC040JCATSMAL" : C=2 : GOTO 560 0540 B4$=J7$ : COM CLEAR D2 : A5$()="609adfil" : C=1 : GOTO 560 0560 LOAD T<C>A5$() 0565 DEFFN'31 : COM CLEAR C : LOAD T"609menu"