home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / SPRITE-ANIMATION (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  52 lines
  1. 1 PT=245
  2. 5 POKE 53281,0:POKE 53280,0
  3. 10 PRINT"รด"
  4. 11 SP=2040:VC=53248
  5. 12 PRINT"THIS IS A SPRITE DEMONSTRATION PROGRAM"
  6. 13 PRINT"THE UPPER LEFT SPRITE IS NORMAL SIZE"
  7. 14 PRINT"THE LOWER LEFT WAS DONE WITH A POKE"
  8. 15 PRINT"VC+23,(SPRITE BIT VALUE)"
  9. 16 PRINT"THE UPPEER RIGHT WAS DONE WITH POKE"
  10. 17 PRINT"VC+29,(SPRITE BIT VALUE)"
  11. 18 PRINT"THE LOWER RIGHT WAS DONE WITH THE"
  12. 19 PRINT"COMBINATION OF THE UPPER RIGHT AND"
  13. 20 PRINT"LOWER LEFT......HOW DO YA LIKE IT?"
  14. 21 FOR A=15680 TO 15936 STEP 64
  15. 22 FOR B=A TO A+62
  16. 30 READ C:POKEB,C
  17. 40 NEXTB
  18. 50 NEXTA
  19. 99 REM----SET UP SPRITE
  20. 100 POKESP,245:POKE VC,120:POKEVC+1,150
  21. 101 POKE VC+2,120:POKE VC+3,200
  22. 102 POKE VC+4,170:POKE VC+5,150
  23. 103 POKE VC+6,170:POKE VC+7,200
  24. 104 POKE VC+23,10:POKE VC+29,12
  25. 110 POKE VC+21,15
  26. 149 REM------SET MOVEMENT
  27. 150 FOR X=1 TO 23
  28. 155 NEXT X
  29. 156 POKE SP,PT:POKE SP+1,PT:POKE SP+2,PT:POKE SP+3,PT
  30. 157 PT=PT+1:IF PT=250 THEN PT=245
  31. 158 GOTO150
  32. 999 REM----RUNNING MAN 1
  33. 1000 DATA0,7,128,0,15,64,0,15,240,0,15,192,0,7,128,0,30,0,0,62,0,0,126,0
  34. 1010 DATA0,127,128,0,127,128,0,63,0,0,60,0,0,28,0,0,30,0,0,31,0,0,127,0,0,120,0
  35. 1020 DATA0,112,0,0,224,0,0,192,0,0,224,0
  36. 1099 REM---RUNNING MAN 2
  37. 1100 DATA0,0,0,0,7,128,0,15,64,0,15,240,0,15,192,0,7,128,0,126,0
  38. 1110 DATA 0,255,0,1,255,0,1,191,176,1,189,240,    
  39. 1120 DATA0,127,192,0,225,128,1,195,128,3,135,0,7,7,192,6,0,0,7,128,0
  40. 1199 REM---RUNNING MAN 3
  41. 1200 DATA0,0,0,0,7,128,0,15,64,0,15,240,0,15,192,0,7,128,1,254,3,3,255,135
  42. 1210 DATA7,63,238,14,126,252,28,124,56,24,248,0,0,248,0,0,254,0,0,255,128
  43. 1220 DATA0,127,224,31,241,224,31,240,112,16,0,114,16,0,62,0,0,56
  44. 1299 REM---RUNNING MAN 4
  45. 1300 DATA0,0,0,0,7,128,0,15,64,0,15,240,0,15,192,0,7,128,3,254,0,3,255,0
  46. 1310 DATA3,63,0,3,125,152,3,121,184,3,248,240,0,248,96,0,254,0,24,127,128
  47. 1320 DATA30,119,192,31,225,192,19,227,    
  48. 1399 REM---RUNNING MAN 5
  49. 1400 DATA0,7,128,0,15,64,0,15,240,0,15,192,0,7,128,0,62,0,0,127,0,0,255,0
  50. 1410 DATA1,254,0,0,252,0,0,127,0,0,63,0,0,60,0,3,28,0,3,254,0,3,255,0,2,15,0
  51. 1420 DATA0,14,0,0,28,0,0,58,0,0,60,0
  52.