Banner

    1 REM   BANNER GENERATOR
    2 REM   © by Ryan Gray, 11/22/84 ALL RIGHTS RESERVED
   10 CLS : PRINT "BANNER GENERATOR:               ________________________________"
   20 INPUT "MESSAGE:";m$
   21 INPUT "WIDTH (1 TO ?):";f1: INPUT "HEIGHT (1 TO 4):";f2
   25 LET s=(PEEK 23607+1)*256+PEEK 23606
   30 FOR x=1 TO LEN m$
   35 DIM a$(8,8)
   40 FOR z=0 TO 7: LET q=PEEK (s+z+8*(CODE m$(x)-32))
   50 IF q>127 THEN LET a$(1,8-z)="█": LET q=q-128
   51 IF q>63 THEN LET a$(2,8-z)="█": LET q=q-64
   52 IF q>31 THEN LET a$(3,8-z)="█": LET q=q-32
   53 IF q>15 THEN LET a$(4,8-z)="█": LET q=q-16
   54 IF q>7 THEN LET a$(5,8-z)="█": LET q=q-8
   55 IF q>3 THEN LET a$(6,8-z)="█": LET q=q-4
   56 IF q>1 THEN LET a$(7,8-z)="█": LET q=q-2
   57 IF q>0 THEN LET a$(8,8-z)="█"
   60 NEXT z
   70 FOR z=1 TO 8: FOR w=1 TO f1: FOR y=1 TO 8
   75 FOR e=1 TO f2: LPRINT a$(z,y);: NEXT e: NEXT y
   80 LPRINT : NEXT w: NEXT z
   90 NEXT x
  100 GO TO 20