home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D5.D64 / animator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  800 b   |  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.