0 REM THE TRANSACTOR VOLUME 6 ISSUE 02        BITS & PIECES SECTION
100 REM**  BANNER BY JEREMY STEWART  **
101 REM** FOR C64 AND 80-COL PRINTER **
105 :
110 L=53248: OPEN1,4
120 AS$="*********":SP$="         "
130 REM 9 ASTERISKS, 9 SPACES -REDUCE FOR SHORTER CHARACTERS
135 :
140 INPUT"[147]INPUT MESSAGE";M$:PRINT"[147]"M$
150 FOR Y=1024 TO 1023+LEN(M$):N=PEEK(Y)
160 FOR Z=1 TO 8:A$(Z)="":NEXT Z
170 POKE 56334,PEEK(56334)AND254
180 POKE 1,PEEK(1)AND251
190 FOR A=7 TO 0 STEP-1:B=2^A
200 FOR C=(L+(N*8)+7)TO(L+(N*8))STEP-1
210 P=PEEK(C): X=ABS(A-8)
220 IF(P AND B)=B THEN A$(X)=A$(X)+AS$:     GOTO 240
230 A$(X)=A$(X)+SP$: REM 9 SPACES
240 NEXT C,A
250 POKE 1,PEEK(1)OR4
260 POKE 56334,PEEK(56334)OR1
270 FOR J=1 TO 8:FOR K=1 TO 4:PRINT#1,A$(J):NEXT K,J
280 NEXT Y:CLOSE1