image of READY prompt

Wang2200.org

Listing of file='609NPRNT' on disk='vmedia/701-2738G.wvd.zip'

# Sector 278, 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)