image of READY prompt

Wang2200.org

Listing of file='609KEYS1' on disk='vmedia/701-2737G.wvd.zip'

# Sector 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