image of READY prompt

Wang2200.org

Listing of file='609FD200' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 251, 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