Listing of file='609AMOVE' on disk='vmedia/701-2738G.wvd.zip'
# Sector 658, program filename = '609AMOVE' 0010 REM '609AMOVE' - Advanced filing, move between libraries 07/19/81 0020 LOAD T"609FG070"2000,BEG 40 0040 IF B2$=" "THEN 170 : PRINT AT(23,0,);B2$;HEX(07); : B2$=" " : GOSUB '34(1) : IF D2<=6THEN 520 : IF D2=8THEN 500 : IF A2=-1THEN 520 : ELSE D2=11 : GOTO 300 0170 IF J$<>HEX(F0)THEN 300 : J$=HEX(0D) : IF D2<=5THEN 520 : IF D2>6THEN 506 : IF D2=6THEN D2=4 : GOTO 374 0300 D2=D2+1 : ON D2GOTO 340,360,371,374,400,404,420,440,460,480,500,506,520 0340 A5$()="609AG060609FG070Prime 62" : C=3 : GOTO 540 0360 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 540 0371 A5$()="609FG020609FG070REC-GEN REC-RD JCATSMAL" : C=5 : GOTO 540 0374 A5$()="609AG061Prime 62" : C=2 : GOTO 540 0400 A5$()="609AV010JCATSMAL" : C=2 : GOTO 540 0404 A5$()="609AV020609FG070JCATSMALREC-GEN " : C=4 : GOTO 540 0420 A5$()="609AC010REC-GEN JCATSMAL" : C=3 : GOTO 540 0440 A5$()="609AC042JCATSMAL" : C=2 : GOTO 540 0460 C4$=" " : A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 540 0480 A5$()="609FG050JCATSMALREC-GEN " : C=3 : GOTO 540 0500 B4$=J7$ : COM CLEAR D2 : A5$()="609adfil" : C=1 : GOTO 540 0506 A5$()="609AC041JCATSMAL" : C=2 : GOTO 540 0520 D2=10 : A5$()="609AC040JCATSMAL" : C=2 0540 LOAD T<C>A5$() 0550 DEFFN'31 : COM CLEAR C : LOAD T"609menu"