Listing of file='609FA200' on disk='vmedia/701-2738G.wvd.zip'
# Sector 729, program filename = '609FA200' 0010 REM '609FA200' - DELETE A RANGE OF DOCUMENTS FROM ARCHIVE 0020 LOAD T"609FG070"3000,BEG 40 0040 IF B2$=" "THEN 140 : PRINT AT(23,0,);B2$;HEX(07); : B2$=" " : GOSUB '34(1) : IF D2>3THEN 420 : D2=0 : GOTO 190 0140 IF J$<>HEX(F0)THEN 190 : J$=HEX(0D) : IF D2<4THEN D2=0 : ELSE GOTO 420 0190 IF D2=7777THEN 420 : IF D2=8888THEN D2=3 : IF D2=9999THEN 460 : D2=D2+1 : ON D2GOTO 260,280,300,320,340,360,380,400 0260 A5$()="609FG090Prime 62" : C=2 : GOTO 520 0280 D(14)=0 : A5$()="609FG030609FG070" : C=2 : GOTO 520 0300 A5$()="609FG170609FG080" : C=2 : GOTO 520 0320 D3=D3+1 : D(14)=D(14)+2 : LOAD T"609FG160" 0340 A5$()="609FG030609FG070" : C=2 : GOTO 520 0360 D(14)=D(14)-1 : A5$()="609FG140609FG080609FG070" : C=3 : GOTO 520 0380 A5$()="609FG180609FG080" : C=2 : GOTO 520 0400 LOAD T"609FG120" 0420 GOSUB 2505 : PRINT HEX(06);AT(21,0,);AT(22,0);B2$; : GOSUB '34(1) : GOTO 500 0460 GOSUB 2510 : PRINT HEX(06);AT(21,0,);AT(22,0);B2$; : GOSUB '34(1) : GOTO 500 0500 B4$=J7$ : COM CLEAR D2 : LOAD T"609Fmenu" 0520 LOAD T<C>A5$() 0525 DEFFN'31 : COM CLEAR C : LOAD T"609menu" 2500 % DO NOT RENUMBER THE FOLLOWING 2505 B2$="Batch Request Aborted" : RETURN 2510 B2$="Batch Request Ended" : RETURN