Listing of file='609FD200' on disk='vmedia/701-2738G.wvd.zip'
# Sector 785, program filename = '609FD200' 0010 REM '609FD200' - DELETE A RANGE OF DOCUMENTS FROM SYSTEM 0020 IF D3=0THEN D3=1 : LOAD T"609FG070"3000,BEG 50 0050 IF B2$=" "THEN 220 : PRINT AT(23,0,);B2$;HEX(07); : B2$=" " : IF D2<>5THEN 130 : GOSUB '34(0) : IF J$<>HEX(F0)THEN 360 : ELSE GOTO 150 0130 GOSUB '34(1) 0150 IF D2<5THEN 640 : IF D2=8THEN 640 : D2=7777 : GOTO 560 0220 IF J$<>HEX(F0)THEN 360 : J$=HEX(0D) : IF D2<>5THEN 320 : D2=7777 : GOTO 560 0320 D2=7777 : GOTO 560 0360 IF D2=9999THEN 680 : IF D2=8888THEN D2=2 : IF D2=7777THEN 640 : D2=D2+1 : ON D2GOTO 460,480,500,520,540,560,580,560,580,600,620 0460 A5$()="609FG090Prime 62" : C=2 : GOTO 740 0480 A5$()="609FG110609Open JCATSMAL" : C=3 : GOTO 740 0500 A5$()="609FG100JCATSMAL" : C=2 : GOTO 740 0520 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 740 0540 A5$()="609FG020609FG070JCATSMALREC-GEN REC-RD" : C=5 : GOTO 740 0560 A5$()="609FG040JCATSMAL" : C=2 : GOTO 740 0580 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 740 0600 A5$()="609FG050JCATSMALREC-JCATREC-GEN" : C=4 : GOTO 740 0620 LOAD T"609FG120" 0640 GOSUB 2505 : PRINT HEX(06);AT(21,0,);AT(22,0);B2$; : GOSUB '34(1) : GOTO 720 0680 GOSUB 2510 : PRINT HEX(06);AT(21,0,);AT(22,0);B2$; : GOSUB '34(1) : GOTO 720 0720 B4$=J7$ : COM CLEAR D2 : LOAD T"609Fmenu" 0740 LOAD T<C>A5$() 0745 DEFFN'31 : COM CLEAR C : LOAD T"609menu" 2500 % THE FOLLOWING MUST NOT BE RENUMBERED 2505 B2$="Batch Request Aborted" : RETURN 2510 B2$="Batch Request Ended" : RETURN