Prints text eight times bigger than normal. Type four characters and NEWLINE: the program reads each character’s 8×8 pattern from the 4K ROM character set and prints it as a block of graphic squares, so the four letters fill the width of the screen. The next four go on the second line, and the third set clears the screen and starts again at the top.
Change lines 140 and 160 to draw the letters with other symbols. Exit with NEWLINE at the prompt and BREAK.
Published in Syntax December 1980 (Big Character Program).
Source Code
5 DIM C(4)
7 LET K=0
10 INPUT A$
11 PRINT
15 LET K=K+1
17 IF K<3 THEN GO TO 20
18 CLS
19 LET K=1
20 FOR X=1 TO 4
30 LET C(X)=CODE(A$)
40 LET A$=TL$(A$)
50 NEXT X
60 FOR L=1 TO 8
70 FOR D=1 TO 4
80 LET Q=PEEK(C(D)*8+3583+L)
100 LET B=8
110 LET B=B-1
115 IF B<0 THEN GO TO 200
120 IF Q<2**B THEN GO TO 160
130 LET Q=Q-2**B
140 PRINT CHR$(128);
150 GO TO 110
160 PRINT " ";
170 GO TO 110
200 NEXT D
210 NEXT L
220 GO TO 10Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.

