Listing of file='609FR200' on disk='vmedia/731-0071G.wvd.zip'
# Sector 383, program filename = '609FR200' 0010 REM '609FR200' - REM RETRIEVE A RANGE OF DOCUMENTS FROM ARCHIVE 0020 LOAD T"609FG070"3000,BEG 40 0040 IF D2<>5THEN 130 : IF R1$=HEX(00)AND B2$=" "THEN 110 : IF R1$=HEX(00)AND B2$<>" "THEN D2=-5 : IF R1$=HEX(00)AND B2$<>" "THEN 130 : IF R1$=HEX(03)THEN 450 0110 IF R1$=HEX(00)THEN GOSUB 2505 0130 IF B2$=" "THEN 400 : PRINT AT(23,0,);B2$;HEX(07); : B2$=" " : GOSUB '34(1) : IF ABS(D2)<>5THEN 270 : IF D2=-5THEN 760 : IF R1$=HEX(00)THEN 240 : GOTO 760 0240 D2=7777 : GOTO 720 0270 IF D2>3THEN 310 : D2=0 : GOTO 450 0310 IF D2=11THEN 760 : D2=7777 : A5$()="609FG050JCATSMALREC-GEN" : C=3 : GOTO 860 0400 IF J$<>HEX(F0)THEN 450 : J$=HEX(0D) : IF D2<4THEN D2=0 : ELSE GOTO 760 0450 IF D2=7777THEN 760 : IF D2=8888THEN D2=3 : IF D2=9999THEN 800 : D2=D2+1 : ON D2GOTO 520,540,560,580,600,620,640,660,680,700,720,740 0520 A5$()="609FG090Prime 62" : C=2 : GOTO 860 0540 D(14)=0 : A5$()="609FG030609FG070" : C=2 : GOTO 860 0560 A5$()="609FG170609FG080" : C=2 : GOTO 860 0580 D3=D3+1 : D(14)=D(14)+2 : LOAD T"609FG160" 0600 A5$()="609FG150609Open JCATSMAL" : C=3 : GOTO 860 0620 A5$()="609FG030609FG070" : C=2 : GOTO 860 0640 D(14)=D(14)-1 : A5$()="609FG140609FG080609FG070" : C=3 : GOTO 860 0660 A5$()="609FG130JCATSMALREC-GEN" : C=3 : GOTO 860 0680 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 860 0700 A5$()="609FR010609FG080REC-GEN REC-RD" : C=4 : GOTO 860 0720 A5$()="609FG040JCATSMAL" : C=2 : GOTO 860 0740 LOAD T"609FG120" 0760 GOSUB 2510 : PRINT HEX(06);AT(21,0,);AT(22,0);B2$; : GOSUB '34(1) : GOTO 840 0800 GOSUB 2515 : PRINT HEX(06);AT(21,0,);AT(22,0);B2$; : GOSUB '34(1) : GOTO 840 0840 B4$=J7$ : COM CLEAR D2 : LOAD T"609Fmenu" 0860 LOAD T<C>A5$() 0865 DEFFN'31 : COM CLEAR C : LOAD T"609menu" 2500 % THE FOLLOWING MUST NOT BE RENUMBERED 2505 B2$="File Already Exists" : RETURN 2510 B2$="Batch Request Aborted" : RETURN 2515 B2$="Batch Request Ended" : RETURN