Big Character Program

Make your video characters 8 times bigger using ROM character images and substituting graphic symbols for screen dots. Change lines 140 & 160 for other symbols.

   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 10
SYNTACTIC SUM = 25918

Operation: RUN (NL). Respond to prompt with 4 characters & (NL) for 1st line. Next 4 letters go on 2nd line. Next 4 clear screen before printing on first line. To exit, hit (NL) break.