Listing of file='609PQUE ' on disk='vmedia/701-2739G.wvd.zip'
# Sector 808, program filename = '609PQUE'
0010 REM % 609PQUE , Release 02-00, (08/24/81) - Copyright Wang Laboratories,
Inc.
0135 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)
: DIM C3$3,C4$3,C5$1,D8$2,J9$10,U1$(8),U2$(8)4
: DATA LOAD DC OPEN T#0,"609@DEVC"
: DATA LOAD DC A0$()
: C3$=STR(A0$(),2,3)
: IF C1$="Q"THEN CONVERT STR(C6$,1,1)TO C1
: ELSE CONVERT T5$(10)TO C1
: DSKIP #0,(C1-1)S
: DATA LOAD DC A0$()
: C4$=STR(A0$(),2,3)
0205 IF VAL(STR(A0$(),5,1))=1THEN C5$="C"
: ELSE C5$="L"
: DATA SAVE DC CLOSE#0
: GOSUB 1090
: IF Q2$="0"THEN 240
: GOTO 890
0240 REM Set KEY
: STR(Q$,1,3)=C4$
: STR(Q$,4,1)="P"
: Q1$="02"
: IF C1$="Q"THEN 415
: Q4$(1)=C2$
: STR(Q4$(1),11,25)=STR(U1$(),1,25)
: STR(Q4$(2),1,3)=C3$
: IF VER(C2$,"####A")=5THEN STR(Q4$(2),4,8)="609B0"
: STR(Q4$(2),12,3)=C3$
: STR(Q4$(2),15,1)=C5$
: CONVERT T5$(8)TO C9
: STR(Q4$(2),16,2)=BIN(C9,2)
: STR(Q4$(2),18,1)="D"
: CONVERT T5$(1)TO C9
0330 STR(Q4$(2),19,2)=BIN(C9,2)
: CONVERT T5$(2)TO C9
: STR(Q4$(2),21,2)=BIN(C9,2)
: STR(Q4$(2),27,1)=HEX(04)
: Q4$(3)=T5$()
: FOR I=1TO 6
: CONVERT T5(I)TO STR(Q4$(3),44+I,1),(#)
: NEXT I
: IF STR(Q4$(5),1,8)=" "THEN Q4$(5)="609PRB1"
: IF VER(C0$,"####A")<>5THEN 530
: Q4$(4)=C0$
: CONVERT ABS(D4)TO STR(Q4$(4),6,1),(#)
: GOTO 530
0415 Q4$(1)="INDEX"
: STR(Q4$(1),11,25)="******DOCUMENT INDEX*****"
: STR(Q4$(2),1,3)=C3$
: STR(Q4$(2),4,8)="609B0"
: STR(Q4$(2),12,3)=C3$
: STR(Q4$(2),15,1)=C5$
: STR(Q4$(2),16,2)=BIN(1,2)
: STR(Q4$(2),18,1)="D"
: STR(Q4$(2),19,2)=BIN(1,2)
: STR(Q4$(2),21,2)=BIN(99,2)
: FOR C=1TO 3
: CONVERT T5(C)TO STR(Q4$(3),C,1),(#)
: NEXT C
0485 STR(Q4$(3),4,1)=T5$(1)
: STR(Q4$(3),5,25)=T5$(3)
: STR(Q4$(3),30,16)=B9$
: STR(Q4$(4),1,6)=C6$
: CONVERT C9TO STR(Q4$(4),7,2),(##)
: Q4$(5)="609PINX0"
0530 GOSUB '201
: IF Q2$="0"THEN 890
: IF Q2$="1"THEN GOSUB 2030
: ELSE GOSUB 2050
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: IF Q2$<>"5"THEN 945
: KEYIN D9$
: IF D9$=HEX(82)THEN 530
: ELSE GOTO 945
: GOSUB 1090
: IF Q2$="0"THEN 590
: GOTO 890
0590 J8=0
: Q1=1
: Q1$="05"
: GOSUB '200
: IF Q2$="0"THEN 630
: IF Q2$="1"THEN GOSUB 2150
: ELSE GOSUB 2050
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 890
0630 J8=Q
: IF J8>0THEN 670
: GOSUB 2090
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 890
0665 J9=1
0670 GOSUB 1090
: IF Q2$<>"0"THEN 890
: Q1$="01"
: IF J8<=25THEN Q=J8
: ELSE Q=25
: Q1=J9
: GOSUB '200
: IF Q2$="0"THEN 730
: IF Q2$="1"THEN GOSUB 2150
: ELSE GOSUB 2050
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 890
0730 C7=Q
: FOR I=1TO C7
: IF STR(Q4$(I),1,3)<>"MON"THEN 830
: J9$=STR(Q4$(I),1,10)
: GOSUB 1090
: IF Q2$<>"0"THEN 890
: Q1$="03"
: Q$=J9$
: GOSUB '200
: IF Q2$="0"THEN 815
: IF Q2$="1"THEN GOSUB 2150
: IF Q2$="3"THEN GOSUB 2170
: ELSE GOSUB 2050
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 890
0815 MAT SEARCHSTR(Q4$(1),,48),=STR(C4$,,3)TO D8$STEP 3
: IF D8$=HEX(0000)THEN 830
: I=C7
0830 NEXT I
: IF D8$>HEX(0000)THEN 870
: IF C7<25THEN 890
: J9=J9+25
: J8=J8-25
: GOTO 670
0870 C3=VAL(STR(J9$,5,1))
: $ALERTC3
0890 IF C1$="Q"THEN 1055
: STR(U1$(),107,1)=STR(U1$(),107,1)ADDCHEX(01)
: GOSUB '235(A1,U1$())
: IF R1$=HEX(00)THEN 945
: GOSUB 2130
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
0945 GOSUB '212(A1)
: IF R1$=HEX(00)THEN 970
: GOSUB 2110
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
0970 IF VER(STR(Q4$(4),1,5),"####A")<>5THEN 1055
: GOSUB '217(1,1,B0$,B9$)
: IF R1$=HEX(00)THEN 1000
: GOSUB 2190
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 1030
1000 STR(U1$(),107,1)=STR(U1$(),107,1)ADDCHEX(01)
: GOSUB '235(A2,U1$())
: IF R1$=HEX(00)THEN 1030
: GOSUB 2130
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
1030 GOSUB '212(A2)
: IF R1$=HEX(00)THEN 1055
: GOSUB 2110
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
1055 IF Q2$="0"AND R1$=HEX(00)THEN 1080
1060 KEYIN D9$
: IF D9$=HEX(F0)THEN 1080
: PRINT HEX(07);
: GOTO 1060
1080 DEFFN'31
: COM CLEAR C
: LOAD TA5$
1090 Q=5
: GOSUB '204
: IF Q2$="0"THEN 1115
: GOSUB 2070
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
1115 RETURN
2030 B2$="Queue file full - Press CANCEL"
: RETURN
2050 B2$="Queue file locked - Press CANCEL or EXECUTE to try again"
: RETURN
2070 B2$="Queue file not found - Press CANCEL"
: RETURN
2090 B2$="Queue is empty - Press CANCEL"
: RETURN
2110 B2$="Error closing file - Press CANCEL"
: RETURN
2130 B2$="Error writing FCB - Press CANCEL"
: RETURN
2150 B2$="Invalid read to queue file - Press CANCEL"
: RETURN
2170 B2$="Record not found in queue file - Press CANCEL"
: RETURN
2190 B2$="Query Node error"
: RETURN