Listing of file='609CINDX' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1889, program filename = '609CINDX'
0010 REM % 609CINDX, Release 02-00, (08/24/81) - Copyright Wang Laboratories,
Inc.
0200 DIM C2$5,T1$80,J9$10,C1$(25)10
0240 DIM Q$(256)1,Q1$(256)1,Q1$2,Q2$2,Q$10,Q9(8),Q3,Q8,Q9
: DIM Q4$(5)50,Q1(2)
: C2$="INDEX"
: GOSUB 1330
: IF Q2$<>"0"THEN 1260
: GOSUB 2130
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);
: J8=0
0350 Q1=1
: Q1$="05"
: GOSUB '200
: IF Q2$="0"THEN 440
: IF Q2$="1"THEN GOSUB 2070
: ELSE GOSUB 2010
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: IF Q2$<>"5"THEN 1260
: KEYIN D1$
: IF D1$=HEX(82)THEN 350
: ELSE GOSUB '31
0440 J8=Q
: IF J8>0THEN 520
: GOSUB 2050
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: Q2$="5"
: GOTO 1260
0520 J9=1
0530 GOSUB 1330
: IF Q2$<>"0"THEN 1260
0560 Q1$="01"
: IF J8<=25THEN Q=J8
: ELSE Q=25
: Q1=J9
: GOSUB '200
: IF Q2$="0"THEN 670
: IF Q2$="1"THEN GOSUB 2070
: ELSE GOSUB 2010
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: IF Q2$<>"5"THEN 1260
: KEYIN D1$
: IF D1$=HEX(82)THEN 560
: ELSE GOSUB '31
0670 C7=Q
: C1=0
: C1$()=Q4$()
: FOR I=1TO C7
: J9$=STR(C1$(I),1,10)
: GOSUB 1330
: IF Q2$<>"0"THEN 1260
0760 Q1$="03"
: Q$=J9$
: GOSUB '200
: IF Q2$="0"THEN 870
: IF Q2$="1"THEN GOSUB 2070
: IF Q2$="3"THEN GOSUB 2090
: ELSE GOSUB 2010
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: IF Q2$<>"5"THEN 920
: KEYIN D1$
: IF D1$=HEX(82)THEN 760
: ELSE GOSUB '31
0870 IF STR(Q4$(1),,5)<>C2$THEN 920
: IF STR(J9$,4,1)="R"AND VAL(STR(J9$,6,2),2)<>#IDTHEN 920
: C1=1
: I=C7
0920 NEXT I
: IF C1=1THEN 1050
: IF C7<25THEN 1010
: J9=J9+25
: J8=J8-25
: IF J8<=0THEN 1010
: GOTO 530
1010 GOSUB 2110
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: Q2$="5"
: GOTO 1260
1050 IF STR(J9$,4,1)<>"R"THEN 1130
: C2=VAL(STR(J9$,5,1))
: $ALERTC2
: GOTO 1260
1130 GOSUB 1330
: IF Q2$<>"0"THEN 1260
1160 Q$=J9$
: GOSUB '202
: IF Q2$="0"THEN 1260
: IF Q2$="3"THEN GOSUB 2090
: ELSE GOSUB 2010
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: IF Q2$<>"5"THEN 1260
: KEYIN D1$
: IF D1$=HEX(82)THEN 1160
1260 IF Q2$="0"THEN 1310
1270 KEYIN D1$
: IF D1$=HEX(F0)THEN 1310
: PRINT HEX(07);
: GOTO 1270
1310 DEFFN'31
: COM CLEAR C
: LOAD TA5$
1330 Q=5
: GOSUB '204
: IF Q2$="0"THEN 1380
: GOSUB 2030
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
1380 RETURN
2010 T1$="Queue file locked - Press CANCEL or EXECUTE to try again"
: RETURN
2030 T1$="Queue file not found - Press CANCEL"
: RETURN
2050 T1$="Queue is empty - Press CANCEL"
: RETURN
2070 T1$="Invalid read to queue file - Press CANCEL"
: RETURN
2090 T1$="Record not found in queue file - Press CANCEL"
: RETURN
2110 T1$="No Print Request - Press CANCEL"
: RETURN
2130 T1$="Searching Print Queue"
: RETURN
9014 DEFFN'14"PRINTHEX(03);";HEX(22);"CORE=";HEX(22);";SPACEK*1024-SPACE:END";
HEX(0D)