image of READY prompt

Wang2200.org

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

# Sector 2673, program filename = '609MNTR'
0010 REM %^ '609MNTR' - BACKGROUND PRINT PROGRAM - SCREEN HANDLER
0020 LOAD T"Prime 62"0,0BEG 40
0040 COM R3$(10)9,R1$(3)1,R9$(15)8,R1$1,T1$80
   : COM Q2$2,Q0$(3)10,Q4$(5)50,Q7$80,Q9$(5)3,Q8$(20)3
   : DIM S5(5),S0(5),T5(5),S3(5),T1$(10)80,S1$(10)2
   : DIM T1(3),S6(3),S1(3),T2$(3)80
   : DIM T2(1),S7(1),S2(1),S4(1),T5$(1)1,S2$(1)2
   : DIM S1$5,S2$1,T1$80,T2$2
   : DIM B5$(3)1,A0$(4)62
   : PRINT HEX(03);
0180 LIMITS T#0,"MWF.CTL",J0,J0,J0,J0
   : IF J0=2THEN RESTORE LINE2170
   : ELSE RESTORE LINE2070
   : GOSUB '61
   : DATA LOAD DC OPEN T#0,"609@DEVC"
   : DATA LOAD DC #0,A0$()
   : FOR C=1TO 4
   : DATA LOAD DC #0,A0$()
   : J=C*2-1
   : CONVERT CTO STR(T1$(J),13,2),(##)
   : STR(T1$(J),26,3)=STR(A0$(),2,3)
   : IF STR(A0$(),5,1)=HEX(01)THEN STR(T1$(J),34,10)="Character"
   : ELSE STR(T1$(J),34,10)="Line"
0300 STR(T1$(J),49)=STR(A0$(),6,25)
   : NEXT C
   : IF J0=2THEN STR(T1$(9),10,7)="Mailway"
0330 GOSUB '62
   : ON T5+2GOTO 370,370,380
   : PRINT HEX(07);
   : GOTO 330
0370 COM CLEAR
   : LOAD T"609start"
0380 J8=0
   : FOR C=1TO 4
   : IF T5(C)=2THEN 440
   : SELECT #5<STR(T1$(C*2-1),26,3)>
   : $IF ON #5,440
   : ERRORIF ERR=48THEN GOTO 460
0440 NEXT C
   : GOTO 500
0460 GOSUB 2030
   : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
   : GOTO 330
0500 Q9$()=" "
   : FOR C=1TO 4
   : IF T5(C)=2THEN 550
   : J8=J8+1
   : Q9$(J8)=STR(T1$(C*2-1),26,3)
0550 NEXT C
   : IF J0=2AND T5(5)=1THEN Q8$(1)="MLY"
   : IF J8>0THEN 610
   : GOSUB 2050
   : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
   : GOTO 330
0610 IF R3$()<>" "THEN 620
   : STR(R3$(),1,9)="WPstart"
   : GOTO 630
0620 I=LEN(STR(R3$()))-9
   : MAT COPY -R3$()<1,I>TO -R3$()<10,I>
   : STR(R3$(),,9)="609start"
0630 Q2$="A"
   : LOAD T"BMT02"
2030 T1$="Printer "&STR(T1$(C*2-1),26,3)&" is not in device table"
   : RETURN
2050 T1$="Must choose at least one printer for task"
   : RETURN
2070 DATA 4,0,0,"B a c k g r o u n d   P r i n t   T a s k"
   : DATA 4,2,0,"Please choose printers desired:"
   : DATA 4,5,13,"Printer Number   Address   Printer Type   Comment"
   : DATA 1,7,5,1,"YES"," no","\DE"
   : DATA 1,10,5,2,"YES"," no","\DE"
   : DATA 1,13,5,2,"YES"," no","\DE"
2130 DATA 1,16,5,2,"YES"," no","\DE"
   : DATA 0
2170 DATA 4,0,0,"B a c k g r o u n d   P r i n t   T a s k"
   : DATA 4,2,0,"Please choose printers desired:"
   : DATA 4,5,13,"Printer Number   Address   Printer Type   Comment"
   : DATA 1,7,5,1,"YES"," no","\DE"
   : DATA 1,10,5,2,"YES"," no","\DE"
   : DATA 1,13,5,2,"YES"," no","\DE"
2230 DATA 1,16,5,2,"YES"," no","\DE"
   : DATA 1,19,5,2,"YES"," no","\DE"
   : DATA 0