home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_B.d64 / anima+overlay (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  815b  |  26 lines
  1. 5 ifa=0thena=1:load"demo-sprites",8,1
  2. 10 rem ********************************
  3. 11 rem *                              *
  4. 12 rem * demo f. animation v. sprites *
  5. 13 rem *                              *
  6. 14 rem *   sprite 1+2 uebereinader    *
  7. 15 rem *       (overlaysprites)       *
  8. 16 rem *                              *
  9. 17 rem * sprite 1 wird animiert durch *
  10. 18 rem * wechsel der bloecke 252+253  *
  11. 19 rem *                              *
  12. 20 rem *  (p)(c) 1993 by 64'er m&t    *
  13. 21 rem *                              *
  14. 23 rem ********************************
  15. 25 v=53248
  16. 30 pokev,100:pokev+1,100:rem sprite 1+2
  17. 40 pokev+2,100:pokev+3,100:rem position
  18. 50 pokev+28,2:rem sprite 2 auf multicol
  19. 60 pokev+39,8:pokev+40,1:rem spritecol
  20. 70 pokev+37,11:pokev+38,10
  21. 80 poke2040,252:poke2041,254
  22. 90 pokev+21,3:rem sprites an
  23. 100 i=1-i:poke2040,252+i
  24. 110 forp=1to300:next:rem pause
  25. 120 goto100
  26.