home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_A.d64 / animation (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  346b  |  18 lines
  1. 10 vic=53248:spr=11:poke2040,spr
  2. 20 zi=spr*64:bg=40960:an=63
  3. 30 pokevic+23,1:pokevic+29,1
  4. 40 pokevic,24:pokevic+1,50:pokevic+39,0
  5. 50 print"[147]","[211]prite-[193]nimation"
  6. 80 pokevic+21,1
  7. 90 fori=bgto49151stepan:qu=i:gosub2100
  8. 110 next
  9. 150 pokevic+21,0
  10. 998 end
  11. 999 :
  12. 2100 z=zi:gosub2200:poke53,lo:poke54,hi
  13. 2105 z=qu:gosub2200:poke781,lo:poke782,hi
  14. 2110 poke780,an+1:sys46728
  15. 2120 return
  16. 2200 hi=int(z/256):lo=z-hi*256
  17. 2210 return
  18.