home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503d.d64 / libra (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  20KB  |  581 lines
  1. 0 REM ******************************
  2. 1 REM *                            *
  3. 2 REM *  LIBRA (C) 1985 FUER C-64  *
  4. 3 REM *      CHRISTIAN WURZER      *
  5. 4 REM *       GRUENTENWEG 14       *
  6. 5 REM *      8500 NUERNBERG 50     *
  7. 6 REM *      TEL.: 0911/863174     *
  8. 7 REM *                            *
  9. 8 REM ******************************
  10. 9 GOSUB40000:GOTO1000
  11. 10 REM ** KOLLISION ?
  12. 11 :
  13. 15 FORT=0TO2
  14. 16 IFPEEK(53246)=1THEN25
  15. 18 NEXT:RETURN
  16. 25 REM ** KOLLISION
  17. 26 :
  18. 27 POKEV+30,0:POKEV+31,0
  19. 29 L=L-1:POKEV,57:POKEV+1,199
  20. 30 IFL=-1THEN40
  21. 31 POKE214,22:POKE211,35:SYS58640
  22. 32 PRINT"[149]"STR$(L)
  23. 33 FORT=30TO1STEP-1:POKE51206,T:SYS51200:NEXT
  24. 34 POKE53246,0:RETURN
  25. 40 REM ** GAME OVER
  26. 41 :
  27. 42 POKEV+21,0:PRINT"[147]":PRINTTAB(15)"[155]GAME OVER"
  28. 44 PRINT"    FEUERKNOPF DRUECKEN UM DAS SPIEL"
  29. 45 PRINTTAB(11)"ERNEUT ZU STARTEN":PRINTTAB(14)"SCORE ="SC
  30. 46 :
  31. 48 IFPEEK(56320)<>111THEN46
  32. 49 GOTO15000
  33. 50 REM ** BILD 1
  34. 51 POKEV+17,PEEK(V+17)AND239
  35. 52 REM ** EXTRA-DATEN
  36. 53 :
  37. 54 POKE50168,40:POKE50169,41:POKE50170,43:POKE50171,44:POKE50172,44
  38. 55 POKE50173,41:POKE50174,46
  39. 56 POKEV+4,72:POKEV+5,110:POKEV+6,230:POKEV+7,127:POKEV+41,1
  40. 57 POKEV+23,4:POKEV+29,4
  41. 58 :
  42. 62 GOTO30000
  43. 63 POKEV+17,PEEK(V+17)OR16
  44. 80 TI$="000000":HE=99:POKEV+21,79
  45. 81 GOSUB720:L=L+1:GOSUB25:GT=0
  46. 100 SYS50400
  47. 112 POKEV+30,0:POKEV+31,0
  48. 120 REM ** BILD 1 BEENDET ?
  49. 125 IFPEEK(V+1)<45THEN603
  50. 200 :
  51. 205 IFVAL(TI$)<(LE-2)THEN300
  52. 206 :
  53. 207 REM ** UHR
  54. 208 HE=HE-1:IFHE=-1THENHE=99:GOSUB25
  55. 209 POKE214,4:POKE211,24:SYS58640
  56. 210 POKE49337,160:POKE49338,160:PRINT"[149]"HE
  57. 215 POKE49702,35:POKE49742,36:POKE49782,35:POKE49822,36
  58. 220 POKE49776,35:POKE49816,36:POKE49856,35:POKE49896,36:POKE51206,120:SYS51200
  59. 240 FORT=1TO5:POKE55920,T:POKE55960,T:POKE56000,T:POKE56040,T
  60. 241 POKE55846,T:POKE55886,T:POKE55926,T:POKE55966,T:NEXT
  61. 245 POKE49702,32:POKE49742,32:POKE49782,32:POKE49822,32
  62. 250 POKE49776,32:POKE49816,32:POKE49856,32:POKE49896,32:TI$="000000"
  63. 300 :
  64. 400 REM ** KOLLISION ?
  65. 401 :
  66. 405 GOSUB10:GOTO100
  67. 603 REM ** BILD 2
  68. 605 :
  69. 610 REM ** EXTRA-DATEN
  70. 611 :
  71. 612 POKEV+29,0:POKE50170,45:POKEV+4,56
  72. 620 :
  73. 621 POKEV+17,PEEK(V+17)AND239
  74. 622 POKEV+21,0:GOTO32000
  75. 623 POKEV,56:POKEV+1,199:SC=SC+(HE*10)+100
  76. 624 POKEV+8,200:POKEV+9,167:POKE715,0:POKEV+11,0
  77. 625 POKEV+17,PEEK(V+17)OR16:HE=0
  78. 626 GOSUB720:POKEV+21,247:L=L+1:GOSUB25
  79. 630 HE=HE+1:IFHE=1THENPOKE50175,51
  80. 631 IFHE=2THENPOKE50175,52
  81. 632 IFHE=3THENPOKE50175,53
  82. 633 IFHE=4THENPOKE50175,54
  83. 634 IFHE=5THENPOKE50175,55
  84. 635 IFHE=6THENPOKE50175,54
  85. 636 IFHE=7THENPOKE50175,53
  86. 637 IFHE=8THENPOKE50175,52:HE=0
  87. 638 :
  88. 639 :
  89. 640 REM ** BILD 2 BEENDET ?
  90. 641 :
  91. 642 IFPEEK(V+1)<45THEN800
  92. 643 POKE53240,0
  93. 644 REM ** SPERREN ?
  94. 645 IFVAL(TI$)<5THEN652
  95. 646 POKE51206,255:SYS51200
  96. 647 POKE49526,37:POKE49527,38:POKE49528,37:POKE49529,38:POKE49530,37
  97. 648 POKE49531,38:POKE49532,37:POKE49533,38:FORT=1TO4:POKE55670,T:POKE55671,T
  98. 649 POKE55672,T:POKE55673,T:POKE55674,T:POKE55675,T:POKE55676,T:POKE55677,T
  99. 650 NEXT:POKE49526,32:POKE49527,32:POKE49528,32:POKE49529,32:POKE49530,32
  100. 651 POKE49531,32:POKE49532,32:POKE49533,32:TI$="000000"
  101. 652 REM ** KOLLISION ?
  102. 653 :
  103. 654 GOSUB10
  104. 660 REM ** RAKETE DES GEGNERS
  105. 661 :
  106. 670 IFPEEK(715)<>0THEN680
  107. 675 POKEV+10,PEEK(V+8):POKE715,255:POKEV+11,152:POKE714,0
  108. 677 POKE51206,30:SYS51200
  109. 680 REM ** GEGNER VERNICHTET ?
  110. 681 :
  111. 683 FORT=0TO2:IFPEEK(53240)=1THEN685
  112. 684 NEXT:GOTO630
  113. 685 REM ** GEGNER VERNICHTET
  114. 686 :
  115. 687 POKE707,0:POKE53248+3,0:SC=SC+100:GT=GT+1:GOSUB720
  116. 688 POKE214,19:POKE211,16:SYS58640:PRINT"[149]"GT
  117. 689 IFGT<>20THEN630
  118. 690 POKE49743,32:POKE49783,32:POKE49823,32
  119. 691 POKEV+21,199:POKEV+10,0
  120. 692 FORT=0TO5:POKEV+33,1:POKE51206,T:SYS51200:POKEV+33,0:NEXT
  121. 703 GOTO640
  122. 720 REM ** SCORE
  123. 721 :
  124. 724 POKE214,22:POKE211,7:SYS58640:PRINT"[149]"SC:RETURN
  125. 764 :
  126. 800 REM ** BILD 3
  127. 801 :
  128. 820 POKEV+17,PEEK(V+17)AND239
  129. 822 POKEV+21,0:GOTO33000
  130. 823 HE=0:TI$="000000":BO=100
  131. 824 SC=SC+100:GOSUB720
  132. 825 POKEV+17,PEEK(V+17)OR16
  133. 826 POKEV+21,223:L=L+1:GOSUB25
  134. 850 REM ** FEUER / BLITZE ?
  135. 851 :
  136. 852 HE=HE+1:IFHE=1THENPOKE50175,48
  137. 853 IFHE<>1THEN860
  138. 855 POKE51206,1:SYS51200:POKE49770,45:POKE49771,46:POKE49772,45:POKE49773,46
  139. 856 FORT=1TO4:POKE55914,T:POKE55915,T:POKE55916,T:POKE55917,T:NEXT
  140. 857 POKE49770,32:POKE49771,32:POKE49772,32:POKE49773,32
  141. 858 BO=BO-1:POKE214,20:POKE211,14:SYS58640:PRINT"[149]      [157][157][157][157][157]"BO
  142. 859 IFBO=0THENGOSUB25:BO=100
  143. 860 IFHE=2THENPOKE50175,49
  144. 862 IFHE=3THENPOKE50175,50
  145. 863 IFHE<>4THEN880
  146. 864 POKE50175,49:HE=0:POKE51206,250:SYS51200:POKE49779,35
  147. 866 POKE49819,35:POKE49859,36:POKE49281,36:POKE49321,35:POKE49361,36
  148. 867 FORT=1TO5:POKE55923,T:POKE55963,T:POKE56003,T:POKE55425,T:POKE55465,T
  149. 868 POKE55505,T:NEXT
  150. 869 POKE49779,32:POKE49819,32:POKE49859,32:POKE49281,32:POKE49321,32
  151. 870 POKE49361,32
  152. 880 :
  153. 882 :
  154. 885 :
  155. 890 :
  156. 900 REM ** BILD 3 BEENDET ?
  157. 901 :
  158. 902 IFPEEK(V+1)<45THEN920
  159. 910 REM ** KOLLISION ?
  160. 911 :
  161. 912 GOSUB10
  162. 913 GOTO850
  163. 920 REM ** BILD 4
  164. 921 :
  165. 922 :
  166. 923 POKEV+17,PEEK(V+17)AND239
  167. 925 GOTO34000
  168. 926 HE=0:POKEV+21,95:SC=SC+BO*20:GOSUB720
  169. 927 POKEV+17,PEEK(V+17)OR16
  170. 928 L=L+1:GOSUB25
  171. 929 :
  172. 930 GOSUB10:HE=HE+1:IFHE=1THENPOKEV+21,95:POKE696,3
  173. 931 IFHE=30THENPOKEV+21,79:POKE696,200
  174. 932 IFHE=60THENHE=0
  175. 933 IFHE<>10THEN937
  176. 934 POKE51206,1:SYS51200:POKE49739,32:POKE49779,32:POKE49819,32:POKE49859,32
  177. 935 POKE49899,32:FORT=0TO550:NEXT
  178. 936 POKE49739,39:POKE49779,40:POKE49819,40:POKE49859,40:POKE49899,41
  179. 937 IFHE<>2THEN940
  180. 938 POKE51206,1:SYS51200:POKE49721,32:POKE49761,32:POKE49801,32:FORT=0TO550
  181. 939 NEXT:POKE49721,39:POKE49761,40:POKE49801,41
  182. 940 IFPEEK(V+1)<45THEN950:REM ** BILD 4 BEENDET ?
  183. 945 GOTO930
  184. 950 REM ** BILD 4 BEENDET
  185. 951 :
  186. 952 :
  187. 960 SC=SC+500:POKEV+21,0:IFINT(LE)<>3THENLE=LE-.5
  188. 965 PRINT"[147][149][][]  [\\\\\\\\\\\\\\\\\\\\\\\\\\]  [][]"
  189. 966 PRINT"[145]^_\\][\\\\\\\CONGRATULATON[146]\\\\\\\\][\\^_"
  190. 967 PRINT"[145]  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  "
  191. 968 PRINT"[145]][\\^_\\GET READY FOR NEXT ROUND[146]\\^_\\]["
  192. 969 PRINT"[145]_^_^  _\\\\\\\\\\\\\\\\\\\\\\\\\\^  _^_^"
  193. 970 :
  194. 972 FORT=130TO1STEP-1:POKE51206,T:SYS51200:NEXT
  195. 973 FORT=2TO130:POKE51206,T:SYS51200:NEXT:FORT=0TO300:NEXT
  196. 976 GOTO50
  197. 1000 REM ** BITTE WARTEN
  198. 1010 :
  199. 1011 PRINT"[147]":POKE53280,0:POKE53281,0
  200. 1030 PRINTTAB(13)"BITTE WARTEN"
  201. 1040 PRINTTAB(7)"DATEN WERDEN EINGELESEN"
  202. 1050 :
  203. 1500 REM ** MASCHINENPROGRAMM
  204. 1501 :
  205. 1502 DATA120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240,133
  206. 1503 DATA89,169,224,133,91,32,191,163,169,55,133,1,88,96
  207. 2002 DATA120,169,196,141,21,3,169,237,141,20,3,88,96,174
  208. 2003 DATA0,208,142,12,208,174,1,208,142,13,208,173,16,208,41,1,170,224,1,208
  209. 2004 DATA8,173,16,208,9,64,141,16,208,224,0,208,8,173,16,208,41,191,141,16,208
  210. 2005 DATA174,0,220,224,112,176,73,174,195,2,224,0,208,66,173,16,208,41,253,141
  211. 2006 DATA16,208,173,16,208,41,1,170,224,1,208,6,238,16,208,238,16,208,174,0,208
  212. 2007 DATA142,2,208,174,1,208,142,3,208,162,1,142,195,2,162,0,142,4,212
  213. 2008 DATA162,4,142,1,212,162,10,142,5,212,162,15,142,24,212,162,129,142,4,212
  214. 2010 DATA174,31,208,142,255,207,174,30,208,142,249,207
  215. 2011 DATA173,255,207,41,2,170,224,2,208,8,162,0,142,195,2,142,3,208
  216. 2013 DATA173,255,207,41,32,170,224,32,208,8,162,0,142,203,2,142,11,208
  217. 2015 DATA173,255,207,41,1,170,224,1,208,23,162,57,142,0,208,162,199,142,1,208
  218. 2016 DATA173,16,208,41,254,141,16,208,162,1,142,254,207,169,0,141,192,2,141,193
  219. 2017 DATA2,173,249,207,41,1,170,224,1,208,23,162,57,142,0,208,162,199,142,1,208
  220. 2018 DATA173,16,208,41,254,141,16,208,162,1,142,254,207,169,0,141,192,2,141,193
  221. 2019 DATA2,174,233,207,224,1,208,24,174,7,208,224,70,176,5,162,1,142,199,2,174
  222. 2020 DATA7,208,224,135,144,5,162,255,142,199,2,173,249,207,41,18
  223. 2021 DATA170,224,18,208,5,162,1,142,248,207
  224. 2103 DATA173,0,220,41,239,141,253,207,174,254,207,224,1,240,112
  225. 2105 DATA174,253,207,224,107,208,5,169,255,141,192,2,174,253,207,224,103
  226. 2106 DATA208,5,169,1,141,192,2
  227. 2107 DATA174,253,207,224,110,208,5,169,255,141,193,2,174,253,207,224,109,208,5
  228. 2108 DATA169,1,141,193,2,174,253,207,224,106,208,8,169,255,141,193,2,141,192,2
  229. 2109 DATA174,253,207,224,102,208,10,169,255,141,193,2,169,1,141,192,2
  230. 2110 DATA174,253,207,224,105,208,10,169,1,141,193,2,169,255,141,192,2
  231. 2111 DATA174,253,207,224,101,208,8,169,1,141,193,2,141,192,2
  232. 2119 DATA173,16,208,41,1,170,224,1,240,12,174,0,208,224,30,176,17,169,1
  233. 2120 DATA141,192,2,174,0,208,224,60,144,5,169,255,141,192,2
  234. 2150 DATA174,1,208,224,40,176,5,169,1,141,193,2,174,1,208,224,200,144,5,169,255
  235. 2151 DATA141,193,2
  236. 2182 DATA174,5,208,224,90,176,5,162,1,142,197,2,174,5,208,224,154,144,5,162,255
  237. 2183 DATA142,197,2
  238. 2184 DATA174,6,208,224,182,176,5,162,1,142,198,2,174,6,208,224,232,144,5,162
  239. 2185 DATA255,142,198,2
  240. 2193 DATA174,8,208,224,150,176,5,162,1,142,200,2,174,8,208,224,240,144,5,162
  241. 2194 DATA255,142,200,2
  242. 2196 DATA238,250,207,174,250,207,224,2,208,5,169,46,141,254,195
  243. 2197 DATA174,250,207,224,12,208,10,169,47,141,254,195,169,2,141,45,208
  244. 2198 DATA174,250,207,224,30,208,10,169,0,141,250,207,169,1,141,45,208
  245. 2219 DATA162,15,169,128,141,61,3,141
  246. 2220 DATA60,3,222,208,2,208,44,189,176,2,157,208,2,189,192,2,240,33,16,12,189,0
  247. 2230 DATA208,8,222,0,208,40,240,7,208,19,254,0,208,208,14,173,60,3,208,9,173,61
  248. 2240 DATA3,77,16,208,141,16,208,173,60,3,208,3,78,61,3,73,128,141,60,3,202,16
  249. 2250 DATA191,76,49,234,-1
  250. 3010 DATA162,0,142,11,212
  251. 3020 DATA162,255,142,8,212,162,10,142,12,212,162,15,142,24,212,162,129,142,11
  252. 3025 DATA212,96,-1
  253. 4080 :
  254. 4082 REM ** NEUE ZEICHEN
  255. 4085 :
  256. 4100 DATA27,1,1,3,7,15,31,127,255
  257. 4105 DATA28,255,255,255,255,255,255,255,255
  258. 4110 DATA29,128,128,192,224,240,248,254,255
  259. 4115 DATA30,255,252,252,240,224,192,128,128
  260. 4120 DATA31,255,63,63,7,3,3,1,1
  261. 4130 DATA33,0,251,251,251,0,223,223,223
  262. 4135 DATA35,32,32,16,8,8,20,36,18
  263. 4140 DATA36,1,2,2,4,4,8,8,16
  264. 4145 DATA37,0,0,6,200,48,12,3,0
  265. 4150 DATA38,0,0,0,3,100,152,0,0
  266. 4155 DATA39,0,255,129,189,165,165,165,165
  267. 4160 DATA40,165,165,165,165,165,165,165,165
  268. 4165 DATA41,165,165,165,165,165,189,129,255
  269. 4170 DATA42,1,1,3,3,7,7,15,15
  270. 4175 DATA43,31,31,63,63,127,127,255,255
  271. 4180 DATA44,224,224,224,192,192,128,128,0
  272. 4185 DATA45,1,2,41,4,146,107,22,1
  273. 4190 DATA46,128,82,137,58,163,74,36,128
  274. 4200 DATA73,253,252,254,255,255,255,254,254
  275. 4201 DATA74,252,249,243,225,192,156,191,255
  276. 4202 DATA75,255,255,127,63,63,63,127,255
  277. 4203 DATA76,255,255,255,255,255,7,248,255
  278. 4204 DATA77,255,255,255,255,255,255,247,255
  279. 4205 DATA78,255,247,239,238,222,207,231,255
  280. 4206 DATA79,127,63,159,207,207,207,159,183
  281. 4207 DATA80,43,29,61,125,123,55,143,255
  282. 4208 DATA81,189,218,199,239,207,207,239,255
  283. 4209 DATA82,247,234,220,156,154,150,206,255
  284. 4229 DATA129,195,219,129,157,157,157,157,255
  285. 4230 DATA130,131,219,193,205,205,205,129,255
  286. 4231 DATA131,129,189,191,159,159,157,129,255
  287. 4232 DATA132,129,221,221,205,205,205,129,255
  288. 4233 DATA133,129,191,191,135,159,159,129,255
  289. 4234 DATA134,129,191,191,135,159,159,159,255
  290. 4235 DATA135,129,189,191,145,157,157,129,255
  291. 4236 DATA136,189,189,189,129,157,157,157,255
  292. 4237 DATA137,239,239,239,231,231,231,231,255
  293. 4240 DATA140,191,191,191,159,159,159,129,255
  294. 4241 DATA141,153,165,189,157,157,157,157,255
  295. 4242 DATA142,141,181,181,149,149,149,153,255
  296. 4243 DATA143,129,189,189,157,157,157,129,255
  297. 4245 DATA144,129,189,189,129,159,159,159,255
  298. 4246 DATA146,129,189,189,129,155,157,157,255
  299. 4247 DATA147,129,189,191,129,249,185,129,255
  300. 4248 DATA148,131,239,239,231,231,231,231,255
  301. 4249 DATA149,189,189,189,157,157,157,129,255
  302. 4250 DATA150,189,189,189,219,219,231,231,255
  303. 4252 DATA152,189,219,231,131,157,157,157,255
  304. 4253 DATA153,189,189,189,195,231,231,231,255
  305. 4300 DATA176,129,189,185,149,141,157,129,255
  306. 4305 DATA177,199,247,247,231,231,231,195,255
  307. 4310 DATA178,129,189,253,129,159,159,129,255
  308. 4315 DATA179,193,253,253,225,249,249,129,255
  309. 4316 DATA180,191,191,187,187,129,243,243,255
  310. 4317 DATA181,193,223,223,193,249,185,129,255
  311. 4318 DATA182,129,191,191,129,157,157,129,255
  312. 4319 DATA183,129,189,251,247,231,231,231,255
  313. 4320 DATA184,195,219,219,129,157,157,129,255
  314. 4321 DATA185,129,189,189,129,249,249,129,255
  315. 4400 DATA-1
  316. 5000 REM ** EINLESEN DER DATEN
  317. 5001 :
  318. 5010 FORT=0TO999:READQ:IFQ=-1THEN5026
  319. 5012 POKE50400+T,Q:NEXT
  320. 5026 FORT=0TO999:READQ:IFQ=-1THEN5030
  321. 5027 POKE51200+T,Q:NEXT
  322. 5030 :
  323. 5032 :
  324. 5035 READQQ:IFQQ=-1THEN6000
  325. 5036 FORT=0TO7:READQ:POKE57344+QQ*8+T,Q:NEXT
  326. 5037 GOTO5035
  327. 5050 :
  328. 6000 REM ** SPRITES
  329. 6002 :
  330. 6006 REM ** EIGENER RAUMER
  331. 6010 DATA,16,,,124,,1,255,,6,84,192,31,255,240,12,56,96,6,16,192,2,,128,,,,,,,,
  332. 6020 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  333. 6030 :
  334. 6032 REM ** BOMBE
  335. 6035 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,16,,,56,,,56,,,16,,,,,,,,,,,,,,,,,,,,,,,,
  336. 6036 DATA,,,,
  337. 6040 REM ** GESCHUETZ (GEGNER)
  338. 6045 DATA,,255,,,255,,,255,,,255,,,255,,,255,,,255,,,255,,,255,,,255,,,255
  339. 6046 DATA,,255,,,255,,,255,,,255,,,255,,,255,,,255,,,255,,,255,,,255,
  340. 6050 REM ** AUFZUG
  341. 6055 DATA,,,,,,7,255,255,4,,1,,,1,,,1,,,1,,,1,,,1,,,1,,,1,,,1,,,1,,,1,,,1,,,1
  342. 6056 DATA,,1,,,1,,,1,4,,1,7,255,255,
  343. 6060 REM ** SONDE
  344. 6065 DATA3,248,,1,16,,3,248,,1,16,,3,248,,1,16,,3,248,,1,16,,3,248,,1,16,,3,248
  345. 6067 DATA,,64,,8,226,,17,241,,11,186,,7,92,,6,236,,13,246,,31,255,,,,,,,,
  346. 6070 REM ** GITTER
  347. 6072 DATA16,32,64,16,32,64,16,32,64,56,112,224,56,112,224,56,112,224,56,112
  348. 6074 DATA224,40,80,160,16,32,64,56,112,224,124,249,240,56,112,224,16,32,64,40
  349. 6076 DATA80,160,56,112,224,56,112,224,40,80,160,40,80,160,16,32,64,16,32,64,16
  350. 6078 DATA32,64,
  351. 6080 REM ** DUESENSTRAHL 1
  352. 6081 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,5,1,64,11,131,96,12,130,224,11,131,96
  353. 6083 DATA9,130,160,7,1,64,7,1,192,2,,128,2,,128,,,,,,,,,,
  354. 6090 REM ** DUESENSTRAHL 2
  355. 6091 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,5,1,64,9,131,32,9,131,160,9,131,32,8,130
  356. 6092 DATA160,7,1,64,5,1,64,2,,128,2,,128,2,,128,,,,,,,
  357. 6100 REM ** DRACHENKOPF 1
  358. 6102 DATA,,,,64,,,192,14,5,206,124,39,255,248,47,249,248,31,243,240,31,255,200
  359. 6104 DATA63,254,68,127,31,,126,15,,254,15,128,252,7,208,252,7,208,248,3,112,248
  360. 6106 DATA1,120,248,,240,248,,,240,,,240,,,240,,,
  361. 6110 REM ** DRACHENKOPF 2
  362. 6112 DATA,,,,64,,,192,,5,206,14,39,255,62,47,249,252,31,243,248,31,255,240,63
  363. 6114 DATA254,72,127,31,4,126,15,,254,15,144,252,7,208,252,3,112,248,1,120,248
  364. 6116 DATA,240,240,,,240,,,224,,,224,,,224,,,
  365. 6120 REM ** DRACHENKOPF 3
  366. 6122 DATA,,,,64,,,192,,5,206,,71,255,,47,249,240,31,243,248,31,255,252,63,254
  367. 6124 DATA92,127,31,,126,15,144,254,3,80,252,1,120,252,,240,248,,,248,,,248,,
  368. 6125 DATA240,,,240,,,224,,,224,,,
  369. 6130 REM ** PFLANZE 1
  370. 6132 DATA,,,,,,,,,96,,,144,,,8,,,4,,,4,,,2,,,1,,,1,,,,128,,,96,128,,48,128,,24
  371. 6133 DATA64,,24,32,,12,96,,108,200,,148,212,,14,226,,3,128,
  372. 6140 REM ** PFLANZE 2
  373. 6142 DATA,,,8,,,16,,,16,,,8,,,4,,,4,,,4,,,2,,,1,,,1,,,,128,,,96,128,,48,128,,24
  374. 6144 DATA64,,24,32,,140,96,,108,200,,20,214,,14,224,,3,128,
  375. 6150 REM ** PFLANZE 3
  376. 6152 DATA,128,,1,,,2,,,4,,,4,,,2,,,2,,,2,,,1,,,1,,,,128,,,128,,,97,,,48,128,,24
  377. 6154 DATA64,,88,32,,76,98,,44,204,,20,208,,14,224,,3,128,
  378. 6160 REM ** PFLANZE 4
  379. 6162 DATA,,,,12,,,18,,,32,,,64,,,64,,,128,,,128,,,128,,,128,,,64,,,32,,,48,,,56
  380. 6164 DATA128,,153,64,,76,36,,76,104,,44,200,,20,208,,14,224,,3,128,
  381. 6170 REM ** PFLANZE 5
  382. 6172 DATA,,,,,192,,1,32,,6,,,8,,,8,,,16,,,32,,,32,,,32,,,24,,,12,,,13,,,12,128
  383. 6174 DATA,6,136,,38,80,,38,80,,22,200,,22,208,,11,224,,7,128,
  384. 6180 REM **  KUGEL
  385. 6185 DATA,,,,,,,,14,,,31,,,31,,,31,,,14,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  386. 6186 DATA,,,,,,,,,
  387. 6190 REM ** STAB VERTIKAL
  388. 6195 DATA,255,,,,,,255,,,,,,255,,,,,,255,,,,,,255,,,,,,255,,,,,,255,,,,,
  389. 6197 DATA255,,,,,,255,,,,,,255,,,,,,255,,
  390. 6200 REM ** STAB HORIZONTAL
  391. 6205 DATA255,255,255,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  392. 6207 DATA,,
  393. 10000 REM ** EINLESEN DER SPRITES
  394. 10001 :
  395. 10010 FORT=0TO63:READQ:POKE51712+T,Q:NEXT
  396. 10020 FORT=0TO63:READQ:POKE51776+T,Q:NEXT
  397. 10030 FORT=0TO63:READQ:POKE51840+T,Q:NEXT
  398. 10040 FORT=0TO63:READQ:POKE51904+T,Q:NEXT
  399. 10050 FORT=0TO63:READQ:POKE51968+T,Q:NEXT
  400. 10060 FORT=0TO63:READQ:POKE52032+T,Q:NEXT
  401. 10070 FORT=0TO63:READQ:POKE52096+T,Q:NEXT
  402. 10080 FORT=0TO63:READQ:POKE52160+T,Q:NEXT
  403. 10090 FORT=0TO63:READQ:POKE52224+T,Q:NEXT
  404. 10100 FORT=0TO63:READQ:POKE52288+T,Q:NEXT
  405. 10110 FORT=0TO63:READQ:POKE52352+T,Q:NEXT
  406. 10120 FORT=0TO63:READQ:POKE52416+T,Q:NEXT
  407. 10130 FORT=0TO63:READQ:POKE52480+T,Q:NEXT
  408. 10140 FORT=0TO63:READQ:POKE52544+T,Q:NEXT
  409. 10150 FORT=0TO63:READQ:POKE52608+T,Q:NEXT
  410. 10160 FORT=0TO63:READQ:POKE52672+T,Q:NEXT
  411. 10170 FORT=0TO63:READQ:POKE52736+T,Q:NEXT
  412. 10180 FORT=0TO63:READQ:POKE52800+T,Q:NEXT
  413. 10190 FORT=0TO63:READQ:POKE52864+T,Q:NEXT
  414. 15000 REM ** LEVEL
  415. 15001 :
  416. 15003 :
  417. 15010 GOTO60000
  418. 16000 GETA$
  419. 16010 IFA$="1"THENLE=6:GOTO20000
  420. 16011 IFA$="2"THENLE=5:GOTO20000
  421. 16012 IFA$="3"THENLE=3:GOTO20000
  422. 16013 GOTO16000
  423. 20000 REM ** VARIABLEN, DATEN
  424. 20001 :
  425. 20002 V=53248:L=9:SC=0:POKE53247,0:POKE53246,0:POKE56325,26
  426. 20022 POKEV+27,255:POKE706,0:POKE707,0
  427. 20023 POKE708,0:POKE709,1
  428. 20024 POKE710,1:POKE711,0
  429. 20025 POKE712,1:POKE713,0
  430. 20042 POKE688,3:POKE689,3
  431. 20043 POKE690,3:POKE691,1
  432. 20046 POKE699,2+LE
  433. 20142 POKEV+39,1:POKEV+40,1
  434. 20143 POKEV+42,1:POKEV+43,1:POKEV+44,1
  435. 20170 POKEV+16,0:POKEV,56:POKEV+1,200
  436. 20172 POKEV+3,0
  437. 20173 GOTO50
  438. 30000 REM ** BILD 1
  439. 30005 POKE693,INT(LE):POKE694,INT(LE):POKE696,INT(LE)
  440. 30010 :
  441. 30090 PRINT"[147][145][149]\\\\\\\\\\\\\\\[155]!!!!   !![149]\\\\\\\\\\\\\\\\"
  442. 30100 PRINT"[145]\\\\\\\\\\\\\\\\\[155]!!   !![149]\\\\\\\\\\\\\\\\"
  443. 30105 PRINT"[145]\[201][203][205][207]\\\\\\^_^_\\\[155]!   ![149]\TIME[146]\\\\\\\\\\\\"
  444. 30110 PRINT"[145]\[202][204][206][208][209][210]\\^     _\\\   \\\\\\\\\\\^   _\\"
  445. 30115 PRINT"[145]\\\\\\\^        _\^   _\\\\\\\\^      _\"
  446. 30120 PRINT"[145]\\\\\^           _]    \\\\\\\^        \"
  447. 30125 PRINT"[145]\\\^        ]     _]   _\\\\\^         \"
  448. 30130 PRINT"[145]\^          \]     \    _\\\^    []    \"
  449. 30135 PRINT"[145]\]          \^    [\     _^      \^    \"
  450. 30140 PRINT"[145]\^          \    [\\            [\    [\"
  451. 30150 PRINT"[145]\           \    _\^          [\\^    \\"
  452. 30155 PRINT"[145]\]    [     \     _]        [\\^      \\"
  453. 30160 PRINT"[145]\\\\\\\     \]     _\\\\\\\\\[155]!!      [149][\\"
  454. 30165 PRINT"[145]\\^  _^     \\]     _\\\\\^          \\\"
  455. 30170 PRINT"[145]\^          _\\]     [155]!!!!![149]            _\"
  456. 30175 PRINT"[145]\]           _\\                       \"
  457. 30180 PRINT"[145]\\            [155]![149]\]                      \"
  458. 30185 PRINT"[145]\\]           [155]![149]\\]          [[155]!!!!![149]]   [\"
  459. 30186 PRINT"[145]\\\[155]!   !!!!!!!![149]\\\]        [\\\\\\\\\\\\"
  460. 30187 PRINT"[145]\\\[155]!   !![149]\\\\\\\\\\[155]!!!!!!!![149]\\\\\\\\\\\\\"
  461. 30188 PRINT"[145]\\\[155]![162][162][162][155]![149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  462. 30189 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  463. 30190 PRINT"[145] SCORE                         MEN      "
  464. 30191 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":POKE50111,160:POKE56255,9
  465. 31000 GOTO63
  466. 32000 REM ** BILD 2
  467. 32001 :
  468. 32005 POKE50175,51:POKEV+16,PEEK(V+16)OR128:POKEV+46,5
  469. 32006 POKEV+14,28:POKEV+15,85:POKEV+43,1
  470. 32017 PRINT"[147][149][145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\\"
  471. 32018 PRINT"[149][145]\\\\\\\^_^_^_\\\\\\\\\\[201][203][205][207]\\\\\   \\\\\"
  472. 32020 PRINT"[145]\\\\^        _^_^_^_^_\[202][204][206][208][209][210]\\\   \\\\\"
  473. 32025 PRINT"[145]\\^                   _\\\\\\\\\   ^[\\\"
  474. 32030 PRINT"[145]\^       []            \\^    _^   [\\\\"
  475. 32032 PRINT"[145]\       [\\\\\]       [\\]         _\\\\"
  476. 32033 PRINT"[145]\]     [^  _\\^       _\\^         [\\\\"
  477. 32035 PRINT"[145]\\          \^         _\         _\\\\\"
  478. 32036 PRINT"[145]\\         [\]         [\]         _\\\\"
  479. 32037 PRINT"[145]\\]   [    _\\        [\\^          _\\\"
  480. 32038 PRINT"[145]\\\\\\\     \^        _\^  [\\] [    \\\"
  481. 32039 PRINT"[145]\\\\\\\     \]         _] [\^_\\^   [\\\"
  482. 32040 PRINT"[145]\\\\\\\]    _^          _\\^  _\]   _\\\"
  483. 32042 PRINT"[145]\\\\^_^_    []           _^    \^    \\\"
  484. 32043 PRINT"[145]\\\^        \\                 '[149]    [\\\"
  485. 32044 PRINT"[145]\\^        [\\                 ([149]    \\\\"
  486. 32045 PRINT"[145]\\]        _\\]                )[149]   [\\\\"
  487. 32046 PRINT"[145]\\[155]!    !!!!![149]\\\[155]!!!!!!!!!!!!!!!!![149]\\\\\\\\"
  488. 32047 PRINT"[145]\\[155]!    ![149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  489. 32048 PRINT"[145]\\[155]!    ![149]\\\HITS[146]\\0[146]\\\\\\\\\\\\\\\\\\\\\\"
  490. 32049 PRINT"[145]\\[155]![185][185][185][185][155]![149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  491. 32050 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  492. 32051 PRINT"[145] SCORE                         MEN      "
  493. 32052 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":POKE50111,160
  494. 32053 POKE56255,9:GOTO623
  495. 33000 REM ** BILD 3
  496. 33001 POKEV+16,PEEK(V+16)AND127
  497. 33002 POKE50175,48:POKEV+14,152:POKEV+15,165:POKEV+46,2
  498. 33003 POKEV+41,9:POKEV+4,248:POKEV+23,0:POKE50170,42
  499. 33004 POKE50171,56:POKE711,1:POKE695,2:POKE53225,1
  500. 33005 POKEV+9,140:POKE50172,58:POKEV+29,16:POKE696,1:POKEV+43,2
  501. 33009 :
  502. 33010 PRINT"[147][149][145]\\\\   _\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  503. 33012 PRINT"[145]\\\\   [\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  504. 33014 PRINT"[145]\\\^   _\\\\\^   _\\\^ _\\^ _\\^ _^   _\"
  505. 33016 PRINT"[145]\\^        _^     _\^        \\        \
  506. 33018 [153]"ON\\             POS             _\        \"
  507. 33019 [153]"ON\\]           [\]                  ]   \"
  508. 33020 [153]"ON\\\\\][LIST!!!!!!VERIFY\\\\\\\\]            [^   \"
  509. 33022 [153]"ON\\\^ _\\\\\\\^       _]      [\][\^    \"
  510. 33023 [153]"ON\\^                   \]     \\\\^    [\"
  511. 33024 [153]"ON\\]            [\]   [\\]   [\\\^   [\\\"
  512. 33026 [153]"ON\\\]   [\\\\\\\\\^   \\\\] [\\\\]   _\\\"
  513. 33027 [153]"ON\\\LIST!   !!!!!VERIFY\\\\\    \\\\\\\\\\\\    _\\"
  514. 33028 [153]"ON\\\LIST!       !VERIFY\\\\\]   \\RIGHT$(null)(null)(null)\\\\\\]    _\"
  515. 33030 [153]"ON\\\LIST!       !VERIFY\\\^_^   _\MID$(null)(null)(null)(null)(null)\\\\^     \"
  516. 33032 [153]"ON\\\LIST!!!!!   !VERIFY\^        _\\\\\\\\\\]     \"
  517. 33034 [153]"ON\\\LIST!!!!!   !VERIFY\]              _\\\\\]    \"
  518. 33035 [153]"ON\\\LIST!       !VERIFY\\]*VERIFY              _\^     [\"
  519. 33036 [153]"ON\\\LIST!       !VERIFY\\^+,VERIFY[]            _      _\"
  520. 33037 [153]"ON\\\LIST!   !!!!!VERIFY\\]\VERIFY[\\]CLOSECLOSE[LIST!!!!!VERIFY]         [\"
  521. 33038 [153]"ON\\\LIST!   !VERIFY\\\\\\\\\\\\\\\\\\\\\]    [\\\\\"
  522. 33039 [153]"ON\\\LIST!NEWNEWNEWLIST!VERIFY\\TIMEWAIT\\\\\\\\\\\\\\\\\\\\\\\\\\"
  523. 33040 [153]"ON\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  524. 33100 [153]"ON SCORE                         MEN      "
  525. 33101 [153]"ON\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":[151]50111,28
  526. 33102 [151]56255,9:[137]823
  527. 34000 [143] ** BILD 4
  528. 34001 :
  529. 34002 [151]53225,0:[151]V[170]9,61:[151]711,0:[151]V[170]7,127:[151]50171,44
  530. 34003 [151]50172,57:[151]V[170]43,9
  531. 34004 [151]V[170]4,56:[151]50170,58:[151]V[170]29,0:[151]694,2
  532. 34010 [153]"LOADVERIFYON\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\]CLOSECLOSECLOSE[\\\\\"
  533. 34020 [153]"ON\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\CLOSECLOSECLOSE\\\\\\"
  534. 34030 [153]"ON\\^      _\^                         _\\"
  535. 34040 [153]"ON\\]       _                          [\\"
  536. 34050 [153]"ON\\\]           [\\\\\\\\\\\\\]      [\\\"
  537. 34060 [153]"ON\\\\           _\^        _\\\\\\\\\\\\\"
  538. 34070 [153]"ON\\\\     [][][][^          \\\\RIGHT$(null)(null)(null)\\\\\"
  539. 34080 [153]"ON\\\\   [\\\\\\\^           \\\\MID$(null)(null)(null)(null)(null)\\\"
  540. 34090 [153]"ON\\\LIST!VERIFY   ^_^_^       [\\\\   _\\\\\\\\\\\\"
  541. 34100 [153]"ON\\\LIST!VERIFY              [\^              _\\\\"
  542. 34110 [153]"ON\\\LIST!VERIFY              \\                _\\\"
  543. 34120 [153]"ON\\\LIST!VERIFY             [\\                 _\\"
  544. 34130 [153]"ON\\\\\\\\\\\\\]  [\\\LIST!!!!!!!!VERIFY\\\\]    [\\"
  545. 34140 [153]"ON\\\\\\\\LIST!!!VERIFY\\\\\\\\\\\\\\\\\\\\\^   _\\\"
  546. 34150 [153]"ON\\\\\\^      _\\\\\\^  _^    _\^     _\\"
  547. 34160 [153]"ON\\\\\^        _\\\\^          _]      \\"
  548. 34170 [153]"ON\\\\^          _^_^            _      \\"
  549. 34180 [153]"ON\\\^   [LIST!!!VERIFY]          [LIST!VERIFY              \\"
  550. 34190 [153]"ON\\^    _\\\\]        [\LIST!VERIFY             [\\"
  551. 34200 [153]"ON\\]     _\\\^      [\\\LIST!!!!!!!!!VERIFY\\\\\\\\"
  552. 34210 [153]"ON\\\TOANDPOSANDTOVERIFY[\\\][\\\\\\\\\\\\\\\\\\\\\\\\\\"
  553. 34220 [153]"ON\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  554. 34230 [153]"ON SCORE                         MEN      "
  555. 34240 [153]"ON\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":[151]50111,28:[151]56255,9
  556. 34241 [151]55883,2:[151]55923,2:[151]55963,2:[151]56003,2:[151]56043,2
  557. 34242 [151]55865,2:[151]55905,2:[151]55945,2
  558. 35000 [137]926
  559. 40000 :
  560. 40010 [143] ** VERSCHIEBUNG
  561. 40030 :
  562. 40040 [129]T[178]832[164]865:[135]Q:[151]T,Q:[130]
  563. 40050 [158]832:[151]850,160:[158]832
  564. 40060 [151]56576,[194](56576)[175]252
  565. 40070 [151]53272,8
  566. 40080 [151]648,192
  567. 50000 [142]
  568. 60000 [143] ** LEVEL
  569. 60001 :
  570. 60010 [153]"LOAD\\\\\\\\\]   [\]"
  571. 60015 [153]"\\RIGHT$(null)(null)(null)\\\\\][\\\]"
  572. 60020 [153]"\\MID$(null)(null)(null)(null)(null)\\\\\\\\\][]"
  573. 60025 [153]"\\\\\\\\\\\\\\\\\\\\][]"
  574. 60030 [153]"\\SELECT LEVEL :WAIT\\\\\\\]"
  575. 60040 [153]"\\\\\\\\\\\\\\\\\\\\\\\\]"
  576. 60050 [153]"\\1 = BEGINNERWAIT\\\\\\\\\\\][][]"
  577. 60060 [153]"\\2 = STARWAIT\\\\\\\\\\\\\\\\\\\\][]"
  578. 60070 [153]"\\3 = SUPER STARWAIT\\\\\\\\\\\\\\\\\\\]"
  579. 60080 [153]"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\]"
  580. 60090 [137]16000
  581.