home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 May / 64er_Magazin_86-05_1986_Markt__Technik_de.d64 / walk (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.