1 STRSIZ 100
2 ?TAB(-1,0)
5 PRINT "THIS PROGRAM PRINTS OUT ANY MESSAGE IN VERY BIG LETTERS"
10 INPUT "HOW LONG (IN INCHES) DO YOU WANT YOUR LETTERS? ";X
20 INPUT "AND HOW HIGH WOULD YOU LIKE THEM? ";Y
22 G1=1
24 print "PLEASE ENTER THE STATEMENT YOU WOULD LIKE TO HAVE PRINTED "
26 input "--> ", A$
30 A$ = UCS(A$)
35 PRINT "PLEASE SET THE PAPER IN THE PRINTER TO THE RIGHT SPOT, AND HIT RETURN";
36 INPUT " READY? ";O$
38 open #1, "headln.dat", OUTPUT
40 A=ASC(LEFT$(A$,1))
70 FOR T=1 TO LEN(A$)
80 P$=MID$(A$,T,1)
83 ? : ? P$;
90 FOR O=1 TO 50
95 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
96 IF P$=" " THEN 812
100 IF P$=S$ THEN 200
120 NEXT O
200 RESTORE
202 X$=S$
205 FOR U=1 TO 7
210 FOR K=8 TO 0 STEP -1
230 IF 2^K<S(U) THEN 270
240 J(9-K)=0
250 GOTO 280
270 J(9-K)=1:S(U)=S(U)-2^K
272 IF S(U)=1 THEN 815
280 NEXT K
445 FOR T1=1 TO X
447 PRINT #1, TAB((63-4.5*Y)*G1/(LEN(X$))+1);
450 FOR B=1 TO F(U)
460 IF J(B)=0 THEN 500
465 FOR I=1 TO Y:PRINT #1, X$;: NEXT I
470 GOTO 600
500 FOR I=1 TO Y
510 FOR I1= 1 TO LEN(X$)
520 PRINT #1, " ";:NEXT I1
530 NEXT I
600 NEXT B
620 PRINT #1,
630 NEXT T1
700 NEXT U
750 FOR H=1 TO 2*X:PRINT #1,: NEXT H
800 NEXT T
806 FOR H=1 TO 75 : PRINT #1,: NEXT H
810 GOTO 9999
812 FOR H=1 TO 7*X:PRINT #1,: NEXT H
813 GOTO 800
815 F(U)=9-K: GOTO 445
899 DATA " ",0,0,0,0,0,0,0
900 DATA "A",505,37,35,34,35,37,505
901 DATA "G",125,131,258,258,290,163,101
902 DATA "E",512,274,274,274,274,258,258
903 DATA "T",2,2,2,512,2,2,2
904 DATA "W",256,257,129,65,129,257,256
905 DATA "L",512,257,257,257,257,257,257
906 DATA "S",69,139,274,274,274,163,69
907 DATA "O",125,131,258,258,258,131,125
908 DATA "N",512,7,9,17,33,193,512
909 DATA "F",512,18,18,18,18,2,2
910 DATA "K",512,17,17,41,69,131,258
911 DATA "B",512,274,274,274,274,274,239
912 DATA "D",512,258,258,258,258,131,125
913 DATA "H",512,17,17,17,17,17,512
914 DATA "M",512,7,13,25,13,7,512
915 DATA "?",5,3,2,354,18,11,5
916 DATA "U",128,129,257,257,257,129,128
917 DATA "R",512,18,18,50,82,146,271
918 DATA "P",512,18,18,18,18,18,15
919 DATA "Q",125,131,258,258,322,131,381
920 DATA "Y",8,9,17,481,17,9,8
921 DATA "V",64,65,129,257,129,65,64
922 DATA "X",388,69,41,17,41,69,388
923 DATA "Z",386,322,290,274,266,262,260
924 DATA "I",258,258,258,512,258,258,258
925 DATA "C",125,131,258,258,258,131,69
926 DATA "J",65,129,257,257,257,129,128
927 DATA "1",0,0,261,259,512,257,257
928 DATA "2",261,387,322,290,274,267,261
929 DATA "*",69,41,17,512,17,41,69
930 DATA "3",66,130,258,274,266,150,100
931 DATA "4",33,49,41,37,35,512,33
932 DATA "5",160,274,274,274,274,274,226
933 DATA "6",194,291,293,297,305,289,193
934 DATA "7",258,130,66,34,18,10,8
935 DATA "8",69,171,274,274,274,171,69
936 DATA "9",263,138,74,42,26,10,7
937 DATA "=",41,41,41,41,41,41,41
938 DATA "!",1,1,1,384,1,1,1
939 DATA "0",57,69,131,258,131,69,57
940 DATA ".",1,1,129,449,129,1,1
999 close #1
9999 END
