home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 February / 1985-02.d64 / color-swap_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  89 lines
  1. 10 rem *color-swap 64*   n is ml code, a is address, and i does the counting.
  2. 20 n=74:fora=685to690step5:fori=0to3:pokea+i,n:nexti:pokea+i,96:n=n-64:nexta
  3. 30 ck=0:fori=0to9:x=peek(685+i):ck=ck+x:next
  4. 40 rem ck is checksum and x one of its components.
  5. 50 ifck<>528thenprint"[147] check line 20 for errors.":end
  6. 100 ck=0:fora=702to750:readn:pokea,n:ck=ck+n:nexta
  7. 110 ifck<>5158thenprint"[147] check lines 702-750 for errors.":end
  8. 120 ra=49152:ra$=str$(ra):l=len(ra$):ra$=right$(ra$,l-1):rem ra is reloc. adr.
  9. 130 ck=0:fora=ratora+392:readn:pokea,n:ck=ck+n:nexta
  10. 140 ifck<>46713thenprint"[147] check lines 49152-49542 for errors.":end
  11. 150 print"[147]poke 700,oc:poke 701,nc:sys"ra$"        to swap colors"
  12. 160 print:print"where oc is the code for the old color,"
  13. 170 print"and nc is the code for the new color.":end
  14. 702 data 216,173,188,2,41,15
  15. 708 data 141,188,2,173,189,2
  16. 714 data 41,15,141,189,2,169
  17. 720 data 0,141,172,2,141,171
  18. 726 data 2,141,169,2,141,170
  19. 732 data 2,96,173,33,208,41
  20. 738 data 15,205,188,2,208,6
  21. 744 data 173,189,2,141,33,208
  22. 750 data 96
  23. 49152 data 32,190,2,173,134,2
  24. 49158 data 41,15,205,188,2,208
  25. 49164 data 9,173,189,2,141,134
  26. 49170 data 2,32,190,2,173,32
  27. 49176 data 208,41,15,205,188,2
  28. 49182 data 208,9,173,189,2,141
  29. 49188 data 32,208,32,190,2,32
  30. 49194 data 222,2,32,190,2,173
  31. 49200 data 37,208,41,15,205,188
  32. 49206 data 2,208,6,173,189,2
  33. 49212 data 141,37,208,173,38,208
  34. 49218 data 41,15,205,188,2,208
  35. 49224 data 6,173,189,2,141,38
  36. 49230 data 208,160,0,185,39,208
  37. 49236 data 41,15,205,188,2,208
  38. 49242 data 6,173,189,2,153,39
  39. 49248 data 208,200,192,8,208,235
  40. 49254 data 32,190,2,173,17,208
  41. 49260 data 41,64,240,22,32,222
  42. 49266 data 2,173,36,208,41,15
  43. 49272 data 205,188,2,208,6,173
  44. 49278 data 189,2,141,36,208,24
  45. 49284 data 144,7,173,22,208,41
  46. 49290 data 16,240,37,169,255,141
  47. 49296 data 170,2,173,34,208,41
  48. 49302 data 15,205,188,2,208,6
  49. 49308 data 173,189,2,141,34,208
  50. 49314 data 173,35,208,41,15,205
  51. 49320 data 188,2,208,6,173,189
  52. 49326 data 2,141,35,208,173,17
  53. 49332 data 208,41,32,208,5,169
  54. 49338 data 255,141,169,2,173,0
  55. 49344 data 221,41,3,201,3,208
  56. 49350 data 4,162,0,134,254,201
  57. 49356 data 2,208,4,162,64,134
  58. 49362 data 254,201,1,208,4,162
  59. 49368 data 128,134,254,201,0,208
  60. 49374 data 4,162,192,134,254,173
  61. 49380 data 24,208,41,240,32,173
  62. 49386 data 2,32,180,2,101,254
  63. 49392 data 133,254,169,0,133,253
  64. 49398 data 169,0,133,251,169,216
  65. 49404 data 133,252,162,0,142,167
  66. 49410 data 2,162,0,142,168,2
  67. 49416 data 162,234,142,183,2,160
  68. 49422 data 0,177,251,41,15,205
  69. 49428 data 188,2,208,5,173,189
  70. 49434 data 2,145,251,173,169,2
  71. 49440 data 201,255,208,2,240,55
  72. 49446 data 177,253,41,15,141,171
  73. 49452 data 2,205,188,2,208,6
  74. 49458 data 173,189,2,141,171,2
  75. 49464 data 177,253,41,240,141,172
  76. 49470 data 2,32,173,2,205,188
  77. 49476 data 2,208,13,173,189,2
  78. 49482 data 32,178,2,24,109,171
  79. 49488 data 2,24,144,7,173,172
  80. 49494 data 2,24,109,171,2,145
  81. 49500 data 253,200,204,168,2,240
  82. 49506 data 2,208,170,174,183,2
  83. 49512 data 224,96,208,1,96,238
  84. 49518 data 167,2,230,252,230,254
  85. 49524 data 162,3,236,167,2,240
  86. 49530 data 2,208,144,162,232,142
  87. 49536 data 168,2,162,96,142,183
  88. 49542 data 2,208,132
  89.