Listing of file='609PIDX' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1819, program filename = '609PIDX'
0015 REM Print Index
0160 COM T5(5),T5$(3)25,B9$,D0,D1,C0,C1,C3,C8,C9,C6$7,C1$1,J7
: DIM S4,S5(5),S0(5),S3(5),T1$(15)40,U2$(12)4,V0$(1)1
: DIM S5,T1(8),S6(8),S1(8),T2$(8)40
: DIM S6,T2(3),S7(3),S2(3),S4(3)
: DIM S1$6,S1$(15)2,S2$(27)2
: DIM T2$2,T1$80,S2$1,S7,S9,T0,T2,C2$52,D1$5,C3$1
0215 DIM U1$(12),C0$(256)1,C4$27,C5$3
: C9=1
: C1$=" "
: RESTORE LINE2390
: GOSUB '61
0245 GOSUB '62
: ON T5+2GOTO 335,335,265
: PRINT HEX(07);
: GOTO 245
0265 IF T5(1)=1THEN 280
: C1$="Q"
: LOAD T"609In2"0,0BEG 280
0280 PRINT HEX(03);
: C2$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
: RESTORE LINE2220
: GOSUB '61
: T5$(1)=B5$
: IF C1$=" "THEN T5$(2)=B6$
0310 GOSUB '62
: ON T5+2GOTO 335,335,345
: PRINT HEX(07);
: GOTO 310
0335 COM CLEAR C
: LOAD T"609menu"
0345 IF T5(1)=2THEN 405
: C0=770
: IF T5(2)>1THEN C3=770
: ELSE C3=1
: IF T5$(1)<>" "THEN 385
: C9=52
: J7=15
: GOTO 945
0385 B5$,C3$=T5$(1)
: J7=1
: GOTO 420
0405 C0=84
: C3,J7=1
: B6$,C3$=T5$(2)
0420 C1=POS(C2$=C3$)
: DATA LOAD DC OPEN T#0,"609@ARCH"
: DBACKSPACE #0,BEG
: DSKIP #0,C1S
: DATA LOAD DC #0,A0$()
: DATA SAVE DC CLOSE#0
: IF T5(1)=2THEN 495
: IF STR(A0$(),2,8)<>" "THEN 860
: GOSUB 2010
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 310
0495 IF STR(A0$(),133,3)<>" "THEN 520
: GOSUB 2030
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 310
0520 B9$=STR(A0$(),133,3)
: CONVERT STR(A0$(),136,1)TO C2
: GOSUB 2050
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);
0540 KEYIN B2$,,545
0545 ON POS(HEX(820DF0)=B2$)GOTO 565,565,280
: PRINT HEX(07);
: GOTO 540
0565 IF C2=2THEN 690
: RESTORE LINE2350
: GOSUB '61
0585 GOSUB '62
: ON T5+2GOTO 280,280,615
: PRINT HEX(07);
: GOTO 585
0615 B0$=T5$(1)
: IF VER(STR(B0$,1,5),"####A")=5THEN 645
: GOSUB 2110
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 585
0645 D0=6
: D1=0
: SELECT #D0<B9$>
: ERRORGOTO 670
0660 LIMITS T#D0,B0$,D1,D2,D3,D4
: ERRORGOSUB 2150
: GOTO 585
0665 IF D4=2AND (D2-D1)=1232THEN 690
0670 GOSUB 2030
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 585
0690 D0=6
: SELECT #D0<B9$>
: GOSUB 1150
: GOSUB 1180
: IF D3=0THEN 745
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: IF C2=1THEN 585
: ELSE GOTO 310
0745 D1$=STR(C0$(),4,5)
: IF VER(STR(D1$,1,5),"####A")=5THEN 775
: GOSUB 2030
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 585
0775 GOSUB 2090
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);
0785 KEYIN B2$
: ON POS(HEX(82F0)=B2$)GOTO 945,810
: PRINT HEX(07);
: GOTO 785
0810 IF C8=0THEN 280
: GOSUB 1150
: GOSUB 1320
: IF D3=0THEN 280
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: IF C2=1THEN 585
: ELSE GOTO 310
0860 B9$=STR(A0$(),2,8)
: D9=1
0875 GOSUB '236(12,D9)
: IF R1$<>HEX(00)THEN 890
: IF V1>0THEN 905
0890 GOSUB 2070
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 310
0905 MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,1,8)TO T2$STEP 16
: IF T2$>HEX(0000)THEN 935
: IF V1<12THEN 890
: D9=D9+12
: GOTO 875
0935 B9$=STR(U1$(),VAL(T2$,2))
0945 IF C1$="Q"THEN C4$=STR(T5$(1),1,2)&T5$(2)
: ELSE C4$=STR(T5$(1),1,1)&STR(T5$(2),1,1)&T5$(3)
: FOR C=1TO 3
: CONVERT T5(C)TO STR(C5$,C,1),(#)
: NEXT C
: PRINT HEX(03);
: RESTORE LINE2410
: GOSUB '61
: T5$(1)="1"
: T5$(2)="03"
: T5$(3)="66"
0995 GOSUB '62
: ON T5+2GOTO 335,335,1020
: PRINT HEX(07);
: GOTO 995
1020 D=1
: FOR C=1TO 3
: IF NUM(T5$(C))<25THEN D=0
: NEXT C
: IF D=1THEN 1055
: GOSUB 2190
: GOTO 1070
1055 CONVERT T5$(1)TO C
: IF C>0AND C<5THEN 1080
: GOSUB 2170
1070 PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 995
1080 STR(C6$,1,5)=STR(T5$(1),1,1)&STR(T5$(2),1,2)&STR(T5$(3),1,2)
: CONVERT T5(1)TO STR(C6$,6,1),(#)
: CONVERT T5(2)TO STR(C6$,7,1),(#)
: T5$(1)=STR(C4$,1,1)
: T5$(2)=STR(C4$,2,1)
: T5$(3)=STR(C4$,3,25)
: FOR C=1TO 3
: CONVERT STR(C5$,C,1)TO T5(C)
: NEXT C
: IF T5(1)=1THEN C1=4
: ELSE C1=6
: IF C1$=" "THEN 1135
: A5$()="609PQUE OPSUBS JCATSMAL"
: LOAD T<3>A5$()
1135 LOAD T"609INA"10,3999
1150 $OPEN 1160,#D0
: RETURN
1160 $BREAK255
: GOTO 1150
1180 D3=1
: DATA LOAD BA T#D0,(D1)C0$()
: ERRORGOTO 1285
1195 IF VER(STR(C0$(),4,5),"####A")=5THEN 1215
: GOSUB 2030
: GOTO 1270
1215 B2$=BIN(#PART)
: IF STR(C0$(),9,1)=B2$THEN 1260
: IF STR(C0$(),9,1)=HEX(00)THEN 1250
: GOSUB 2130
: GOTO 1270
1250 STR(C0$(),9,1)=B2$
: DATA SAVE BA T#D0,(D1)C0$()
: ERRORGOTO 1300
1260 C8=1
: D3=0
1270 $CLOSE#D0
: RETURN
1285 GOSUB 2050
: GOTO 1270
1300 GOSUB 2150
: GOTO 1270
1320 D3=1
: C8=0
: DATA LOAD BA T#D0,(D1)C0$()
: ERRORGOTO 1405
1340 IF VER(STR(C0$(),4,5),"####A")=5THEN 1360
: GOSUB 2030
: GOTO 1390
1360 IF STR(C0$(),9,1)=HEX(00)THEN 1385
: STR(C0$(),9,1)=HEX(00)
: DATA SAVE BA T#D0,(D1)C0$()
: ERRORGOTO 1420
1385 D3=0
1390 $CLOSE#D0
: RETURN
1405 GOSUB 2050
: GOTO 1390
1420 GOSUB 2150
: GOTO 1390
2010 B2$="Library does not exist"
: RETURN
2030 B2$="Archive does not exist"
: RETURN
2050 B2$="Please mount archive, press EXECUTE or CANCEL"
: RETURN
2070 B2$="Volume does not exist"
: RETURN
2090 B2$="Archive diskette is "&D1$&" Press EXECUTE or CANCEL"
: RETURN
2110 B2$="Invalid Archive ID"
: RETURN
2130 B2$="Archive in use"
: RETURN
2150 B2$="Archive not available"
: RETURN
2170 B2$="Invalid Printer Number"
: RETURN
2190 B2$="Invalid Numeric Specification"
: RETURN
2220 DATA 3,0,0,"P r i n t I n d e x"
: DATA 4,3,0,"Please choose one from each column:"
: DATA 3,5,8,"Location"
2250 DATA 1,7,8,1,"Library","Archive","\DE"
: GOTO 2250
2260 DATA 2,7,20,1,"A"
2270 DATA 2,8,20,1,"A"
: GOTO 2270
2280 DATA 3,5,32,"Which Ones"
: DATA 1,7,32,1,"All","By Author","By Operator","By Title","By Comment","In
Use","Recovered","Active","\DE"
: DATA 3,5,50,"Author/Operator/Title/Comment"
: DATA 2,8,53,25," "
: DATA 3,14,8,"Sort Order"
2330 DATA 1,16,8,1,"By Document Number","By Author","By Operator","By Title","
By Comment","\DE"
: DATA 0
2350 DATA 3,0,0,"P r i n t I n d e x"
: DATA 4,22,0,"Enter Archive name"
: DATA 2,22,20,5," "
: DATA 0
2390 DATA 1,20,50,1,"Immediate Print","Queue Print Request","\DE"
: DATA 0
2410 DATA 3,0,0,"P r i n t I n d e x"
: DATA 4,4,0,"Document Id: INDEX"
: DATA 4,5,0,"Document Name:"
: DATA 4,12,0,"Printer Number:"
: DATA 4,12,26,"Left Margin:"
: DATA 4,12,56,"Paper Length:"
: DATA 4,15,03,"FORMS"
: DATA 4,15,15,"PITCH"
: DATA 2,12,19,1," "
: DATA 2,12,46,2," "
: DATA 2,12,75,2," "
2510 DATA 1,16,0,1,"Standard","Single","Form 1","Form 2","\DE"
: DATA 1,16,14,1,"10","12","15","\DE"
: DATA 0