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