Listing of file='609CPRNT' on disk='vmedia/701-2738G.wvd.zip'
# Sector 235, program filename = '609CPRNT' 0010 REM % 609CPRNT, Release 233, (08/26/85) - Copyright Wang Laboratories, In c.DGF. 0125 DIM Q$(256)1,Q1$(256)1,Q1$2,Q2$2,Q$10,Q9(8),Q3,Q8,Q9 : DIM Q4$(5)50,Q1(2) 0140 DIM T2$2,U1$(8),U2$(8)4,T1$80 : DIM V1$(3)82,V2$(256)1,V0$(1)1,A0$(4)62 : DIM J9$10,C2$5,C1$(25)10,C3$1 : DIM S5(1),S0(1),T5(1),S3(1),T1$(1)1 : DIM S5,S6(3),S1(3),T1(3),T2$(3)25 : S5=3 : S6(2)=18 : S6(3)=19 : T1(2),T1(3)=4 : GOSUB 2150 0170 DIM S6,S7(2),S2(2),T2(2),S4(2),T5$(2)5 : S6=2 : S7(1)=18 : S7(2)=19 : S2(1)=26 : S2(2)=15 : T2(1),T2(2)=2 : S4(1)=5 : S4(2)=1 : DIM S1$3,S1$(1)2,S2$(6)2,S2$1,T2$2 : S1$="TT" : T5$(1)=R5$ 0185 GOSUB '62 : ON T5+2GOTO 1060,1060,195 : GOSUB 2160 0190 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1); : GOTO 185 0195 IF VER(STR(T5$(1),1,5),"####A")=5THEN 210 : GOSUB 2250 : GOTO 190 0210 C2$=T5$(1) : IF T5$(2)=" "THEN 240 : CONVERT T5$(2)TO C : IF C>0AND C<5THEN 240 : GOSUB 2230 : GOTO 190 0240 C3$=T5$(2) : GOSUB '110(C2$,"D") : IF B2$<>" "THEN 190 : R5$=C2$ : GOSUB 1070 : IF Q2$<>"0"THEN 1035 : GOSUB 2210 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1); : J8=0 0300 Q1=1 : Q1$="05" : GOSUB '200 : IF Q2$="0"THEN 345 : IF Q2$="1"THEN GOSUB 2110 : ELSE GOSUB 2010 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : IF Q2$<>"5"THEN 1035 : KEYIN D1$ : IF D1$=HEX(82)THEN 300 : ELSE GOSUB '31 0345 J8=Q : IF J8>0THEN 385 : GOSUB 2050 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : Q2$="5" : GOTO 1035 0385 J9=1 0390 GOSUB 1070 : IF Q2$<>"0"THEN 1035 0405 Q1$="01" : IF J8<=25THEN Q=J8 : ELSE Q=25 : Q1=J9 : GOSUB '200 : IF Q2$="0"THEN 460 : IF Q2$="1"THEN GOSUB 2110 : ELSE GOSUB 2010 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : IF Q2$<>"5"THEN 1035 : KEYIN D1$ : IF D1$=HEX(82)THEN 405 : ELSE GOSUB '31 0460 C7=Q : C1=0 : C1$()=Q4$() : FOR I=1TO C7 : J9$=STR(C1$(I),1,10) : GOSUB 1070 : IF Q2$<>"0"THEN 1035 0505 Q1$="03" : Q$=J9$ : GOSUB '200 : IF Q2$="0"THEN 560 : IF Q2$="1"THEN GOSUB 2110 : IF Q2$="3"THEN GOSUB 2130 : ELSE GOSUB 2010 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : IF Q2$<>"5"THEN 595 : KEYIN D1$ : IF D1$=HEX(82)THEN 505 : ELSE GOSUB '31 0560 IF STR(Q4$(1),,5)<>C2$THEN 595 : IF C3$<>" "AND C3$<>STR(Q4$(3),37,4)THEN 595 : IF STR(J9$,4,1)="R"AND VAL(STR(J9$,6,2),2)<>#IDTHEN 595 : C1=1 : I=C7 0595 NEXT I : IF C1=1THEN 655 : IF C7<25THEN 640 : J9=J9+25 : J8=J8-25 : IF J8<=0THEN 640 : GOTO 390 0640 GOSUB 2170 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : GOTO 185 0655 IF STR(J9$,4,1)<>"R"THEN 695 : C2=VAL(STR(J9$,5,1)) : $ALERTC2 : GOTO 1035 0695 GOSUB 1070 : IF Q2$<>"0"THEN 1035 0710 Q$=J9$ : GOSUB '202 : IF Q2$="0"THEN 755 : IF Q2$="3"THEN GOSUB 2130 : ELSE GOSUB 2010 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : IF Q2$<>"5"THEN 1035 : KEYIN D1$ : IF D1$=HEX(82)THEN 710 : ELSE GOSUB '31 0755 GOSUB '111(B0$,B9$,B4$,HEX(FF)) : IF B2$=" "THEN 775 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 880 0775 A1=V3 : GOSUB '217(1,1,B0$,B9$) : IF R1$=HEX(00)THEN 800 : GOSUB 2190 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : GOTO 855 0800 C3=VAL(STR(U1$(),107,1)) : C3=C3-1 : IF C3<0THEN C3=0 : STR(U1$(),107,1)=BIN(C3) : GOSUB '235(A1,U1$()) : IF R1$=HEX(00)THEN 855 : GOSUB 2090 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); 0855 GOSUB '212(A1) : IF R1$=HEX(00)THEN 880 : GOSUB 2070 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); 0880 C2$=STR(Q4$(4),1,5) : IF VER(C2$,"####A")<>5THEN 1035 : GOSUB '110(C2$,"D") : IF B2$=" "THEN 915 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 1035 0915 A2=V3 : GOSUB '217(1,1,B0$,B9$) : IF R1$=HEX(00)THEN 955 : GOSUB 2190 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : GOTO 1005 0955 C3=VAL(STR(U1$(),107,1)) : C3=C3-C4 : IF C3<0THEN C3=0 : STR(U1$(),107,1)=BIN(C3) : GOSUB '235(A2,U1$()) : IF R1$=HEX(00)THEN 1005 : GOSUB 2090 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); 1005 GOSUB '212(A2) : IF R1$=HEX(00)THEN 1035 : GOSUB 2070 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); 1035 IF Q2$="0"AND R1$=HEX(00)THEN 1060 1040 KEYIN D1$ : IF D1$=HEX(F0)THEN 1060 : PRINT HEX(07); : GOTO 1040 1060 DEFFN'31 : COM CLEAR C : REM .DGF. : $CLOSE : LOAD TA5$ 1070 Q=5 : GOSUB '204 : IF Q2$="0"THEN 1095 : GOSUB 2030 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); 1095 RETURN 2010 T1$="Queue file locked - Press CANCEL or EXECUTE to try again" : RETURN 2030 T1$="Queue file not found - Press CANCEL" : RETURN 2050 T1$="Queue is empty - Press CANCEL" : RETURN 2070 T1$="Error closing file - Press CANCEL" : RETURN 2090 T1$="Error writing FCB - Press CANCEL" : RETURN 2110 T1$="Invalid read to queue file - Press CANCEL" : RETURN 2130 T1$="Record not found in queue file - Press CANCEL" : RETURN 2150 T2$(3)="Printer No.:" : T2$(2)="Please Enter Document Id:" : RETURN 2160 T1$="Invalid Key - ignored" : RETURN 2170 T1$="No Print Request" : RETURN 2190 T1$="Query node error - Press CANCEL" : RETURN 2210 T1$="Searching Print Queue" : RETURN 2230 B2$="Invalid Printer Number" : RETURN 2250 B2$="Invalid Document ID" : RETURN 9014 REM .DEFFN'14.DGF.