home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 18 / 64er_Magazin_Sonderheft_18_19xx_Markt__Technik_de_Side_A.d64 / PAL-Gen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  950b  |  37 lines
  1. 10 rem ******************************
  2. 11 rem *   pal-gen                  *
  3. 12 rem * erzeugt code fuer pal      *
  4. 13 rem *     im graphik-mps 802     *
  5. 14 rem * im ram von $6000 bis $7fff *
  6. 15 rem * sowie auf disk als mps-pal *
  7. 16 rem * laufzeit ca 3 minuten      *
  8. 17 rem ******************************
  9. 18 rem
  10. 100 for i=6*4096 to 6*4096+4*256
  11. 101 poke i,255
  12. 102 nexti
  13. 110 for i=6*4096+4*256 to 8*4096 step 2
  14. 111 poke i,253
  15. 112 next i
  16. 120 for i=6*4096+4*256 to 6*4096+10*256 step 4
  17. 121 poke i+1,249:poke i+3,254
  18. 122 next i
  19. 130 for i=6*4096+10*256 to 7*4096+15*256 step 8
  20. 131 poke i+1,249:poke i+3,249
  21. 132 poke i+5,254:poke i+7,254
  22. 133 nexti
  23. 140 for i=7*4096+15*256 to 7*4096+15*256+14*16 step 16
  24. 141 poke i+1,249:poke i+3,249
  25. 142 poke i+5,249:poke i+7,249
  26. 143 poke i+9,254:poke i+11,254
  27. 144 poke i+13,254:poke i+15,254
  28. 145 nexti
  29. 150 for i=7*4096+15*256+14*16 to 7*4096+15*256+15*16 step 2
  30. 151 poke i+1,249
  31. 152 nexti
  32. 160 for i=7*4096+15*256+15*16 to 8*4096 step 2
  33. 161 poke i+1,254
  34. 162 nexti
  35. 200 open1,8,2,"mps-pal,p,w":print#1,chr$(0)chr$(96);
  36. 210 fori=6*4096to8*4096-1:print#1,chr$(peek(i));:next:close1
  37.