home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 April / 1993-04.d64 / color (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  540b  |  16 lines
  1. 50 poke53280,6:poke53281,6:print"[147]"
  2. 100 rem color restore
  3. 110 for i=52992 to 53042:read d:poke i,d:c=c+d:next
  4. 120 if c<>6705 then print "error in data statements":end
  5. 130 input "border color (0-15)";b
  6. 140 poke 53280,b
  7. 150 input "background color (0-15)";b
  8. 160 poke 53281,b
  9. 170 input "cursor color (0-15)";b
  10. 180 poke 646,b
  11. 190 sys 52992
  12. 200 data 173,134,2,141,160,207,173,33,208,141,162,207,173,32,208
  13. 210 data 141,161,207,162,29,160,207,142,0,3,140,1,3,96,172
  14. 220 data 160,207,140,134,2,172,161,207,140,32,208,172,162,207,140
  15. 230 data 33,208,76,139,227,0
  16.