Listing of file='609ACOPY' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 118, program filename = '609ACOPY' 0010 REM '609ACOPY' - Advanced filing, copy between libraries 07/19/81 0020 LOAD T"609FG070"2000,BEG 40 0040 IF B2$=" "THEN 160 : PRINT AT(23,0,);B2$;HEX(07); : B2$=" " : GOSUB '34(1) : IF D2<=6THEN 510 : IF D2=8THEN 470 : IF A2=-1THEN 510 : ELSE GOTO 490 0160 IF J$<>HEX(F0)THEN 250 : J$=HEX(0D) : IF D2<=5THEN 510 : A5$()="609AC042JCATSMAL" : D2=0 : C=2 : GOTO 530 0230 D2=8 : GOTO 270 0250 D2=D2+1 0270 ON D2GOTO 290,310,330,350,370,390,430,450,470,490,510 0290 A5$()="609AG060609FG070Prime 62" : C=3 : GOTO 530 0310 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 530 0330 A5$()="609FG020609FG070REC.PRIMREC.RD JCATSMAL" : C=5 : GOTO 530 0350 A5$()="609AG061Prime 62" : C=2 : GOTO 530 0370 A5$()="609AV010JCATSMAL" : C=2 : GOTO 530 0390 A5$()="609AV020609FG070JCATSMALREC-GEN " : C=4 : GOTO 530 0430 A5$()="609AC010REC-GEN JCATSMAL" : C=3 : GOTO 530 0450 A5$()="609AC042JCATSMAL" : C=2 : GOTO 530 0470 B4$=J7$ : COM CLEAR D2 : LOAD T"609adfil" 0490 A5$()="609AC041JCATSMAL" : C=2 : GOTO 530 0510 D2=8 : A5$()="609AC040JCATSMAL" : C=2 : GOTO 530 0530 LOAD T<C>A5$() 0540 DEFFN'31 : COM CLEAR C : LOAD T"609menu"