home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8605.d64 / walk (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  107 lines
  1. 20 REM *** SPRITE-ANIMATION    ***
  2. 25 REM *** C 64 + SIMONS BASIC ***
  3. 90 db0,192*64
  4. 100 @........................
  5. 110 @..........BBBB..........
  6. 120 @........BBBBBBBB........
  7. 130 @..........BBBB..........
  8. 140 @..........BBBB..........
  9. 150 @...........BB...........
  10. 160 @..........BBBB..........
  11. 170 @.........BBBBBB.........
  12. 180 @........BBBBBBBB........
  13. 190 @.......BB.BBBB.BB.......
  14. 200 @......BB..BBBB..B.......
  15. 210 @.....BB...BBBB..B.......
  16. 220 @....BB....BBBB..B.......
  17. 230 @.........BBBBB..B.......
  18. 240 @........BB...BB.........
  19. 250 @........BB...BB.........
  20. 260 @.......BB.....BB........
  21. 270 @.......BB.....BB........
  22. 280 @......BB.......BB.......
  23. 290 @....B.BB........BB......
  24. 300 @.....BB........BB.......
  25. 390 db0,193*64
  26. 400 @..........BBBB..........
  27. 410 @........BBBBBBBB........
  28. 420 @..........BBBB..........
  29. 430 @..........BBBB..........
  30. 440 @...........BB...........
  31. 450 @..........BBBB..........
  32. 460 @.........BBBBBB.........
  33. 470 @........BBBBBBBB........
  34. 480 @........BBBBBB.B........
  35. 490 @.......BB.BBBB.B........
  36. 500 @......BB..BBBB.B........
  37. 510 @.....BB...BBBB.B........
  38. 520 @.........BBBBB.B........
  39. 530 @.........BB.BB..........
  40. 540 @........BB..BB..........
  41. 550 @........BB..BB..........
  42. 560 @.......BB...BB..........
  43. 570 @.......BB....BB.........
  44. 580 @.......BB....BB.........
  45. 590 @.......BB....BB.........
  46. 600 @.....BBBB..BBBB.........
  47. 690 db0,194*64
  48. 700 @..........BBBB..........
  49. 710 @........BBBBBBBB........
  50. 720 @..........BBBB..........
  51. 730 @..........BBBB..........
  52. 740 @...........BB...........
  53. 750 @..........BBBB..........
  54. 760 @.........BBBBBB.........
  55. 770 @.........BBBBBB.........
  56. 780 @........BBBBBBB.........
  57. 790 @........BBBBBBB.........
  58. 800 @......BB..BBBBB.........
  59. 810 @......BB..BBBB..........
  60. 820 @..........BBBB..........
  61. 830 @..........BBBB..........
  62. 840 @.........BBBB...........
  63. 850 @.........BBBB...........
  64. 860 @.........BBBB...........
  65. 870 @..........BBBB..........
  66. 880 @..........BB.BB.........
  67. 890 @..........BBBBB.........
  68. 900 @........BBBBB...........
  69. 990 db0,195*64
  70. 1000 @..........BBBB..........
  71. 1010 @........BBBBBBBB........
  72. 1020 @..........BBBB..........
  73. 1030 @..........BBBB..........
  74. 1040 @...........BB...........
  75. 1050 @..........BBBB..........
  76. 1060 @..........BBBB..........
  77. 1070 @..........BBBB..........
  78. 1080 @.........BBBBB..........
  79. 1090 @.........BBBBB..........
  80. 1100 @........BBBBBB..........
  81. 1110 @.......BB.BBBB..........
  82. 1120 @..........BBBB..........
  83. 1130 @..........BBBB..........
  84. 1140 @..........BBBB..........
  85. 1150 @.........BBBB...........
  86. 1160 @.........BBBB...........
  87. 1170 @.........BBBB...........
  88. 1180 @.........BB.BB..........
  89. 1190 @.......BBBB.BB..........
  90. 1200 @..........BBBB..........
  91. 1210 :
  92. 1220 REM *** BEWEGUNG ***
  93. 1230 :
  94. 1900 FOR L=340 TO 0 STEP-3
  95. 1910 REM *** NAECHSTES BILD ***
  96. 1920 READ I
  97. 1940 IF I=0 THEN RESTORE:READ I
  98. 2000 REM *** SPRITE UMDEFINIEREN ***
  99. 2010 d 0,191+I,11,1,0
  100. 2015 REM *** SPRITE BEWEGEN ***
  101. 2020 d 0,L,208,L,208,2,10
  102. 2030 FOR J=1 TO 55:NEXT
  103. 2040 NEXT
  104. 2050 RESTORE:GOTO 1900
  105. 2190 REM *** REIHENFOLGE DER BILDER ***
  106. 2200 DATA 1,2,3,4,2,0
  107.