Listing of file='609KEYS0' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1790, 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