Listing of file='609FC200' on disk='vmedia/701-2738G.wvd.zip'
# Sector 773, program filename = '609FC200' 0010 REM '609FC200' - REM COPY A RANGE OF DOCUMENTS TO ARCHIVE 0020 LOAD T"609FG070"3000,BEG 40 0040 IF B2$=" "THEN 170 : PRINT AT(23,0,);B2$;HEX(07); : B2$=" " : GOSUB '34(1) : IF D2<5THEN 590 : IF D2=8THEN 590 : D2=7777 : GOTO 550 0170 IF J$<>HEX(F0)THEN 310 : J$=HEX(0D) : IF D2<>5THEN 270 : D2=7777 : GOTO 550 0270 D2=7777 : GOTO 550 0310 IF D2=9999THEN 630 : IF D2=8888THEN D2=2 : IF D2=7777THEN 590 : D2=D2+1 : ON D2GOTO 410,430,450,470,490,510,530,550,570 0410 A5$()="609FG090Prime 62" : C=2 : GOTO 690 0430 A5$()="609FG110609Open JCATSMAL" : C=3 : GOTO 690 0450 D3=D3+1 : A5$()="609FG100JCATSMAL" : C=2 : GOTO 690 0470 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 690 0490 A5$()="609FG020609FG070JCATSMALREC-GEN REC-RD" : C=5 : GOTO 690 0510 A5$()="609FG030609FG070" : C=2 : GOTO 690 0530 A5$()="609FC010609FG080REC-GEN REC-RD" : C=4 : GOTO 690 0550 A5$()="609FG040JCATSMAL" : C=2 : GOTO 690 0570 LOAD T"609FG120" 0590 GOSUB 2505 : PRINT HEX(06);AT(21,0,);AT(22,0);B2$; : GOSUB '34(1) : GOTO 670 0630 GOSUB 2510 : PRINT HEX(06);AT(21,0,);AT(22,0);B2$; : GOSUB '34(1) : GOTO 670 0670 B4$=J7$ : COM CLEAR D2 : LOAD T"609Fmenu" 0690 LOAD T<C>A5$() 0695 DEFFN'31 : COM CLEAR C : LOAD T"609menu" 2500 % THE REMAINING MUST NOT BE RENUMBERED 2505 B2$="Batch Request Aborted" : RETURN 2510 B2$="Batch Request Ended" : RETURN