home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 March / Ahoy_Magazine_86-03_1986_Double_L.d64 / banner (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  801b  |  19 lines
  1. 100 print chr$(142):input "[147]print character  [214][157][157][157]";p$
  2. 105 input "height (1-9)  5[157][157][157]";h
  3. 110 print "width ";h;"[157][157][157][157]";:input w:print "down or sideways (d/s)";
  4. 113 get d$:if d$<>"d" and d$<>"s"then 113
  5. 118 input "[147]message";m$
  6. 120 for x=1 to -h*(d$="s")-w*(d$="d"):p$(0)=p$(0)+" ":p$(1)=p$(1)+p$:next
  7. 125 cb=(peek(56578)and3)*16384+(peek(53272)and14)*1024
  8. 130 open 4,4
  9. 140 for x=1 to len(m$):a=asc(mid$(m$,x,1))
  10. 150 a=a-161-33*(a<255)-64*(a<192)-32*(a<160)+32*(a<98)-64*(a<64)
  11. 155 poke 56334,peek(56334)and254:poke 1,peek(1)and251
  12. 160 for y=0 to 7:c(y)=peek(cb+a*8+y):next
  13. 165 poke 1,peek(1)or4:poke 56334,peek(56334)or1:if d$="d" then 200
  14. 170 for y=7 to 0 step -1:for w1=1 to w/2:for z=7+(c(7)=0) to 0 step -1
  15. 180 print#4,p$(abs((c(z)and(2^y))=2^y));:next z:print#4:next w1,y,x:goto 220
  16. 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
  17. 210 print#4,p$(abs((c(y)and(2^z))=2^z));:next z:print#4:next w1,y,x
  18. 220 close 4:print "another banner (y/n)?":wait 198,1:get a$:if a$="y" then run
  19.