Listing of file='609In' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1673, program filename = '609In'
0010 REM 609In WP 2.3.5 Copyright Wang Laboratories, Inc. 1986 rev 2.6 07/12/9
0 - KKB
0135 COM T5(3),T5$(3)25,B9$,D0,D1,C0,C1,C3,C8,J7
: DIM S4,S5(3),S0(3),S3(3),T1$(16)40
: DIM S5,T1(6),S6(6),S1(6),T2$(6)40
: DIM S6,T2(3),S7(3),S2(3),S4(3)
: DIM S1$6,S1$(16)2,S2$(27)2
: DIM T2$2,T1$80,S2$1,S7,S9,T0,T2,C2$52,D1$5
: DIM C3$1,U1$(12),V0$(1)1,U2$(12)4,C0$(256)1
0195 C2$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
0205 D1=0
: J7=1
: PRINT HEX(03);
: RESTORE LINE2200
: GOSUB '61
: T5$(1)=B5$
: T5$(2)=B6$
0235 GOSUB '62
: ON T5+2GOTO 260,260,270
: PRINT HEX(07);
: GOTO 235
0260 COM CLEAR C
: LOAD T"609menu"
0270 IF T5(1)<>3THEN 290
: A5$()="609QINDXOPSUBS"
: LOAD T<2>A5$()
0290 IF T5(1)=2THEN 325
: C0=770
: IF T5(2)>1THEN C3=770
: ELSE C3=1
: B5$,C3$=T5$(1)
: GOTO 340
0325 C0=84
: C3=1
: B6$,C3$=T5$(2)
0340 C1=POS(C2$=C3$)
: IF C1<1THEN 341
: 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 415
: IF STR(A0$(),2,8)<>" "THEN 790
: GOSUB 2010
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 235
0341 GOSUB 2010
: PRINT AT(23,0,);HEX(0E);B2$;HEX(0F07);
: GOTO 235
0415 IF STR(A0$(),133,3)<>" "THEN 440
: GOSUB 2030
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 235
0440 B9$=STR(A0$(),133,3)
: CONVERT STR(A0$(),136,1)TO C2
: GOSUB 2050
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);
0460 KEYIN D$,,465
0465 ON POS(HEX(820DF0)=D$)GOTO 485,485,205
: PRINT HEX(07);
: GOTO 460
0485 IF C2=2THEN 610
: RESTORE LINE2330
: GOSUB '61
0505 GOSUB '62
: ON T5+2GOTO 205,205,535
: PRINT HEX(07);
: GOTO 505
0535 B0$=T5$(1)
: IF VER(STR(B0$,1,5),"####A")=5THEN 565
: GOSUB 2110
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 505
0565 D0=6
: D1=0
: SELECT #D0<B9$>
: ERRORGOTO 590
0580 LIMITS T#D0,B0$,D1,D2,D3,D4
: ERRORGOSUB 2170
: GOTO 505
0585 IF D4=2AND (D2-D1)=1232THEN 610
0590 GOSUB 2030
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 505
0610 D0=6
: SELECT #D0<B9$>
: GOSUB 890
: GOSUB 920
: IF D3=0THEN 665
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: IF C2=1THEN 505
: ELSE GOTO 235
0665 D1$=STR(C0$(),4,5)
: IF VER(STR(D1$,1,5),"####A")=5THEN 695
: GOSUB 2030
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 505
0695 GOSUB 2090
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);
0705 KEYIN D$
: ON POS(HEX(82F0)=D$)GOTO 725,740
: PRINT HEX(07);
: GOTO 705
0725 C1=6
: GOTO 875
0740 IF C8=0THEN 205
: GOSUB 890
: GOSUB 1060
: IF D3=0THEN 205
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: IF C2=1THEN 505
: ELSE GOTO 235
0790 B9$=STR(A0$(),2,8)
: D9=1
0805 GOSUB '236(12,D9)
: IF R1$<>HEX(00)THEN 820
: IF V1>0THEN 835
0820 GOSUB 2070
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 235
0835 MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,1,8)TO T2$STEP 16
: IF T2$>HEX(0000)THEN 865
: IF V1<12THEN 820
: D9=D9+12
: GOTO 805
0865 B9$=STR(U1$(),VAL(T2$,2))
: C1=4
0875 LOAD T"609INA"10,3999
0890 $OPEN 900,#D0
: RETURN
0900 $BREAK255
: GOTO 890
0920 D3=1
: DATA LOAD BA T#D0,(D1)C0$()
: ERRORGOTO 1025
0935 IF VER(STR(C0$(),4,5),"####A")=5THEN 955
: GOSUB 2030
: GOTO 1010
0955 B2$=BIN(#PART)
: IF STR(C0$(),9,1)=B2$THEN 1000
: IF STR(C0$(),9,1)=HEX(00)THEN 990
: GOSUB 2150
: GOTO 1010
0990 STR(C0$(),9,1)=B2$
: DATA SAVE BA T#D0,(D1)C0$()
: ERRORGOTO 1040
1000 C8=1
: D3=0
1010 $CLOSE#D0
: RETURN
1025 GOSUB 2050
: GOTO 1010
1040 GOSUB 2170
: GOTO 1010
1060 D3=1
: C8=0
: DATA LOAD BA T#D0,(D1)C0$()
: ERRORGOTO 1145
1080 IF VER(STR(C0$(),4,5),"####A")=5THEN 1100
: GOSUB 2030
: GOTO 1130
1100 IF STR(C0$(),9,1)=HEX(00)THEN 1125
: STR(C0$(),9,1)=HEX(00)
: DATA SAVE BA T#D0,(D1)C0$()
: ERRORGOTO 1160
1125 D3=0
1130 $CLOSE#D0
: RETURN
1145 GOSUB 2050
: GOTO 1130
1160 GOSUB 2170
: GOTO 1130
2010 B2$="Library/Archive 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
2150 B2$="Archive in use"
: RETURN
2170 B2$="Archive not available"
: RETURN
2200 DATA 3,0,0,"D o c u m e n t I n d e x"
: DATA 4,3,0,"Please choose one from each column:"
: DATA 3,5,8,"Location"
: DATA 1,7,8,1,"Library","Archive","Printers","\DE"
: DATA 2,7,20,1,"A"
: DATA 2,8,20,1,"A"
: DATA 3,5,32,"Which Ones"
2270 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"
2310 DATA 1,16,8,1,"By Document Number","By Author","By Operator","By Title","
By Comment","\DE"
: DATA 0
2330 DATA 3,0,0,"D o c u m e n t I n d e x"
: DATA 4,22,0,"Enter Archive name"
: DATA 2,22,20,5," "
: DATA 0