image of READY prompt

Wang2200.org

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.