image of READY prompt

Wang2200.org

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