



10DIM a%(471), bin%(6)
20HOME
30? " GETTING READY ... PLEASE WAIT"
40FOR i=0 TO 464 STEP 8
50FOR j=0 TO 7
60IF j=0 OR j=7 THEN  a%(i+j)=0:GOTO 80
70READ a%(i+j)
80NEXT j
90NEXT i
100 a%(80)=8
110 a%(87)=8
120 a%(367)=63
130 a%(447)=63
140FOR i=0 TO 6
150 bin%(i)=2^i
160NEXT i
170HOME
180? TAB(12); "*BANNER*"
190?
200? "HOW TALL DO YOU WANT THE"
210? "LETTERS IN YOUR BANNER?"
220?
230INPUT "(1=SHORTEST; 11=TALLEST)?"; cc
240IF cc<1 OR cc>11 THEN 220
250HOME
260? "WHAT CHARACTER SHALL I USE TO"
270? "COMPOSE THE LETTERS OF YOUR"
280? "BANNER?"
290?
300INPUT "(E.G., *,$,#)?"; ch$
310IF ch$="" THEN 250
320 ch$=LEFT$(ch$, 1)
330HOME
340? "PLEASE ENTER THE MESSAGE YOU"
350? "WANT PRINTED ON YOUR BANNER."
360? "DO NOT USE LOWERCASE LETTERS"
370? "OR COMMAS."
380?
390INPUT message$
400?
410? "WHEN YOUR PRINTER IS READY,"
420? "PLEASE PRESS ANY KEY."
430GET k$
440HOME
450PR #1
460FOR i=1 TO LEN(message$)
470 pntr=(ASC(MID$(message$, i, 1))-32)*8
480IF pntr<0 OR pntr>464 THEN  pntr=0
490FOR j=pntr TO pntr+7
500 ln$=""
510 v=a%(j)
520FOR k=6 TO 0 STEP -1
530IF v>=bin%(k) THEN  v=v-bin%(k): c$=ch$:GOTO 550
540 c$=" "
550FOR l=1 TO cc
560 ln$=c$+ln$
570NEXT l
580NEXT k
590FOR k=1 TO (cc+1)/2
600? ln$
610NEXT k
620NEXT j
630NEXT i
640PR #0
650HOME
660? "YOUR BANNER IS FINISHED."
670?
680? "PRESS <P> TO PRINT ANOTHER"
690? "BANNER OR <E> TO END."
700GET k$
710IF k$="P" OR k$="p" THEN 170
720IF k$<>"E" AND k$<>"e" THEN 700
730END
1000DATA  0,0,0,0,0,0,0,0,61,61,0,0
1010DATA  0,56,0,0,56,0,18,63,18,18,63,18
1020DATA  18,58,107,107,46,36,51,54,12,24,51,35
1030DATA  6,47,121,93,118,39,0,0,52,56,0,0
1040DATA  0,0,30,63,51,33,33,51,63,30,0,0
1050DATA  42,62,28,28,62,42,8,8,62,62,8,8
1060DATA 0,0,13,14,0,0,8,8,8,8,8,8
1070DATA 0,0,3,3,0,0,3,6,12,24,48,32
1080DATA  30,63,37,41,63,30,1,17,63,63,1,1
1090DATA  17,51,39,45,57,17,34,35,41,61,55,34
1100DATA  6,14,26,63,63,2,58,59,41,41,47,38
1110DATA  30,63,41,41,47,6,32,35,39,44,56,48
1120DATA  22,63,41,41,63,22,16,57,41,43,62,28
1130DATA  0,0,54,54,0,0,0,0,109,110,0,0
1140DATA  0,8,28,54,99,65,18,18,18,18,18,18
1150DATA  65,99,54,28,8,0,16,48,37,45,56,16
1160DATA  30,63,33,45,61,29,15,31,50,50,31,15
1170DATA  63,63,41,41,63,22,30,63,33,33,51,18
1180DATA  63,63,33,51,30,12,63,63,41,41,41,33
1190DATA  63,63,40,40,40,32,30,63,33,37,39,39
1200DATA  63,63,8,8,63,63,33,33,63,63,33,33
1210DATA  2,3,1,1,63,62,63,63,12,30,51,33
1220DATA  63,63,1,1,1,1,63,63,24,12,24,63
1230DATA  63,63,28,14,63,63,30,63,33,33,63,30
1240DATA  63,63,36,36,60,24,30,63,33,34,63,30
1250DATA  63,63,36,38,63,25,16,57,41,41,47,6
1260DATA  32,32,63,63,32,32,63,63,1,1,63,63
1270DATA  60,62,3,3,62,60,63,63,6,12,6,63
1280DATA  51,63,12,12,63,51,48,56,15,15,56,48
1290DATA  35,39,45,57,49,33

