Listing of file='609NPRNT' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2686, program filename = '609NPRNT'
0010 REM % 609NPRNT, Release 02-00, (08/24/81) - Copyright Wang Laboratories,
Inc.
0340 DIM Q$(256)1,Q1$(256)1,Q3$(256)1,Q1$2,Q2$2,Q$10,Q9(8),Q3,Q8,Q9
: DIM Q4$(5)50,Q1(2)
0370 DIM T2$2,U1$(8),U2$(8)4,T1$80
: DIM V1$(1)1,V2$(256)1,V0$(1)1,A0$(4)62
: DIM J9$10,C2$5,C1$(25)10
: DIM S5(1),S0(1),T5(1),S3(1),T1$(1)1
: DIM S5,S6(2),S1(2),T1(2),T2$(2)25
: S5=2
: S6(2)=20
: T1(2)=4
: GOSUB 2130
0430 DIM S6,S7(1),S2(1),T2(1),S4(1),T5$(1)5
: S6=1
: S7(1)=20
: S2(1)=26
: T2(1)=2
: S4(1)=5
: DIM S1$1,S1$(1)1,S2$(5)2,S2$1,T2$2
: S1$="T"
: T1$=ALL(" ")
: T5$(1)=R5$
0460 GOSUB '62
: ON T5+2GOTO 1540,1540,480
: GOSUB 2140
: PRINT AT(23,0,80);HEX(07);B5$(2);T1$;B5$(1);
: GOTO 460
0480 C2$=T5$(1)
: IF VER(C2$,"####A")=5THEN 530
: GOSUB 2230
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 460
0530 R5$=C2$
: GOSUB 1560
: IF Q2$<>"0"THEN 1490
: GOSUB 2170
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);
: J8=0
: Q1=1
: Q1$="05"
: GOSUB '200
: IF Q2$="0"THEN 690
: IF Q2$="1"THEN GOSUB 2090
: ELSE GOSUB 2030
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 1490
0690 J8=Q
: IF J8>0THEN 760
: GOSUB 2070
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 1490
0760 J9=1
0770 GOSUB 1560
: IF Q2$<>"0"THEN 1490
: Q1$="01"
: IF J8<=25THEN Q=J8
: ELSE Q=25
: Q1=J9
: GOSUB '200
: IF Q2$="0"THEN 890
: IF Q2$="1"THEN GOSUB 2090
: ELSE GOSUB 2030
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 1490
0890 C7=Q
: C1=0
: C1$()=Q4$()
: FOR I=1TO C7
: J9$=STR(C1$(I),1,10)
: GOSUB 1560
: IF Q2$<>"0"THEN 1490
: Q1$="03"
: Q$=J9$
: GOSUB '200
: IF Q2$="0"THEN 1070
: IF Q2$="1"THEN GOSUB 2090
: IF Q2$="3"THEN GOSUB 2110
: ELSE GOSUB 2030
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 1490
1070 IF STR(Q4$(1),,5)<>C2$THEN 1100
: C1=1
: I=C7
1100 NEXT I
: IF C1=1THEN 1230
: IF C7<25THEN 1190
: J9=J9+25
: J8=J8-25
: IF J8<=0THEN 1190
: GOTO 770
1190 GOSUB 2150
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 460
1230 GOSUB 1560
: IF Q2$<>"0"THEN 1490
: IF STR(J9$,4,1)="P"THEN 1330
: IF STR(J9$,4,1)<>"R"THEN 1190
: GOSUB 2190
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 460
1330 Q$=STR(J9$,1,4)
: Q1$="04"
: GOSUB '201
: IF Q2$="0"THEN 1410
: IF Q$="1"THEN 2210
: ELSE GOSUB 2030
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 1490
1410 Q$=J9$
: GOSUB '202
: IF Q2$="0"THEN 1490
: IF Q2$="3"THEN GOSUB 2110
: ELSE GOSUB 2030
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 1490
1490 IF Q2$="0"AND R9$=" "THEN 1540
1500 KEYIN D1$
: IF D1$=HEX(F0)THEN 1540
: PRINT HEX(07);
: GOTO 1500
1540 DEFFN'31
: COM CLEAR C
: LOAD TA5$
1560 Q=5
: GOSUB '204
: IF Q2$="0"THEN 1610
: GOSUB 2050
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
1610 RETURN
2010 T1$="Queue subroutines not found - Press CANCEL"
: RETURN
2030 T1$="Queue file locked - Press CANCEL"
: RETURN
2050 T1$="Queue file not found - Press CANCEL"
: RETURN
2070 T1$="Queue is empty - Press CANCEL"
: RETURN
2090 T1$="Invalid read to queue file - Press CANCEL"
: RETURN
2110 T1$="Record not found in queue file - Press CANCEL"
: RETURN
2130 T2$(2)="Please Enter Document Id:"
: RETURN
2140 T1$="Invalid Key - ignored"
: RETURN
2150 T1$="No Print Request"
: RETURN
2170 T1$="Searching Print Queue"
: RETURN
2190 T1$="Print already in progress"
: RETURN
2210 T1$="Queue file full - Press CANCEL"
: RETURN
2230 T1$="Invalid Document ID"
: RETURN
9014 DEFFN'14"PRINTHEX(03);";HEX(22);"CORE=";HEX(22);";SPACEK*1024-SPACE:END";
HEX(0D)