100 PRINT CHR$(142):INPUT "[147]PRINT CHARACTER  [214][157][157][157]";P$
105 INPUT "HEIGHT (1-9)  5[157][157][157]";H
110 PRINT "WIDTH ";H;"[157][157][157][157]";:INPUT W:PRINT "DOWN OR SIDEWAYS (D/S)";
113 GET D$:IF D$<>"D" AND D$<>"S"THEN 113
118 INPUT "[147]MESSAGE";M$
120 FOR X=1 TO -H*(D$="S")-W*(D$="D"):P$(0)=P$(0)+" ":P$(1)=P$(1)+P$:NEXT
125 CB=(PEEK(56578)AND3)*16384+(PEEK(53272)AND14)*1024
130 OPEN 4,4
140 FOR X=1 TO LEN(M$):A=ASC(MID$(M$,X,1))
150 A=A-161-33*(A<255)-64*(A<192)-32*(A<160)+32*(A<98)-64*(A<64)
155 POKE 56334,PEEK(56334)AND254:POKE 1,PEEK(1)AND251
160 FOR Y=0 TO 7:C(Y)=PEEK(CB+A*8+Y):NEXT
165 POKE 1,PEEK(1)OR4:POKE 56334,PEEK(56334)OR1:IF D$="D" THEN 200
170 FOR Y=7 TO 0 STEP -1:FOR W1=1 TO W/2:FOR Z=7+(C(7)=0) TO 0 STEP -1
180 PRINT#4,P$(ABS((C(Z)AND(2^Y))=2^Y));:NEXT Z:PRINT#4:NEXT W1,Y,X:GOTO 220
200 FOR Y=0 TO 7:FOR W1=1 TO H/2:PRINT#4,TAB(40-W*4);:FOR Z=7 TO 0 STEP -1
210 PRINT#4,P$(ABS((C(Y)AND(2^Z))=2^Z));:NEXT Z:PRINT#4:NEXT W1,Y,X
220 CLOSE 4:PRINT "ANOTHER BANNER (Y/N)?":WAIT 198,1:GET A$:IF A$="Y" THEN RUN