home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / banner (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  659b  |  24 lines
  1. 0 rem the transactor volume 6 issue 02        bits & pieces section
  2. 100 rem**  banner by jeremy stewart  **
  3. 101 rem** for c64 and 80-col printer **
  4. 105 :
  5. 110 l=53248: open1,4
  6. 120 as$="*********":sp$="         "
  7. 130 rem 9 asterisks, 9 spaces -reduce for shorter characters
  8. 135 :
  9. 140 input"[147]input message";m$:print"[147]"m$
  10. 150 for y=1024 to 1023+len(m$):n=peek(y)
  11. 160 for z=1 to 8:a$(z)="":next z
  12. 170 poke 56334,peek(56334)and254
  13. 180 poke 1,peek(1)and251
  14. 190 for a=7 to 0 step-1:b=2^a
  15. 200 for c=(l+(n*8)+7)to(l+(n*8))step-1
  16. 210 p=peek(c): x=abs(a-8)
  17. 220 if(p and b)=b then a$(x)=a$(x)+as$:     goto 240
  18. 230 a$(x)=a$(x)+sp$: rem 9 spaces
  19. 240 next c,a
  20. 250 poke 1,peek(1)or4
  21. 260 poke 56334,peek(56334)or1
  22. 270 for j=1 to 8:for k=1 to 4:print#1,a$(j):next k,j
  23. 280 next y:close1
  24.