home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / colorruptor (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  30 lines
  1. 10 rem ** colorruptor **
  2. 20 fora=53088to53247:readi:pokea,i:next
  3. 30 sys53088
  4. 40 print"[147]colorruptor is now in place."
  5. 50 print:print"back arrow key halts program execution.":print
  6. 60 print"function keys: 1. change border color"
  7. 70 print"               3. change screen color"
  8. 80 print"               5. change text color"
  9. 90 print"               7. resume program":print:new
  10. 100 data120,173,40,3,141,248,207,173
  11. 110 data41,3,141,249,207,173,250,207
  12. 120 data141,40,3,173,251,207,141,41
  13. 130 data3,88,96,165,145,201,253,208
  14. 140 data116,120,169,0,133,198,32,159
  15. 150 data255,32,228,255,201,0,240,246
  16. 160 data201,133,240,15,201,134,240,23
  17. 170 data201,135,240,31,201,136,240,84
  18. 180 data76,130,207,173,32,208,24,105
  19. 190 data1,141,32,208,76,130,207,173
  20. 200 data33,208,24,105,1,141,33,208
  21. 210 data76,130,207,165,243,141,252,207
  22. 220 data165,244,141,253,207,169,0,133
  23. 230 data243,169,216,133,244,173,134,2
  24. 240 data24,105,1,141,134,2,162,4
  25. 250 data160,0,145,243,136,208,251,202
  26. 260 data240,5,230,244,76,216,207,173
  27. 270 data252,207,133,243,173,253,207,133
  28. 280 data244,76,130,207,88,108,248,207
  29. 290 data237,246,123,207,2,0,255,255
  30.