Listing of file='609KEYS0' on disk='vmedia/701-2737G.wvd.zip'
# Sector 602, program filename = '609KEYS0'
0010 REM 609KEYS0, Release 02-05, (21/03/88) - CopyrightWang Laboratories, In
c. KKB)
0200 COM T5(2),C8$(6)1,C9$(6),J1$25,J5$(150)1,C8,@L3
: DIM S4,S5(2),S0(2),S3(2),T1$(10)40
: DIM S5,T1(8),S6(8),S1(8),T2$(8)40
: DIM S6,T5$(9)75,T2(9),S7(9),S2(9),S4(9)
: DIM S1$11,S1$(10)2,S2$(181)2
: DIM T2$2,T1$80,S2$1,S7,S9,T0,T2,C2$52,J2$2
: DIM C3$1,U1$(15),V0$(1)1,U2$(15)4
0320 C2$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
: PRINT HEX(03);
: RESTORE LINE2100
: GOSUB '61
: T5$(1)=B5$
0380 GOSUB '62
: ON T5+2GOTO 430,430,460
: PRINT HEX(07);
: GOTO 380
0430 COM CLEAR C
: LOAD T"609menu"
0460 GOSUB '236(15,1)
: IF R1$=HEX(00)AND V1>0THEN 530
: GOSUB 2050
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 380
0530 J1$=T5$(7)
: IF T5$(8)=" "THEN J5$()=T5$(9)
: ELSE J5$()=T5$(8)&T5$(9)
: IF STR(J5$(),,1)=":"AND STR(J5$(),2)=" "THEN J5$()=ALL(20)
: J1,C8=0
: DATA LOAD DC OPEN T#0,"609@ARCH"
: FOR C=1TO 6
: IF T5$(C)=" "THEN 850
: C3$=T5$(C)
: C1=POS(C2$=C3$)
: DBACKSPACE #0,BEG
: DSKIP #0,C1S
: DATA LOAD DC #0,A0$()
: IF STR(A0$(),2,8)<>" "THEN 700
: GOSUB 2010
0680 PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 830
0700 B9$=STR(A0$(),2,8)
: MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,1,8)TO T2$STEP 16
: IF T2$>HEX(0000)THEN 770
: GOSUB 2030
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 830
0770 MAT SEARCHC8$(),=C3$TO J2$STEP 1
: IF J2$<>HEX(0000)THEN 850
: C8$(C8+1)=C3$
: C9$(C8+1)=STR(U1$(),VAL(T2$,2))
: C8=C8+1
: GOTO 850
0830 C=6
: J1=1
0850 NEXT C
: IF J1=1THEN 380
: IF C9$()<>" "THEN 940
: GOSUB 2010
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 380
0940 DATA SAVE DC CLOSE#0
: A5$()="609KEYS1REC-GEN REC-RD"
: LOAD T<3>A5$()10,3999
2010 B2$="Library "&C3$&" does not exist"
: RETURN
2030 B2$="Volume not found for library - "&C3$
: RETURN
2050 B2$="Volume map is empty"
: RETURN
2070 B2$="Volume does not exist"
: RETURN
2100 DATA 3,0,0,"K e y w o r d S e a r c h"
: DATA 4,3,0,"Please choose selections desired:"
: DATA 3,5,8,"Location"
: DATA 4,7,7,"Library(s)"
: DATA 2,7,19,1,"A"
: DATA 2,7,21,1," "
: DATA 2,7,23,1," "
: DATA 2,8,19,1," "
: DATA 2,8,21,1," "
: DATA 2,8,23,1," "
: DATA 3,5,32,"Which Ones"
2210 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 4,15,1,"Keywords:"
: DATA 2,16,1,75," "
: DATA 2,17,1,75," "
: DATA 4,20,40,"Find Documents Containing"
2280 DATA 1,21,45,1,"Any Keyword","All Keywords","\DE"
: DATA 0