Listing of file='609KEYS1' on disk='vmedia/701-2737G.wvd.zip'
# Sector 614, program filename = '609KEYS1'
0010 REM % 609KEYS1, Release 01-00, (01/31/81) - Copyright Wang Laboratories,
Inc.
0210 COM J9$(500)5,D4,J5,C3,T5$(1)1
: DIM J2$(500)4,J0$1,T1$80,V2$(256)1,D0$2,D6$6,C0$2
: DIM T2$2,C3$1,U1$(50),V0$(1)1,U2$(50)4,V1$(3)82
: J3,J5=1
0270 B9$=C9$(J5)
: C3$=C8$(J5)
: D9=1
: D4=0
: J2$()=" "
: B0$="DOCUMENT."&C8$(J5)
0340 GOSUB '217(50,D9,B0$,B9$)
: IF R1$=HEX(00)THEN 470
: GOSUB 2010
: PRINT AT(23,0,80);B5$(2);T1$;HEX(07);B5$(1);
0390 KEYIN J0$
: IF J0$=HEX(F0)THEN 440
: PRINT HEX(07);
: GOTO 390
0430 DEFFN'31
0440 COM CLEAR C
: LOAD T"609menu"
0470 FOR J9=1TO V1
: J2$(D9)=STR(U1$(),16*J9-15,4)
: D9=D9+1
: NEXT J9
: IF V1<50THEN 560
: D4=D4+50
: IF D4=500THEN 570
: GOTO 340
0560 D4=D4+V1
0570 J9=1
: GOSUB 2070
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);
: FOR J2=1TO D4
: B0$="DOCUMENT."&C3$&"."&J2$(J2)
0640 GOSUB '211(B0$,B9$,D6$,HEX(FF))
: IF R1$=HEX(00)THEN 700
: IF R1$<>HEX(05)THEN 800
: D6$=STR(V2$(),8,6)
: GOTO 640
0700 A1=V3
: IF T5(1)=1THEN 760
: D5=0
: GOSUB 950
: IF D5=0THEN 780
0760 GOSUB 1300
0780 GOSUB '212(A1)
0800 IF R1$=HEX(06)THEN GOSUB 1710
: NEXT J2
: IF J5>=C8THEN 860
: J5=J5+1
: GOTO 270
0860 D4=J3-1
: IF D4>0THEN 910
: GOSUB 2050
: PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07);
: GOTO 390
0910 C3=2*D4
: MAT REDIM J9$(D4)5
: LOAD T"609KEYS2"
0950 IF T5(1)=8THEN 1260
: IF T5(1)=7THEN 1230
: IF T5(1)=6THEN 1200
: IF T5(1)=5THEN 1160
: IF T5(1)=4THEN 1120
: IF T5(1)=3THEN 1080
: IF T5(1)=2THEN 1040
: RETURN
1040 IF STR(U1$(),51,20)<>" "AND J1$=" "THEN 1280
: MAT SEARCHSTR(U1$(),51,20),=J1$TO D0$
: IF D0$>HEX(0000)THEN 1270
: ELSE GOTO 1280
1080 IF STR(U1$(),26,20)<>" "AND J1$=" "THEN 1280
: MAT SEARCHSTR(U1$(),26,20),=J1$TO D0$
: IF D0$>HEX(0000)THEN 1270
: ELSE GOTO 1280
1120 IF STR(U1$(),1,25)<>" "AND J1$=" "THEN 1280
: MAT SEARCHSTR(U1$(),1,25),=J1$TO D0$
: IF D0$>HEX(0000)THEN 1270
: ELSE GOTO 1280
1160 IF STR(U1$(),76,20)<>" "AND J1$=" "THEN 1280
: MAT SEARCHSTR(U1$(),76,20),=J1$TO D0$
: IF D0$>HEX(0000)THEN 1270
: ELSE GOTO 1280
1200 IF STR(V2$(),7,1)=HEX(00)THEN 1280
: GOTO 1270
1230 IF STR(U1$(),106,1)=HEX(00)THEN 1280
: GOTO 1270
1260 IF STR(U1$(),109,1)=HEX(FF)THEN 1280
1270 D5=1
1280 RETURN
1300 GOSUB '220(A1,1,1,1,1)
: IF R1$<>HEX(00)THEN 1730
: IF J5$()<>" "THEN 1410
: IF STR(V1$(),13,2)<>HEX(0000)AND T5(2)=1THEN 1710
: IF STR(V1$(),13,2)=HEX(0000)AND T5(2)=2THEN 1710
: GOTO 1730
1410 IF STR(V1$(),13,2)=HEX(0000)THEN 1730
: GOSUB '220(A1,1,VAL(STR(V1$(),13,2),2),1,1)
: IF R1$<>HEX(00)THEN 1730
: D1=LEN(V1$())
: D2=LEN(J5$())
: J=1
1500 IF STR(J5$(),J,1)<>HEX(3A)THEN 1540
: J=J+1
: GOTO 1500
1540 MAT SEARCHSTR(J5$(),J,D2-J+1),=HEX(3A)TO D0$
: IF D0$=HEX(0000)THEN 1670
: IF VAL(D0$,2)=1THEN 1600
: MAT SEARCHSTR(V1$(),1,D1),=STR(J5$(),J,VAL(D0$,2)-1)TO C0$
: IF C0$>HEX(0000)THEN 1640
: IF T5(2)=2THEN RETURN
1600 J=J+VAL(D0$,2)
: IF J>D2THEN 1710
: GOTO 1540
1640 IF T5(2)=1THEN 1710
: GOTO 1600
1670 IF STR(J5$(),J)=" "THEN 1710
: MAT SEARCHSTR(V1$(),1,D1),=STR(J5$(),J,D2-J+1)TO C0$
: IF C0$=HEX(0000)THEN 1730
1710 J9$(J3)=J2$(J2)&C3$
: J3=J3+1
1730 RETURN
2010 T1$="Library is empty - Press CANCEL"
: RETURN
2050 T1$="No documents found as specified - Press CANCEL"
: RETURN
2070 T1$="Searching library "&C3$
: RETURN