home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #5 / Commodore_Disk_User_Vol.2_5_1989_-.d64 / animator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  800b  |  27 lines
  1. 1 a=a+1
  2. 2 ifa=1thenload"animator code",8,1
  3. 5 rem******************************
  4. 10 data11,12,15,1,1,15,12,11
  5. 20 poke53280,0:poke53281,0:print"[147]"
  6. 30 ifpeek(49152)<>32thenprint"please load animator code first.":end
  7. 40 print"[158]please wait..processing sprites"
  8. 50 poke52,48:poke56,48:clr
  9. 60 rem****set up sprites******
  10. 70 fora=0to64*16:poke12288+a,0:next
  11. 80 fora=64*8to0step-61:poke12288+a,255:poke12289+a,255:poke12290+a,255:next
  12. 90 fora=64*8to64*16step67:poke12224+a,255:poke12225+a,255:poke12226+a,255:next
  13. 100 v=53248
  14. 110 fora=0to14step2:pokev+a,80+co:co=co+24:next
  15. 120 fora=1to15step2:pokev+a,150:next
  16. 130 poke1544+19,87:poke1544+20,87
  17. 140 poke646,1:printchr$(147):print" demo of animation by clive horner"
  18. 150 poke1544+19,87:poke1544+20,87
  19. 160 fora=0to7:readda:pokev+39+a,da:next
  20. 170 rem****handle animation*****
  21. 180 fora=0to7:sys49152,a,192,15,0,1:next
  22. 190 fora=0to7:sys49845,a
  23. 200 fort=1to100:next:next
  24. 210 rem****turn on all sprites****
  25. 220 pokev+21,255
  26. 230 end
  27.