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