image of READY prompt

Wang2200.org

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

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