home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / spritebewegung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  723b  |  38 lines
  1. 10 rem spritedemonstration
  2. 20 data 0,255,0
  3. 30 data 1,227,192
  4. 40 data 3,255,224
  5. 50 data 7,255,240
  6. 60 data 15,255,248
  7. 70 data 31,255,252
  8. 80 data 63,255,254
  9. 90 data 124,111,254
  10. 100 data 251,223,255
  11. 110 data 251,158,107
  12. 120 data 248,133,167
  13. 130 data 251,108,111
  14. 140 data 251,109,239
  15. 150 data 252,238,111
  16. 160 data 127,255,254
  17. 170 data 63,255,252
  18. 180 data 31,255,248
  19. 190 data 15,255,240
  20. 200 data 7,255,224
  21. 210 data 3,255,192
  22. 220 data 1,255,0
  23. 225 restore
  24. 230 ad=11*64:rem blockadresse fuer block 11
  25. 240 for q=ad to ad+62
  26. 250 read sw: poke q,sw
  27. 260 next q
  28. 270 rem sprite anschalten
  29. 280 vic=53248
  30. 290 poke2040,11:rem spritezeiger auf block 11
  31. 300 poke vic+39,2:rem spritefarbe 0 auf rot
  32. 310 poke vic+21,1:rem sprite 0 ein
  33. 320 rem spritebewegung
  34. 330 for x=20 to 255
  35. 340 y= 199-(abs(150*sin(x/20)))
  36. 350 pokevic,x:pokevic+1,y
  37. 360 next x:goto330
  38.