home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / sprite-demo1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.8 KB  |  217 lines
  1. 10 Cy:Dp2040:Cw:DsC3:C\0,14,15:D
  2. 20 Cu13,7,"sprite - demo"
  3. 30 Cu7,15,"bitte eine taste druecken"
  4. 40 C;
  5. 50 CI4,15,31,1,1
  6. 60 fori=1to150:next
  7. 70 geta$
  8. 80 C@a$<>""
  9. 90 Cy:Cu20,5
  10. 100 print"[154][215][157][157][215][157][157][215][157][157][215][157][157][157][169][223][146][144][165][157][157][157][157][169][160][160][223][157][157][157][157][144]    [157][157][157][157]  [149] [144] [157][157][157][157]  [149] [144] "
  11. 110 C{$60}0,13,40,12,160,5
  12. 120 :
  13. 130 D_   D   D{$60}
  14. 140 :
  15. 150 D1,13,0
  16. 160 :
  17. 170 D_    D     D{$60}
  18. 180 :
  19. 190 D"........................"
  20. 200 D"........................"
  21. 210 D"........................"
  22. 220 D".......bbbb............."
  23. 230 D".......bbbbbb..........."
  24. 240 D".......bbbb............."
  25. 250 D".......bbbb............."
  26. 260 D"........bb.......bb....."
  27. 270 D".......bbbb.....bb......"
  28. 280 D".......bbbbbbbbbb......."
  29. 290 D".......bbbbbbbbb........"
  30. 300 D".......bbbb............."
  31. 310 D".......bbbb............."
  32. 320 D".......bbbb............."
  33. 330 D".......bbbb............."
  34. 340 D".......bbbb............."
  35. 350 D".......bbbbb............"
  36. 360 D"......bbb.bb............"
  37. 370 D".....bbb..bb............"
  38. 380 D"....bb....bb............"
  39. 390 D"...bbbbb..bbbb.........."
  40. 400 D1,14,0
  41. 410 D"........................"
  42. 420 D"........................"
  43. 430 D"........................"
  44. 440 D".......bbbb............."
  45. 450 D".......bbbbbb..........."
  46. 460 D".......bbbb............."
  47. 470 D".......bbbb............."
  48. 480 D"........bb.......bb....."
  49. 490 D".......bbbb.....bb......"
  50. 500 D".......bbbbbbbbbb......."
  51. 510 D".......bbbbbbbbb........"
  52. 520 D".......bbbb............."
  53. 530 D".......bbbb............."
  54. 540 D".......bbbb............."
  55. 550 D"bb....bbbbbb............"
  56. 560 D"bbb..bb....bb..........."
  57. 570 D"b.bbbb......bb.........."
  58. 580 D"b..bb........bb........."
  59. 590 D".............bb........."
  60. 600 D"............bb.........."
  61. 610 D"...........bbbb........."
  62. 620 :
  63. 630 D_   D   D{$60}
  64. 640 :
  65. 650 D
  66. 660 :
  67. 670 D_   D   D{$60}
  68. 680 :
  69. 690 D1,110,133
  70. 700 Do13,14,6
  71. 710 fori=1to14
  72. 720 D1,13,i,1,0
  73. 730 Dq1
  74. 740 next
  75. 750 :
  76. 760 D_   D    D{$60}
  77. 770 :
  78. 780 D11,0
  79. 790 :
  80. 800 D_   D    D{$60}
  81. 810 :
  82. 820 D1,11,0
  83. 830 D"*/*/*/======"
  84. 840 D"/*/*/*//////"
  85. 850 D"*/*/*/======"
  86. 860 D"/*/*/*//////"
  87. 870 D"*/*/*/======"
  88. 880 D"/*/*/*//////"
  89. 890 D"============"
  90. 900 D"////////////"
  91. 910 D"============"
  92. 920 D"////////////"
  93. 930 D"============"
  94. 940 D"////////////"
  95. 950 D2,11,6,1,1
  96. 960 D1,2
  97. 970 :
  98. 980 D_   D   D{$60}
  99. 990 :
  100. 1000 C{$60}27,6,1,7,101,12
  101. 1010 D2,243,98
  102. 1020 :
  103. 1030 D_    D    D{$60}
  104. 1040 :
  105. 1050 D2,243,155,250
  106. 1060 :
  107. 1070 D_   D    D{$60}
  108. 1080 :
  109. 1090 D2
  110. 1100 :
  111. 1110 D_   D    D{$60}
  112. 1120 :
  113. 1130 D11,0:D1,11,0
  114. 1140 D"...*****......*****....."
  115. 1150 D"..**..***....***..**...."
  116. 1160 D".**.....**..**.....**..."
  117. 1170 D"**......**..**......**.."
  118. 1180 D"*........****........*.."
  119. 1190 D".........****..........."
  120. 1200 D"..........**............"
  121. 1210 D"..........**............"
  122. 1220 D"..........**............"
  123. 1230 D15,0:D1,15,0
  124. 1240 D"........................"
  125. 1250 D"........................"
  126. 1260 D"...*****........*****..."
  127. 1270 D"..********....********.."
  128. 1280 D"****....***..***....****"
  129. 1290 D"**.......******.......**"
  130. 1300 D"..........****.........."
  131. 1310 D"...........**..........."
  132. 1320 D"...........**..........."
  133. 1330 D1,138,133,150
  134. 1340 Do11,15,8:D1,11,11,1,0
  135. 1350 D1,1,0
  136. 1360 :
  137. 1370 D_    D    D{$60}
  138. 1380 :
  139. 1390 a=0:e=350
  140. 1400 fori=1to3
  141. 1410 D1,a,65,e,65,9:a=350-a:e=350-e
  142. 1420 next
  143. 1430 :
  144. 1440 D_    C    D{$60}
  145. 1450 :
  146. 1460 x=350:y=70
  147. 1470 C;
  148. 1480 x=x-3:y=y+1
  149. 1490 D1,x,y
  150. 1500 C@C(1)=1
  151. 1510 :
  152. 1520 D_  D!  D{$60}
  153. 1530 :
  154. 1540 C]27,8,1,5,2:Cu26,12,"[164][204][164]"
  155. 1550 Do:D!11,0:D1,11,2,0,0
  156. 1560 D1,255,133,20
  157. 1570 :
  158. 1580 D_  D   D{$60}
  159. 1590 :
  160. 1600 Dp2041:D2,140,133:D2,13,14,1,0:Do13,14,6
  161. 1610 D2,325,133,80
  162. 1620 D13,0,1:D14,0,1
  163. 1630 D2,323,133,323,20,70
  164. 1640 :
  165. 1650 D_    D    D{$60}
  166. 1660 :
  167. 1670 D13,0:D1,13,0
  168. 1680 D"************************",9
  169. 1690 D"**....****....****....**"
  170. 1700 D"**....****....****....**"
  171. 1710 D"************************"
  172. 1720 D14,0:D1,14,0
  173. 1730 D"........................"
  174. 1740 D"........................"
  175. 1750 D"...........**..........."
  176. 1760 D"...........**..........."
  177. 1770 D"..........****.........."
  178. 1780 D"........********........"
  179. 1790 D"....****************...."
  180. 1800 D".**********************."
  181. 1810 D"........................"
  182. 1820 D"........................"
  183. 1830 D"........................"
  184. 1840 D"........................"
  185. 1850 D".**********************."
  186. 1860 D"......************......"
  187. 1870 D"..........*****........."
  188. 1880 D13,0,14,0,15,0
  189. 1890 D3,15,12,0,0
  190. 1900 D3,1,0
  191. 1910 D3,0,60,128,60,4
  192. 1920 D3,128,80,4
  193. 1930 :
  194. 1940 D_   D   D{$60}
  195. 1950 :
  196. 1960 D4,13,11,0,0:D4,1,0:D4,128,80
  197. 1970 D5,14,12,0,0:D5,1,0:D5,128,80:D3
  198. 1980 fory=4to13step0.3
  199. 1990 D$l13,0,1,1
  200. 2000 C_14,y,6,1,32
  201. 2010 fori=1to100:next
  202. 2020 next
  203. 2030 D3,15,12,0,0:D4:D5
  204. 2040 D3,128,125,4
  205. 2050 D3,0,125,4:D3
  206. 2060 :
  207. 2070 D13,0:D1,13,0
  208. 2080 D"..****.................."
  209. 2090 D".******................."
  210. 2100 D".**..**................."
  211. 2110 D".**..**................."
  212. 2120 D".******................."
  213. 2130 D"..****.................."
  214. 2140 D8,13,14,0,0:D8,184,91:Cu20,5," "
  215. 2150 D8,250,40,150
  216. 2160 Cta$
  217.