Listing of file='609CPRNT' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2643, 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.