Banner Writer

   1 REM % %B%A%N%N%E%R% %W%R%I%T%E%R% 
   2 REM LETTERS=32X NORMAL SIZE
   3 REM LINE 130 CONTROLS BACK-FROUND; LINE 150 CONTROLS LETTER COLOR
   4 REM STEP IN LINE 70 AND    VARIABLE "G" CONTROL HEIGHT AND THCKNES OF LINES
   5 REM SWITCHING "A" AND "B"  IN LINE 180 ROTATES LETTER      AOTHER 90 DEGREES 
   7 REM EACH LETTER TAKES ABOUT   35 SECONDS TO GENERATE AND PRINT
   9 FAST 
  10 PRINT AT 10,3;"% %I%N%P%U%T% %A%N%Y% %L%E%N%G%T%H% %M%E%S%S%A%G%E% "
  20 INPUT M$
  50 FOR L=1 TO LEN M$
  55 LET CH=CODE M$(L)
  60 LET R=7680+(CH*8)
  63 LET A=1
  67 LET B=1
  70 FOR R=R+7 TO R STEP (-0.25)
  80 LET RC=PEEK R
  90 FOR H=1 TO 7
 100 LET D=RC
 110 FOR G=1 TO 3
 120 IF G=2 OR 3 THEN LET RC=D
 130 LET CNTR=0
 140 IF RC<128 THEN GOTO 170
 150 LET CNTR=128
 160 LET RC=RC-128
 170 LET RC=RC*2
 180 PRINT AT A,B;CHR$ CNTR;
 190 LET A=A+1
 200 NEXT G
 210 NEXT H
 220 LET A=1
 230 LET B=B+1
 240 NEXT R
 250 COPY 
 260 NEXT L
 270 STOP