home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 March / 1993-03.d64 / colors (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  277b  |  13 lines
  1. 10 poke 53280,1:poke53281,1
  2. 20 printchr$(147)
  3. 30 forj=1to10:readc(j):next
  4. 40 b=4:h=32:r=18
  5. 50 poke214,24:print:poke211,b
  6. 60 fort=1to23:rem number of lines
  7. 70 foru=1to10:rem number of colors
  8. 80 printchr$(c(u))chr$(r)chr$(h);
  9. 90 nextu:print:printtab(t+b);:nextt
  10. 100 ford=1to1000:next
  11. 110 forp=1to25:print:next
  12. 120 data 149,28,129,150,158,153,159,154,156,31
  13.