home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_23_1988_Transactor_Publishing.d64 / color.ldr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  832b  |  27 lines
  1. 100 rem color mover
  2. 110 sa=51320:rem start address
  3. 120 ck=0
  4. 130 for m=0 to 127:readd
  5. 140 poke sa+m,d
  6. 150 ck=ck+d:next
  7. 160 if ck<>15890 then print"data error!":end
  8. 170 print"color mover installed":print sa "to" sa+127:print
  9. 180 print"to store colors:":print"sys" sa ",section # (0-15)":print
  10. 190 print"to retrieve colors:":print"sys" sa+4 ",section # (0-15)"
  11. 2000 data160,255,208,2,160,0,132,195
  12. 2010 data32,241,183,224,16,176,64,138
  13. 2020 data10,24,105,224,176,57,170,232
  14. 2030 data240,53,162,0,133,37,134,34
  15. 2040 data134,36,162,254,164,195,240,42
  16. 2050 data200,169,216,133,35,177,34,10
  17. 2060 data10,10,10,133,195,230,35,177
  18. 2070 data34,41,15,5,195,198,35,145
  19. 2080 data36,200,208,233,232,240,55,230
  20. 2090 data37,230,35,230,35,208,222,76
  21. 2100 data72,178,120,165,1,72,41,253
  22. 2110 data133,1,169,217,133,35,177,36
  23. 2120 data145,34,74,74,74,74,198,35
  24. 2130 data145,34,230,35,200,208,239,232
  25. 2140 data240,8,230,37,230,35,230,35
  26. 2150 data208,228,104,133,1,88,96,0
  27.