image of READY prompt

Wang2200.org

Listing of file='609FC200' on disk='vmedia/701-2738G.wvd.zip'

# Sector sector 773, program filename = '609FC200'
0010 REM '609FC200' - REM COPY A RANGE OF DOCUMENTS TO ARCHIVE
0020 LOAD T"609FG070"3000,BEG 40
0040 IF B2$=" "THEN 170
   : PRINT AT(23,0,);B2$;HEX(07);
   : B2$=" "
   : GOSUB '34(1)
   : IF D2<5THEN 590
   : IF D2=8THEN 590
   : D2=7777
   : GOTO 550
0170 IF J$<>HEX(F0)THEN 310
   : J$=HEX(0D)
   : IF D2<>5THEN 270
   : D2=7777
   : GOTO 550
0270 D2=7777
   : GOTO 550
0310 IF D2=9999THEN 630
   : IF D2=8888THEN D2=2
   : IF D2=7777THEN 590
   : D2=D2+1
   : ON D2GOTO 410,430,450,470,490,510,530,550,570
0410 A5$()="609FG090Prime 62"
   : C=2
   : GOTO 690
0430 A5$()="609FG110609Open JCATSMAL"
   : C=3
   : GOTO 690
0450 D3=D3+1
   : A5$()="609FG100JCATSMAL"
   : C=2
   : GOTO 690
0470 A5$()="609FG010609FG070609Open JCATSMAL"
   : C=4
   : GOTO 690
0490 A5$()="609FG020609FG070JCATSMALREC-GEN REC-RD"
   : C=5
   : GOTO 690
0510 A5$()="609FG030609FG070"
   : C=2
   : GOTO 690
0530 A5$()="609FC010609FG080REC-GEN REC-RD"
   : C=4
   : GOTO 690
0550 A5$()="609FG040JCATSMAL"
   : C=2
   : GOTO 690
0570 LOAD T"609FG120"
0590 GOSUB 2505
   : PRINT HEX(06);AT(21,0,);AT(22,0);B2$;
   : GOSUB '34(1)
   : GOTO 670
0630 GOSUB 2510
   : PRINT HEX(06);AT(21,0,);AT(22,0);B2$;
   : GOSUB '34(1)
   : GOTO 670
0670 B4$=J7$
   : COM CLEAR D2
   : LOAD T"609Fmenu"
0690 LOAD T<C>A5$()
0695 DEFFN'31
   : COM CLEAR C
   : LOAD T"609menu"
2500 % THE REMAINING MUST NOT BE RENUMBERED
2505 B2$="Batch Request Aborted"
   : RETURN
2510 B2$="Batch Request Ended"
   : RETURN