image of READY prompt

Wang2200.org

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