10 INPUT "HORIZONTAL";X
20 INPUT"VERTICAL";Y
30 INPUT"CENTERED";L$
40 G1=0:IF L$>"P" THEN G1=1
50 INPUT "CHARACTER (TYPE `ALL' IF YOU WANT CHARACTER BEING PRINTED)";M$
60 PRINT "STATEMENT";
70 INPUT A$
80 INPUT "SET PAGE";O$
90 A=ASC(LEFT$(A$,1))
100 FOR T=1 TO LEN(A$)
110 P$=MID$(A$,T,1)
120 FOR O=1 TO 50
130 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
140 IF P$=" " THEN 460
150 IF P$=S$ THEN 170
160 NEXT O
170 RESTORE
180 X$=M$
190 IF M$="ALL" THEN X$=S$
200 FOR U=1 TO 7
210 FOR K=8 TO 0 STEP -1
220 IF 2^K<S(U) THEN 250
230 J(9-K)=0
240 GOTO 260
250 J(9-K)=1:S(U)=S(U)-2^K
260 IF S(U)=1 THEN 480
270 NEXT K
280 FOR T1=1 TO X
290 LPRINT TAB((40-4.5*Y)*G1/(LEN(X$))+1);
300 FOR B=1 TO F(U)
310 IF J(B)=0 THEN 340
320 FOR I=1 TO Y:LPRINT X$;:NEXT I
330 GOTO 380
340 FOR I=1 TO Y
350 FOR I1=1 TO LEN(X$)
360 LPRINT " ";:NEXT I1
370 NEXT I
380 NEXT B
390 LPRINT
400 NEXT T1
410 NEXT U
420 FOR H=1 TO 2*X:LPRINT:NEXT H
430 NEXT T
440 FOR H=1 TO Y:LPRINT:NEXT H
450 END
460 FOR H=1 TO 7*X:LPRINT:NEXT H
470 GOTO 430
480 F(U)=9-K:GOTO 280
1000 DATA " ",0,0,0,0,0,0,0
1010 DATA "A",505,37,35,34,35,37,505
1020 DATA "B",512,274,274,274,274,274,239
1030 DATA "C",125,131,258,258,258,131,69
1040 DATA "D",512,258,258,258,258,131,125
1050 DATA "E",512,274,274,274,274,258,258
1060 DATA "F",512,18,18,18,18,2,2
1070 DATA "G",125,131,258,258,290,163,101
1080 DATA "H",512,17,17,17,17,17,512
1090 DATA "I",258,258,258,512,258,258,258
1100 DATA "J",65,129,257,257,257,129,128
1110 DATA "K",512,17,17,41,69,131,258
1120 DATA "L",512,257,257,257,257,257,257
1130 DATA "M",512,7,13,25,13,7,512
1140 DATA "N",512,7,9,17,33,193,512
1150 DATA "O",125,131,258,258,258,131,125
1160 DATA "P",512,18,18,18,18,18,15
1170 DATA "Q",125,131,258,258,322,131,381
1180 DATA "R",512,18,18,50,82,146,271
1190 DATA "S",69,139,274,274,274,163,69
1200 DATA "T",2,2,2,512,2,2,2
1210 DATA "U",128,129,257,257,257,129,128
1220 DATA "V",64,65,129,257,129,65,64
1230 DATA "W",256,257,129,65,129,257,256
1240 DATA "X",388,69,41,17,41,69,388
1250 DATA "Y",8,9,17,481,17,9,8
1260 DATA "Z",386,322,290,274,266,262,260
1270 DATA "1",0,0,261,259,512,257,257
1280 DATA "2",261,387,322,290,274,267,261
1290 DATA "3",66,130,258,274,266,150,100
1300 DATA "4",33,49,41,37,35,512,33
1310 DATA "5",160,274,274,274,274,274,226
1320 DATA "6",194,291,293,297,305,289,193
1330 DATA "7",258,130,66,34,18,10,8
1340 DATA "8",69,171,274,274,274,171,69
1350 DATA "9",263,138,74,42,26,10,7
1360 DATA "0",57,69,131,258,131,69,57
1370 DATA "?",5,3,2,354,18,11,5
1380 DATA "*",69,41,17,512,17,41,69
1390 DATA "=",41,41,41,41,41,41,41
1400 DATA "!",1,1,1,384,1,1,1
1410 DATA ".",1,1,129,449,129,1,1
1420 STOP
1430 END
69
1390 DATA "=",41,41,41,41,41,41,41
1400 DATA "!",1,1,1,384,1,1,1