100 CLEAR : SETCOM 600,8,N,2 : OUTSTAT 0 : DIM Z$(2) * 32
110 X$ = CHR$(143) + CHR$(159) : X$ = X$ + X$
120 Y$ = CHR$(128) + CHR$(144) : Y$ = Y$ + Y$
125 P$ = CHR$(13)
130 INPUT "Banner Text?";T$
140 PRINT#-8,CHR$(26);
150 L = LEN(T$)
160 FOR C = 1 TO L
170 E$ = MID$(T$,C,1)
180 K = ASC(E$) : A = &FD45
190 A = A + ((K - 65) * 5)
200 B = PEEK(A)
300 FOR D = 1 TO 5
305 Z$(0) = "" : Z$(1) = "" : G = 8
310 FOR F = 1 TO 4
320 H = B AND G : IF H = 0 THEN GOTO 340
330 Z$(1) = Z$(1) + X$ : GOTO 350
340 Z$(1) = Z$(1) + Y$
350 H = B AND 16 * G : IF H = 0 THEN GOTO 370
360 Z$(0) = Z$(0) + X$ : GOTO 380
370 Z$(0) = Z$(0) + Y$
380 G = G / 2 : NEXT F
400 GOSUB 450 : GOSUB 450 : GOSUB 450
410 A = A + 1 : B = PEEK(A) : NEXT D
420 Z$(2) = P$ + P$ : GOSUB 500
425 NEXT C
430 END
450 Z$(2) = Z$(0) : GOSUB 500
460 Z$(2) = Z$(1) : GOSUB 500
470 Z$(2) = P$ : GOSUB 500
480 RETURN
500 M = LEN(Z$(2))
510 FOR N = 1 TO M
520 PRINT#-8,MID$(Z$(2),N,1);
527 GOSUB 600
530 NEXT N
560 GOSUB 600
570 RETURN
600 O=0:O = INSTAT AND 16
610 IF O = 0 THEN RETURN
620 GOTO 600