10  REM LHS DECISION LIBRARY -- PUNCHED JULY 18 '73
20  REM *****  GIANT  *****  DOUG OMAN  *****  12/31/70  *****
30  REM COPYRIGHT 1972 BY THE REGENTS OF THE UNIV. OF CALIF.
40  REM PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY
50  REM MODIFIED TO HP BASIC  (ACCESS SYSTEM)   3/18/76
60  LET W=5
70  V=0
80  DIM A$[72],C$[40],D[6],E[6],X$[5],Y$[72],Z$[72],W$[72]
90  LET C$="ABCDEFGHIJKLMNOPQRSTUVWXYZ.,! ?:/-'"
100  LET Z$='1'2'3'6'7"@ABCDEFGHIJKLMNOPQRSTUVWXYZ"
110  LET Z$[33]="0123456789!#$%&'()*:=-+;<,>.?/["'92"]^"
120  MAT D=ZER
130  MAT E=ZER
140  PRINT '10"CHARACTERS THAT CAN BE ENLARGED:  "C$;LIN(2)
150  PRINT LIN(1)"STATEMENT YOU WISH ENLARGED:"
160  LINPUT A$
170  PRINT 
180  IF LEN(A$)=0 THEN 1260
190  FOR A=1 TO LEN(A$)
200  GOSUB 910
210  IF X>0 THEN 270
220  IF V=1 THEN 260
230  PRINT '10"THE FOLLOWING ARE ILLEGAL CHARACTERS:  "A;
240  LET V=1
250  GOTO 270
260  PRINT ",";A;
270  NEXT A
280  IF V=1 THEN 150
290  PRINT "POSITION THE PAPER - PUSH 'RETURN' WHEN READY TO START."LIN(6)
300  ENTER 255,H,B5
310  PRINT LIN(20)
320  FOR A=1 TO LEN(A$)
330  LET W$=""
340  GOSUB 910
350  IF X#30 THEN 380
360  PRINT LIN(16)
370  GOTO 460
380  RESTORE 
390  GOTO TYP(0) OF 420,400
400  READ Y$
410  GOTO 390
420  READ B
430  IF B <> X THEN 390
440  GOTO TYP(0) OF 450,490
450  PRINT LIN(8)
460  NEXT A
470  PRINT LIN(16)
480  STOP 
490  READ Y$
500  LET V=0
510  GOSUB 970
520  LET Q=P
530  IF Q>3 THEN 620
540  GOSUB 970
550  LET N=P
560  FOR F=1 TO 2*Q
570  GOSUB 970
580  LET D[F]=P
590  NEXT F
600  MAT E=ZER
610  GOTO 730
620  LET Q=Q-3
630  FOR G=1 TO 2*Q
640  GOSUB 970
650  LET D[G]=P
660  NEXT G
670  GOSUB 970
680  LET N=P
690  FOR J=1 TO 2*Q
700  GOSUB 970
710  LET E[J]=P
720  NEXT J
730  FOR L=1 TO N
740  LET W$[LEN(W$)+1]="  "
750  IF A$[A,A]="," THEN 770
760  LET W$[LEN(W$)+1]="   "
770  FOR M=1 TO Q
780  FOR U=1 TO D[2*M-1]
790  LET W$[LEN(W$)+1]=" "
800  NEXT U
810  FOR S=1 TO D[2*M]
820  LET W$[LEN(W$)+1]=A$[A,A]
830  NEXT S
840  NEXT M
850  PRINT W$
860  LET W$=""
870  MAT D=D+E
880  NEXT L
890  IF V<LEN(Y$) THEN 510
900  GOTO 440
910  LET X=0
920  FOR Y=1 TO LEN(C$)
930  IF A$[A,A] <> C$[Y,Y] THEN 950
940  LET X=Y
950  NEXT Y
960  RETURN 
970  LET V=V+1
980  IF V <= LEN(Y$) THEN 1010
990  READ Y$
1000  LET V=1
1010  LET X$=Y$[V,V]
1020  LET P=-6
1030  LET P=P+1
1040  IF Z$[P+6,P+6] <> X$ THEN 1030
1050  RETURN 
1060  DATA 1,"D@)H@BBHOOOOD@"'92"H@"'6,2,"AH@^CH@LLLLLE@3@3HA"'6"B"'6,3,"DP1E"'6"D"
1070  DATA "EFOROD"'6"@D@BH@O3OE@O3OHA@"'6"@",4,"AH@^BI@O3OEBOZOCB@"'2"@DH)EB"
1080  DATA '2,5,"AH@^CK@LLLLL",6,"AH@^BKXLLL",7,"DP1E"'6"DEFOROD"'6"@D@BG@O3O"
1090  DATA "F@OFESODB@"'6"@"'6"@EHRMMEB"'6"@"'6,8,"AH@^AHTTAH@^",9,"AH@^",10,"EOOO"
1100  DATA "OE"'3"@C@BC@O3ODC[HC"'3"AH*O",11,"AH@^DVPD"'6"DENNDNH"'6"@D@",12,"AH@^"
1110  DATA "AL@O",13,"AH@^D$UN"'3"@D@UNC@AH@^",14,"AH@^D$UN"'3"@AH@^",15,"DP1"
1120  DATA "E"'6"DEFOROC"'6"@D@BI@O3OEBOZOCB@"'2"@DH)EB"'2,16
1130  DATA "AH@^BHOOOOEQOKO"
1140  DATA "DB@"'2"@DYYDB"'2,17,"DP1E"'6"DEFOROC"'6"@D@BI@O3OF@OIHMOBB@"'1"@A@EDV"
1150  DATA "OOBB"'1"A@AAH)DI&B"'3"AECHC5B"'3"@E"'2,18,"AH@^BHOOOOEMSKOC"'6"D"'2"@EHL"
1160  DATA "D2E"'6"@D"'2,19,"EFLLXD"'7"@@BFBLLLHLC"'7"@@@B@CF@LLLLLF@LLLLLCA@"'6
1170  DATA "@@@EC3LLDA"'6"@@",20
1180  DATA "AH*OAH@^AH*O",21,"DP)H"'6"BAH@ODB"'92"HB"'6,22,"D$"
1190  DATA "UM"'3"@D@UNC@",23,"DP'H"'6"BAD@ODDOHD@D5OH"'2"@AD@ODB"'92"HB"'6,24,"E@N5"
1200  DATA "NHB@"'2"@DP1EB"'2"DVPD"'6"DENNDNH"'6"@D@",25,"D*OH"'6"@D@)C@"'6"D@%C@BD4OH"
1210  DATA "B@",26,"E@N5NH@B"'6"@F@NBNPNH@@B@"'6"@E@NR1H@@B"'6,27,"DBFB"'7"BAC@J"
1220  DATA "DAHBA"'6,28,"E@ADFB@A"'6"BAB@MDALCA"'6,29,"EBFD-B"'7"B"'7"@BC@JB-EAHC"
1230  DATA "-BA"'6"A@",31,"D:HG"'7"BFBFDTPLC"'7"B"'7"B@"'6"CA@JBZNHF@JB1LHCA"'6"AB"'2"BD5"
1240  DATA "1GB"'2,32,"ESFJFB"'7"B"'6"BBCQJFJERHHHBA"'6"B"'6,33,"DCAC"'7"CD@JZB@D,GC"
1250  DATA "B"'3,34,"APYJ",35,"D+HD"'2"ED&RCD"'1,36
1260  END 
