1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        PRINT:   GENERATES LARGE LETTERS
4  REM
5  REM        36299 REV  A   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
9000  REM  *****  PRINT  *****  DEMONSTRATION PROGRAM  *****
9001  REM  *****  VERSION III  *****  2/16/73  *****
9002  REM  *****  GENERATES LARGE LETTERS  *****  REVISED BY  *****
9003  REM  *****  RANDY GILBERTSON  *****
9004  DIM A$[72],B$[72],C$[2],M[60,6]
9005  LET B=255
9006  PRINT "INFORMATION";
9007  INPUT A
9008  IF A=0 THEN 9017
9009  PRINT "THIS PROGRAM PRINTS CHARACTERS OF HEIGHT 2, 3.5, 5, OR 7"
9010  PRINT "INCHES. WHEN THE MACHINE TYPES 'SIZE?' TYPE A NUMBER"
9011  PRINT "FROM 1 TO 4 FOR CHARACTERS OF THE ABOVE SIZES. WHEN"
9012  PRINT "THE MACHINE TYPES 'WHAT IS YOUR MESSAGE?' INPUT A"
9013  PRINT "MESSAGE FROM 1 TO 72 CHARACTERS. FOR QUOTES USE A CONTROL"
9014  PRINT "K. WHEN THE MACHINE TYPES 'METHOD?' TYPE (1) CHARACTERS"
9015  PRINT "PRINTED IN THE CHARACTER THEY REPRESENT (2) PRINTED"
9016  PRINT "IN A CHARACTER OF YOUR CHOICE."
9017  PRINT "SIZE";
9018  INPUT Z
9019  PRINT "WHAT IS YOUR MESSAGE?"
9020  ENTER B,C,B$
9021  PRINT 
9022  PRINT "METHOD";
9023  INPUT A
9024  IF A#2 THEN 9027
9025  PRINT "INPUT 2 OF YOUR CHARACTERS";
9026  INPUT C$[1,2]
9027  PRINT 
9028  LET A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789<>=#+-*/"'92"()[].,;:!?"'11"'$%"
9029  MAT  READ M
9030  FOR I=1 TO 9
9031  LET T[I]=2^(I)-1
9032  NEXT I
9033  FOR I=1 TO LEN(B$)
9034  FOR J=1 TO 60
9035  IF A$[J,J]#B$[I,I] THEN 9038
9036  LET F=J
9037  GOTO 9039
9038  NEXT J
9039  FOR K=1 TO 6
9040  LET X=M[F,K]
9041  IF X=0 THEN 9071
9042  FOR Q=1 TO 9
9043  IF T[Q]<X THEN 9046
9044  LET Y=Q
9045  GOTO 9047
9046  NEXT Q
9047  FOR L=1 TO 9
9048  LET P[L]=X-2*INT(X/2)
9049  LET X=INT(X/2)
9050  NEXT L
9051  FOR M=1 TO Z
9052  FOR O=1 TO Y
9053  IF P[O]=0 THEN 9064
9054  FOR Z1=1 TO Z
9055  GOTO A OF 9056,9061
9056  IF B$[I,I]#'11 THEN 9059
9057  PRINT "::";
9058  GOTO 9062
9059  PRINT B$[I,I];B$[I,I];
9060  GOTO 9062
9061  PRINT C$;
9062  NEXT Z1
9063  GOTO 9067
9064  FOR Z2=1 TO Z
9065  PRINT "  ";
9066  NEXT Z2
9067  NEXT O
9068  PRINT 
9069  NEXT M
9070  GOTO 9073
9071  PRINT 
9072  PRINT 
9073  NEXT K
9074  NEXT I
9075  PRINT 
9076  DATA 511,264,264,264,511,0,511,273,273,273,238,0
9077  DATA 511,257,257,257,387,0,511,257,257,257,254,0
9078  DATA 511,273,273,273,257,0,511,272,272,256,256,0
9079  DATA 511,257,273,273,415,0,511,16,16,16,511,0
9080  DATA 0,257,511,257,0,0,3,1,1,1,511,0
9081  DATA 511,16,40,68,387,0,511,1,1,1,1,0
9082  DATA 511,96,24,96,511,0,511,96,24,6,511,0
9083  DATA 511,257,257,257,511,0,511,272,272,272,496,0
9084  DATA 511,257,261,259,511,0,511,272,272,272,239,0
9085  DATA 499,273,273,273,415,0,256,256,511,256,256,0
9086  DATA 510,1,1,1,510,0,496,12,3,12,496,0
9087  DATA 511,12,48,12,511,0,387,204,48,204,387,0
9088  DATA 384,96,31,96,384,0,259,269,313,353,385,0,0,0,0,0,0,0
9089  DATA 511,263,313,449,511,0,0,129,511,1,0,0
9090  DATA 391,265,281,273,225,0,387,273,273,273,495,0
9091  DATA 496,16,16,16,511,0,499,273,273,273,270,0
9092  DATA 511,273,273,273,415,0,384,263,280,352,384,0
9093  DATA 238,273,273,273,238,0,499,273,273,273,511,0
9094  DATA 16,40,40,68,68,0,68,68,40,40,16,0
9095  DATA 40,40,40,40,40,0,40,124,40,124,40,0
9096  DATA 16,16,124,16,16,0,16,16,16,16,16,0,68,40,254,40,68,0
9097  DATA 3,14,56,224,384,0,384,224,56,14,3,0
9098  DATA 0,56,198,387,257,0,257,387,198,56,0,0
9099  DATA 0,511,257,257,0,0,0,257,257,511,0,0
9100  DATA 0,0,1,1,0,0,0,0,2,3,0,0
9101  DATA 0,0,130,131,0,0,0,0,130,130,0,0
9102  DATA 0,0,509,509,0,0,128,256,269,285,224,0
9103  DATA 0,448,0,448,0,0,0,0,448,0,0,0
9104  DATA 499,273,511,273,415,0,387,398,312,483,387,0
9105  END 
