home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 June / 1986-06.d64 / monotones (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  403b  |  10 lines
  1. 10 poke53280,0:poke53281,0:dim c$(15):fora=0to15:readb:c$(a)=chr$(b):next
  2. 20 a$="this is really a glowing[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]demonstration"
  3. 30 a$=""+a$
  4. 40 print"[147]"spc(6)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  5. 50 printspc(6)"[221]"spc(26)"[221]":printspc(6)"[221]"spc(26)"[221]"
  6. 60 printspc(6)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  7. 70 fora=1to15:printc$(a)a$:next
  8. 80 fora=15to1step-1:printc$(a)a$:next:goto70
  9. 90 data 144,31,149,151,28,129,156,154,152,150,30,159,155,158,153,5
  10.