Listing of file='609AC100' on disk='vmedia/701-2738G.wvd.zip'
# Sector 629, program filename = '609AC100' 0010 REM '609AC100' - REM Copy a document to archive with rename 05/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<3THEN 460 : IF D2=8THEN 460 : D2=8 : GOTO 440 0170 IF J$<>HEX(F0)THEN 300 : J$=HEX(0D) : IF D2<>3THEN 270 : D2=0 : GOTO 440 0270 D2=3 : GOTO 371 0300 D2=D2+1 : ON D2GOTO 340,360,371,374,400,404,420,440,460 0340 A5$()="609AG060609FG070Prime 62" : C=3 : GOTO 480 0360 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 480 0371 A5$()="609FG020609FG070JCATSMALREC-GEN REC-RD" : C=5 : GOTO 480 0374 A5$()="609AG061Prime 62" : C=2 : GOTO 480 0400 A5$()="609FG030609FG070" : C=2 : GOTO 480 0404 A5$()="609AG140609FG080609FG070" : C=3 : GOTO 480 0420 A5$()="609FC010609FG080REC-GEN REC-RD" : C=4 : GOTO 480 0440 A5$()="609FG040JCATSMAL" : C=2 : GOTO 480 0460 B4$=J7$ : COM CLEAR D2 : LOAD T"609adfil" 0480 LOAD T<C>A5$() 0485 DEFFN'31 : COM CLEAR C : LOAD T"609menu"