home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 70 / Digital_Talk_70_2005-01-01_Digital_Talk_de_Side_D.d64 / msstrn.exe.broti (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  37KB  |  827 lines
  1. 0 lw=peek(186):rem - fixed by broti -
  2. 1 ifi=0theni=1:load"msstr1.dat*",lw,1
  3. 2 ifi=1theni=2:load"msstr2.dat*",lw,1
  4. 3 dimw$(12),t$(11)
  5. 4 poke53280,0:poke53281,0:b=0:gosub1900:print"[147]":co=0:c2=0:c1=0:bo=0:e=0
  6. 5 x=2:y=1:sh=075:sv=141:b=0:v=53248:s=54272:tr=28:gosub40110:ti$="000000"
  7. 8 fori=0to62:readq:poke832+i,q:next
  8. 9 poke2040,13:pokev,sv:pokev+1,sh:pokev+39,7
  9. 10 fori=0to62:readq:poke896+i,q:next
  10. 11 sys49152:q=15
  11. 100 rem mapsteuerung u. weitere funktionen-----------------------------------
  12. 101 :
  13. 105 ify=0theny=1
  14. 106 ifx=13thenx=12
  15. 150 ify=1thenonxgoto0,1000
  16. 152 ify=2thenonxgoto0,1060
  17. 154 ify=3thenonxgoto0,1070,1400,1600
  18. 156 ify=4thenonxgoto1100,1080,1240,1300
  19. 157 ify=5thenonxgoto1110,1200,1360
  20. 1000 rem bild 1 ------------------------------------------------------------
  21. 1001 gosub41000:gosub40100:pokes+19,12:pokes+20,50:pokes+15,50:pokes+18,0
  22. 1005 poke2040,13:pokev+21,1:sys49152
  23. 1009 geta$:ifa$=chr$(133)thengosub39000:goto1000
  24. 1010 z=int(15*rnd(1))+1
  25. 1011 ifz=2thenprint"":printtab(14)"[158][195][195][195][195][195][195][195][195][195][195][195]":pokes+11,0:pokes+11,129
  26. 1015 ifpeek(v)<80andpeek(v+16)=0thenpokes+18,129:gosub1050:pokes+18,0
  27. 1016 ifpeek(v+16)=1thenpokes+18,129:gosub1052:pokes+18,0
  28. 1020 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:goto100
  29. 1021 ifpeek(v+1)<75thenpokev+1,75
  30. 1026 print"":printtab(14)"           ":goto1009
  31. 1050 fori=9to0step-1:poke1024+6+i*40,66:poke55296+6+i*40,1:nexti
  32. 1051 fori=0to9step+1:poke1024+6+i*40,32:poke55296+6+i*40,1:nexti:return
  33. 1052 fori=9to0step-1:poke1024+32+i*40,66:poke55296+32+i*40,1:nexti
  34. 1053 fori=0to9step+1:poke1024+32+i*40,32:poke55296+32+i*40,1:nexti:return
  35. 1060 rem *bild 2*
  36. 1062 gosub41200:gosub40100
  37. 1064 geta$:ifa$=chr$(133)thengosub39000:goto1060
  38. 1065 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:goto100
  39. 1066 goto1064
  40. 1070 rem *bild 3*
  41. 1071 gosub41080:gosub40100
  42. 1072 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:goto100
  43. 1073 geta$:ifa$=chr$(133)thengosub39000:goto1070
  44. 1075 ifpeek(v+1)>90andpeek(v+1)<100thenfori=0to8:sys50550,l,13,13,7,18:next
  45. 1076 ifpeek(v+1)>170andpeek(v+1)<180thenfori=0to8:sys50550,r,13,13,7,18:next
  46. 1077 goto1072
  47. 1080 rem *bild 4*
  48. 1081 gosub41120:gosub40100:ifco=2thengosub1090
  49. 1082 print"":printtab(13)"         "
  50. 1083 sys50550,r,5,5,7,10:sys50550,r,9,9,10,14:sys50550,h,5,8,23,1
  51. 1084 sys50550,t,5,18,34,4:sys50550,h,11,21,30,1:sys50550,l,24,25,22,4
  52. 1085 sys50550,r,12,12,5,23:z=int(rnd(1)*15)+1
  53. 1086 geta$:ifa$=chr$(133)thengosub39000:goto1080
  54. 1087 ifz=2thenprint"":printtab(13)"[158][195][195][195][195][195][195][195][195][195]":pokes+11,0:pokes+11,129
  55. 1088 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:goto100
  56. 1089 goto1082
  57. 1090 print"":printtab(21)"[146]    ":printtab(21)"[146]    ":return
  58. 1099 rem *bild 5*
  59. 1100 pokes+19,12:pokes+20,50:pokes+15,5:pokes+24,15:pokes+18,0:ff=0:l=150
  60. 1101 gosub41160:gosub40100:f=0:ifco=2thenprint"2[146]"
  61. 1102 ifb=0andpeek(v+1)<100andpeek(56320)=111andco=0thenprint"2[146]":co=2
  62. 1103 geta$:ifa$=chr$(133)thengosub39000:goto1100
  63. 1104 pokes+18,17:ifpeek(v+1)>225thenf=1
  64. 1105 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:pokes+18,0:goto100
  65. 1106 iff=0thensys50550,t,2,20,6,6:sys50550,r,22,24,12,26
  66. 1107 iff=1thensys50550,h,2,20,6,6:sys50550,l,22,24,12,26
  67. 1108 ff=ff+1:ifff=10thenff=0:l=l-05:ifl=00thenl=05
  68. 1109 fori=0tol:next:pokes+18,0:goto1102
  69. 1110 rem *bjld 6*
  70. 1111 gosub41240:gosub40100:f=30:ife=1thenprint"[146]    "
  71. 1112 pokes+19,9:pokes+20,110:pokes+15,45:pokes+18,129
  72. 1113 ifpeek(v+16)=1andpeek(v)>50andpeek(v+1)>200thengoto1140
  73. 1114 ifpeek(v+16)=0andpeek(v)<50andpeek(v+1)<60then1140
  74. 1115 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:pokes+18,0:goto100
  75. 1116 sys50550,r,16,16,20,20
  76. 1117 f=f-1:print"":printtab(34)"[155]"f:iff=0thenf=30:gosub1125
  77. 1118 ifpeek(v)>120andpeek(v)<130andpeek(v+1)>110andpeek(v+1)<120ande=0thengosub1130
  78. 1119 geta$:ifa$=chr$(133)thengosub39000:goto1111
  79. 1120 goto1115
  80. 1125 fori=0to20:poke1024+8+i+2*40,67:poke1024+8+i+3*40,67
  81. 1126 poke55296+8+i+2*40,7:poke55296+8+i+3*40,7:sys50550,r,16,16,20,20
  82. 1127 next:print"                     "
  83. 1128 print"                     ":return
  84. 1130 print"    "
  85. 1131 j=peek(56320):if(jand16)=0thenbo=bo+1:goto1135
  86. 1132 return
  87. 1135 print"    ":e=1:return
  88. 1140 rem ****
  89. 1145 fori=0to34:poke1024+4+i+20*40,67:poke55296+4+i+20*40,7:sys50550,r,16,16,20,20
  90. 1146 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:pokes+18,0:goto100
  91. 1147 next:print"[146]                                    "
  92. 1148 geta$:ifa$=chr$(133)thengosub39000:goto1111
  93. 1149 fori=0to34:poke1024+4+i+22*40,67:poke55296+4+i+22*40,7:sys50550,r,16,16,20,20
  94. 1150 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:pokes+18,0:goto100
  95. 1151 next:print"[146]                                    "
  96. 1152 geta$:ifa$=chr$(133)thengosub39000:goto1111
  97. 1153 goto1145
  98. 1200 rem *bild 7*
  99. 1209 pokes+19,9:pokes+20,110:pokes+15,45:pokes+18,129
  100. 1210 gosub41280:ifc1=1thengosub1235
  101. 1211 gosub40100
  102. 1212 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:pokes+18,0:goto100
  103. 1213 geta$:ifa$=chr$(133)thengosub39000:goto1200
  104. 1215 ifpeek(v)>94andpeek(v)<180andpeek(v+1)>200andpeek(v+16)=0thenpokev,peek(v)-2
  105. 1220 sys50550,r,16,16,1,19:sys50550,t,21,24,37,3
  106. 1222 ifpeek(v+16)=1andpeek(v)>8andpeek(v+1)>171andbo=1thengosub1231
  107. 1230 goto1212
  108. 1231 j=peek(56320):if(jand16)=0thenpokes+11,0:pokes+11,129:gosub1235
  109. 1232 return
  110. 1235 print"":printtab(36)"   "
  111. 1236 printtab(36)"[145]   ":printtab(36)"   ":printtab(36)"[145]   "
  112. 1237 bo=0:c1=1:return
  113. 1240 rem *bild 8*
  114. 1245 gosub41320:gosub40100:d=25:f=0:r1=0
  115. 1246 pokes+19,09:pokes+20,13:pokes+15,50:pokes+18,0
  116. 1249 geta$:ifa$=chr$(133)thengosub39000:goto1240
  117. 1250 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:goto100
  118. 1251 ifpeek(v)<125andpeek(v)>115andpeek(v+1)<70andpeek(v+1)>30thengosub1260
  119. 1252 iff=1thenf=0:gosub1260
  120. 1253 goto 1249
  121. 1260 rem *
  122. 1265 print"destroyer activ"
  123. 1266 fori=1to14:sys50550,h,4,18,3,1:gosub1290
  124. 1267 next:poke1024+2+3*40,78:fori=0to10:next:poke1024+2+3*40,67
  125. 1268 fori=1to19:sys50550,r,4,4,3,20:gosub1290
  126. 1269 next:poke1024+21+3*40,77:fori=0to10:next:poke1024+21+3*40,66
  127. 1270 fori=1to9:sys50550,t,4,13,22,1:gosub1290:next
  128. 1271 poke1024+21+12*40,77:fori=0to10:next:poke1024+21+12*40,67
  129. 1272 fori=1to6:sys50550,r,13,13,22,7:gosub1290:next
  130. 1273 poke1024+27+12*40,78:fori=0to10:next:poke1024+27+12*40,66
  131. 1274 fori=1to9:sys50550,h,4,13,28,1:gosub1290:next
  132. 1275 poke1024+27+3*40,78:fori=0to10:next:poke1024+27+3*40,67
  133. 1276 fori=1to7:sys50550,r,4,4,28,8:gosub1290:next
  134. 1277 poke1024+34+3*40,77:fori=0to10:next:poke1024+34+3*40,66
  135. 1278 fori=1to14:sys50550,t,4,18,35,1:gosub1290:next
  136. 1279 poke1024+34+17*40,78:fori=0to10:next:poke1024+34+17*40,67
  137. 1280 fori=1to8:sys50550,l,18,18,27,9:gosub1290:next
  138. 1281 poke1024+26+17*40,78:fori=0to10:next:poke1024+26+17*40,66
  139. 1282 fori=1to5:sys50550,t,18,23,27,1:gosub1290:next
  140. 1283 poke1024+26+22*40,77:fori=0to10:next:poke1024+26+22*40,67
  141. 1284 fori=1to12:sys50550,r,23,23,27,13:gosub1290:next
  142. 1285 pokes+19,9:pokes+20,110:pokes+15,20:pokes+18,0
  143. 1286 poke1024+38+22*40,32:ff=0:d=25:ifm=1thenm=0:goto100
  144. 1287 poke1024+2+17*40,66
  145. 1288 ifr1=0thend=0:f=1:r1=1
  146. 1289 print"                ":r1=1:return
  147. 1290 pokes+18,33:forw=0tod:next:pokes+18,0
  148. 1291 ifpeek(2040)=14andff=0thengosub40000:ifm=1thenff=1:pokes+4,0
  149. 1292 geta$:ifa$=chr$(133)thengosub39000:gosub41320:poke2040,13:pokev+21,1
  150. 1293 return
  151. 1300 rem *bild 9*
  152. 1301 pokes+19,12:pokes+20,50:pokes+15,5:pokes+24,15:pokes+18,0
  153. 1310 gosub41360:gosub40100:t=4:h=4
  154. 1311 sys50550,h,13,19,4,17
  155. 1315 geta$:ifa$=chr$(133)thengosub39000:goto1310
  156. 1316 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:pokes+18,0:goto100
  157. 1320 z=int(rnd(1)*2)+1
  158. 1321 ifz=1thensys50550,t,2,11,3,25:t=t+1:ift=7thensys50550,h,2,11,3,25:t=t-1
  159. 1322 ifz=2thensys50550,h,2,11,3,25:t=t-1:ift=1thensys50550,t,2,11,3,25:t=t+1
  160. 1323 z=int(rnd(1)*10)+1:ifz=2thenpokes+18,33
  161. 1324 sys50550,l,2,11,9,13
  162. 1325 ifz=2thenprint"";:fori=1tot:print"";:next:print"[158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195]"
  163. 1326 ifz=2thenprint"";:fori=1tot+3:print"";:next:print"[158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195]"
  164. 1327 z=int(rnd(1)*2)+1
  165. 1328 ifz=1thensys50550,h,13,19,4,17:h=h-1:ifh=1thensys50550,t,13,19,4,17:h=h+1
  166. 1329 ifz=2thensys50550,t,13,19,4,17:h=h+1:ifh=5thensys50550,h,13,19,4,17:h=h-1
  167. 1330 z=int(rnd(1)*5)+1
  168. 1331 ifz=1thenprint"";:fori=1toh+12:print"";:next:print"[146][195][195][195][195][195][195]"
  169. 1335 ifpeek(v+16)=1andpeek(v)<10andpeek(v+1)<70andf=0thenf=1
  170. 1336 iff=1andq<>0thenpokev+39,6:q=q-1:tr=tr+1:ifq=0thenf=0
  171. 1337 iff=1thenprint"":printtab(29)q;:print"[157] "
  172. 1338 f=0:pokev+39,7
  173. 1349 z=int(rnd(1)*10)+1:ifz=2thenpokes+18,0
  174. 1350 ifz=2thenprint"";:fori=1tot:print"";:next:print"[146]             "
  175. 1351 ifz=2thenprint"";:fori=1tot+3:print"";:next:print"[146]             "
  176. 1352 print"";:fori=1toh+12:print"";:next:print"[146]      "
  177. 1353 goto 1315
  178. 1360 rem *bild 10*
  179. 1361 f=0:f1=0:f2=0:pokes+12,10:pokes+13,10:pokes+8,30
  180. 1362 pokes+19,9:pokes+20,110:pokes+15,45:pokes+18,129
  181. 1365 gosub 41400:gosub40100:ifc1=0thenprint" [146]"
  182. 1366 z=int(10*rnd(1))+1
  183. 1367 ifz=2thenprint"":print"[146][158][195][195][195][195][195][195][195][195][195][195][195][195][195]":pokes+11,0:pokes+11,129
  184. 1370 geta$:ifa$=chr$(133)thengosub39000:goto1362
  185. 1371 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:pokes+18,0:goto100
  186. 1372 print"             "
  187. 1373 sys50550,r,11,11,2,5:sys50550,l,6,6,13,21:sys50550,r,18,18,28,10
  188. 1375 iff=0andpeek(v)>159andpeek(v+1)>204andpeek(v+16)=0thenf=1:gosub1381
  189. 1376 iff=1thenf1=f1+1:iff1=30thenf=2
  190. 1377 iff1=30thenf2=f2+1:iff2<>10thengosub1385
  191. 1378 iff=2thenprint"                            "
  192. 1379 iff2=10thenf=3:f1=0:gosub1390
  193. 1380 goto1366
  194. 1381 print"":printtab(25)"  "
  195. 1382 print"":printtab(20)"[158]     [146]":return
  196. 1385 rem------
  197. 1386 print"[158][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":pokes+11,0:pokes+11,129
  198. 1387 return
  199. 1390 print"":printtab(25)"[154]  [146]"
  200. 1391 print"":printtab(20)"[146]     ":return
  201. 1400 rem *bild 11*
  202. 1401 ho=13:h1=15:sp=33:f1=0:poke2040,13:poke2041,13:pokev+40,1:pokev+2,60
  203. 1402 poke2042,13:pokev+3,30:pokev+41,3:pokev+4,60:pokev+5,30
  204. 1403 pokev+16,0:pokes+8,50:pokes+12,96:pokes+13,30:pokes+11,0:pokes+11,129
  205. 1410 gosub41440:gosub40100:pokes+19,9:pokes+20,13:pokes+15,45:pokev+21,3
  206. 1415 geta$:ifa$=chr$(133)thengosub39000:goto1400
  207. 1416 ifpeek(2040)=14thengosub40000:ifm=1thenm=0:pokes+11,0:pokev+21,1:goto100
  208. 1417 iff1=0thenpokev+3,peek(v+3)+2:ifpeek(v+3)=64thenf1=1:pokes+8,30
  209. 1418 iff1=1thenpokev+2,peek(v+2)+2:ifpeek(v+2)=254thenf1=3:pokes+8,255
  210. 1419 iff1=3thenpokev+3,peek(v+3)+2:ifpeek(v+3)=74thenf1=4:pokev+21,7:pokes+8,20
  211. 1420 sys50550,r,16,16,20,4:sys50550,l,18,18,20,4:sys50550,l,ho,ho,sp,4
  212. 1421 sys50550,r,h1,h1,sp,4:sys50550,l,18,19,1,15:sys50550,r,5,5,5,15
  213. 1422 sys50550,t,8,11,24,1
  214. 1423 iff1=4thenpokev+5,peek(v+5)+2:ifpeek(v+5)=64thenf1=5:pokes+8,10
  215. 1424 iff1=5thenpokev+4,peek(v+4)+2:ifpeek(v+4)=224thenf1=6:pokes+8,255
  216. 1425 ifpeek(v)>107andpeek(v+1)>200andpeek(v+16)=0andf=0thenf=1:gosub1480
  217. 1426 ifpeek(v)>208andpeek(v+1)>200andpeek(v+16)=0andf=1thenf=2:gosub1482
  218. 1427 ifpeek(v)>15andpeek(v+16)=0andpeek(v+1)>168andf=2thenf=3:gosub1484
  219. 1428 iff=3thengosub1484
  220. 1429 iff1=6thenpokev+5,peek(v+5)+2:ifpeek(v+5)=74thenf1=7:pokes+11,0
  221. 1430 ifpeek(v)<230andpeek(v+1)<130andpeek(v+16)=0thengosub1490
  222. 1431 ifpeek(v)<164andpeek(v+1)<140andpeek(v+16)=0andf=4thenf=5:gosub1500
  223. 1432 ifpeek(v)<110andpeek(v+1)<110andpeek(v+16)=0thengosub1501
  224. 1435 ifpeek(v)<80andpeek(v+1)<150andpeek(v+16)=0thengosub1510
  225. 1450 goto 1415
  226. 1480 pokes+18,0:pokes+18,129:fori=0to2:poke1024+15+40*(19+i),32:next:return
  227. 1482 pokes+18,0:pokes+18,129:fori=0to2:poke1024+28+40*(19+i),32:next:return
  228. 1484 sys50550,h,8,15,33,4:ho=ho-1:h1=h1-1:ifho=8thenf=4:goto1486
  229. 1485 return
  230. 1486 sys50550,r,8,10,33,6:sys50550,r,8,10,33,6:sp1=sp1+2
  231. 1487 pokes+18,0:pokes+18,129:fori=0to2:poke1024+28+40*(8+i),32:next:return
  232. 1490 j=peek(56320):if(jand16)=0then1495
  233. 1491 return
  234. 1495 print"":printtab(25)" [206]":pokes+18,0:pokes+18,33
  235. 1496 print"":printtab(19)"    ":printtab(19)"[145]    ":printtab(19)"    "
  236. 1497 printtab(19)"[145]    ":return
  237. 1500 pokes+18,0:pokes+18,129:print"":printtab(15)"   ":return
  238. 1501 j=peek(56320):if(jand16)=0then1505
  239. 1502 return
  240. 1505 pokes+18,0:pokes+20,13:pokes+15,50:pokes+18,33
  241. 1506 c2=1:print"1[146]":return
  242. 1510 j=peek(56320):if(jand16)=0then1512
  243. 1511 return
  244. 1512 print"[146] [206]"
  245. 1513 poke2041,14:poke2042,14:pokes+19,9:pokes+20,13:pokes+15,20:pokes+11,0
  246. 1514 pokes+18,0:pokes+18,129:fori=0to50:next:pokev+21,1:f1=10:return
  247. 1600 rem *bild 12*
  248. 1601 :f1=0:f2=0:f=0:w=0:l=0:ff=0
  249. 1605 pokes+19,9:pokes+20,13:pokes+15,45:pokes+12,9:pokes+13,13:pokes+8,35
  250. 1606 poke2041,13:pokev+40,1:pokev+2,40:pokev+3,68
  251. 1610 gosub41480:gosub40100:pokev+21,3:ifff=1thenf=1:w=0:gosub1703
  252. 1615 ifpeek(2040)=14andf<>6thengosub40000:f1=0:f2=0:ifm=1thenm=0:goto100
  253. 1616 geta$:ifa$=chr$(133)thengosub39000:f1=0:f2=0:f=0:goto1610
  254. 1617 iff1=0thensys50550,h,3,22,35,4
  255. 1618 iff1=1thensys50550,t,3,22,35,4
  256. 1619 sys50550,l,12,15,6,26
  257. 1621 sys50550,t,12,15,33,1:sys50550,r,11,11,2,4:sys50550,r,22,22,23,5
  258. 1622 ifpeek(v)>10andpeek(v+16)=1andpeek(v+1)<100andc2=1andf=0thenf=1:gosub1700
  259. 1623 ifpeek(v)>5andpeek(v+16)=1andpeek(v+1)<100thengosub1698
  260. 1624 sys50550,l,4,22,35,4
  261. 1625 ifpeek(v)<207andpeek(v+1)<160andpeek(v+16)=0andco=2andf=1thenf=2:gosub1705
  262. 1626 ifpeek(v)>160andpeek(v+16)=0andpeek(v+1)>170andf=2thengosub1696
  263. 1627 iff=3thensys50550,l,20,20,2,13:l=l+1:ifl=7thenf=4:l=0:sys50550,t,20,21,2,6
  264. 1628 ifpeek(v)>200andpeek(v+16)=0andpeek(v+1)>200thengosub1708
  265. 1630 ifpeek(v)<43andpeek(v+16)=0andpeek(v+1)<120andf=4thenf=5:gosub1715
  266. 1631 iff3=0thenpokev+2,peek(v+2)+2:ifpeek(v+2)=90thenf3=1
  267. 1632 iff3=1thenpokev+3,peek(v+3)+2:ifpeek(v+3)=106thenf3=2
  268. 1633 iff3=2thenpokev+2,peek(v+2)-2:ifpeek(v+2)=36thenf3=3
  269. 1634 iff3=3thenpokev+3,peek(v+3)+2:ifpeek(v+3)=186thenf3=4
  270. 1635 iff3=4thenpokev+2,peek(v+2)+2:ifpeek(v+2)=100thenf3=5
  271. 1636 iff3=5thenpokev+3,peek(v+3)+2:ifpeek(v+3)=216thenf3=6
  272. 1637 iff3=6thenf3=7:gosub1716
  273. 1640 ifpeek(v)<110andpeek(v+1)>210andpeek(v+16)=0andf=5thenf=6:sys50550,h,20,21,2,6
  274. 1641 iff=6thensys50550,r,20,20,2,13:l=l+1:ifl=7thenl=0:gosub1718:goto3000
  275. 1650 goto1615
  276. 1696 j=peek(56320):if(jand16)=0then1706
  277. 1697 return
  278. 1698 j=peek(56320):if(jand16)=0then1702
  279. 1699 return
  280. 1700 pokes+18,0:pokes+18,129:fori=0to4:poke1024+33+40*(3+i),32:next:return
  281. 1702 print"":printtab(30)"[145] [146][159][205]":pokes+18,0:pokes+18,129:f1=1:ff=1
  282. 1703 fori=0to4:poke1024+22+i+(21*40),32:next
  283. 1704 fori=0to3:poke1024+32+40*(11+i),32:next:return
  284. 1705 pokes+18,0:pokes+18,129:fori=0to9:poke1024+16+i+(15*40),32:next:return
  285. 1706 pokes+18,0:pokes+18,129:print"":printtab(16)"[146] "
  286. 1707 print"":printtab(16)"[146][205]":f=3:return
  287. 1708 w=50:pokev+39,15:fori=0tow:next:pokev+39,12:fori=0tow:next:pokev+39,11
  288. 1709 fori=0to9:pokes+11,0:pokes+11,33:fori1=0to50:next:next:pokes+11,0
  289. 1710 fori=0tow:next:pokev+39,0:fori=0to99:next:pokev,168:pokev+1,86:pokev+16,0:pokev+39,11
  290. 1711 poke2040,13:fori=0tow:next:pokev+39,12:fori=0tow:next:pokev+39,15:fori=0tow:next
  291. 1712 pokev+39,7:w=0:return
  292. 1715 pokes+18,0:pokes+18,129:print"[146]    ":return
  293. 1716 pokev+40,15:fori=0to50:next:pokev+40,12:fori=0to50:next:pokev+40,12
  294. 1717 fori=0to50:next:pokev+40,11:fori=0to50:next:pokev+21,1:return
  295. 1718 pokes+19,9:pokes+20,12:fori=0to255:pokes+15,i:pokes+18,0:pokes+18,33
  296. 1719 forl=0to05:next:next
  297. 1720 pokev+39,15:fori=0to50:next:pokev+39,12:fori=0to50:next:pokev+39,12
  298. 1721 fori=0to50:next:pokev+39,11:fori=0to50:next:pokev+21,0:return
  299. 1900 rem *vorspann-titel*
  300. 1901 :i=0
  301. 1902 w$(0)="die schlacht im entfernten system des planeten cylons hat ihr "
  302. 1903 w$(1)="schiff und seine insassen in das fremde reich einer ihnen unbek"
  303. 1904 w$(2)="annten rasse verschlagen, die aus den tiefen fremder galaxien zur "
  304. 1905 w$(3)="milchstrasse vorgedrungen ist, um die entmilirarisierung der erde"
  305. 1906 w$(4)=" und seiner bewohner vorzunehmen. ihre aufgabe besteht darin, ins "
  306. 1907 w$(5)="mysterioese labyrinth auf dem planeten asterlin einzudringen und es"
  307. 1908 w$(6)=" lebendig zu durchqueren, um schliesslich den leistungsstarken"
  308. 1909 w$(7)=" fiktivtransmiter im schachte gol zu erreichen und mit ihm ins "
  309. 1910 w$(8)="milchstrassensystem zurueckzukehren, damit die invasion aufgehalten"
  310. 1911 w$(9)=" werden kann, denn bei ihrer flucht gelangeten sie an geheimmateria"
  311. 1912 w$(10)="l. doch der weg zum transmiter soll fuer sie zum toedlichen spiel"
  312. 1913 w$(11)=" werden ! - mission transmiter - ein spiel von thomas troska (16) "
  313. 1914 w$(12)="druecken sie f1 fuer den aktuellen spielstand.":gosub41520:r=10:gg=0
  314. 1915 geta$:ifa$=chr$(133)thengg=gg+1:ifgg=05thengg=00
  315. 1916 ifa$=chr$(134)thenr=r+1:ifr=28thenr=10
  316. 1917 ifa$=chr$(135)then1950
  317. 1920 print"":printtab(28)"[154]";gg;:print"":printtab(24)"";r
  318. 1921 sys50550,l,18,18,1,40
  319. 1923 b=b+1:ifb=len(w$(i))+1thenb=1:i=i+1:ifi=13theni=0
  320. 1925 ak$=mid$(w$(i),b,1)
  321. 1926 print"":printtab(39)"";ak$;
  322. 1930 goto 1915
  323. 1950 ifgg=0thenpoke56325,070
  324. 1951 ifgg=1thenpoke56325,065
  325. 1952 ifgg=2thenpoke56325,060
  326. 1953 ifgg=3thenpoke56325,050
  327. 1954 ifgg=4thenpoke56325,040
  328. 1955 return
  329. 2000 pokev+21,0:poke2040,14:pokes+4,0
  330. 2001 pokes+19,10:pokes+20,14:fori=255to0step-1:pokes+15,i:pokes+18,0:pokes+18,33
  331. 2002 poke53281,7:poke53280,7:poke53281,0:poke53280,0:forl=0to10:next:next
  332. 2003 print"[147]":forl=0to200:poke53281,7:poke53281,0:next:restore
  333. 2004 print"[147]g a m e  o v e r":forl=0to1000:next:goto4
  334. 3000 s=54272:pokes+24,15:pokev+21,0:poke2040,14:pokes+5,9:pokes+6,09:pokes+1,50
  335. 3005 print"[147][159]"
  336. 3010 t$(1)="mission erfolgreich beendet"
  337. 3011 t$(2)="---------------------------"
  338. 3012 t$(3)="mittels einer dimensionsverlagerung"
  339. 3013 t$(4)="wurde ihr schiff ins milchstrassensystem"
  340. 3014 t$(5)="teleportiert."
  341. 3015 t$(6)="sie sind den feindlichen invasoren"
  342. 3016 t$(7)="entkommen und so kann nun das wichtige"
  343. 3017 t$(8)="geheimmaterial sichergestellt werden."
  344. 3018 t$(9)="mit seiner hilfe laesst sich die"
  345. 3019 t$(10)="invasion aufhalten."
  346. 3020 t$(11)=" - space fuer eine neue simulation - ":i=1
  347. 3025 forl=1tolen(t$(i)):printmid$(t$(i),l,1);:
  348. 3026 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=2:print
  349. 3027 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  350. 3028 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=3:print:print
  351. 3029 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  352. 3030 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=4:print:print
  353. 3031 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  354. 3032 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=5:print
  355. 3033 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  356. 3034 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=6:print:print:print
  357. 3035 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  358. 3036 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=7:print:print
  359. 3037 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  360. 3038 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=8:print:print
  361. 3039 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  362. 3040 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=9:print:print:print
  363. 3041 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  364. 3042 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=10:print:print
  365. 3043 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  366. 3044 pokes+4,0:pokes+4,33:forw=0to50:next:next:i=11:print:print
  367. 3045 forl=1tolen(t$(i)):printmid$(t$(i),l,1);
  368. 3046 pokes+4,0:pokes+4,33:forw=0to50:next:next
  369. 3050 geta$:ifa$=""then3050
  370. 3051 restore:goto 4
  371. 35000 rem sprite datas -------------------------------------------------------
  372. 35001 :
  373. 35005 data0,224,0,1,16,0,1,16,0,0,160,0,0,72,128,0,71,0,0,66,0,1,255,128,3,255
  374. 35006 data192,7,255,224,7,195,224,7,219,224,3,219,192,1,219,128,0,255,0,0,129,0
  375. 35007 data 1,129,128,2,66,64,4,60,32,8,102,16,63,129,252,62
  376. 35008 :
  377. 35009 data0,0,0,12,0,48,34,4,60,19,42,211,4,174,96,1,123,96,11,183,156,29
  378. 35010 data187,85,11,185,149,10,110,228,20,251,96,4,48,0,0,194,0,2,32,64,11,76,32
  379. 35011 data 0,0,228,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  380. 39000 rem datenausgabe -------------------------------------------------------
  381. 39001 :pokev+21,0:poke2040,14:pokes+4,0:
  382. 39002 print"[147][146]aktueller datenstand"
  383. 39003 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  384. 39004 print"raumschiffe ";
  385. 39005 fori=1tor:print"[158] [146]";:next:print
  386. 39006 print"treibstoff ";:iftr>28thentr=28
  387. 39007 fori=1totr:print" [146]";:next:print
  388. 39011 geta$:ifa$=chr$(133)thenpokev+16,b:pokev,sv:pokev+1,sh:return
  389. 39012 goto39011
  390. 40000 rem universalabfrage ---------------------------------------------------
  391. 40001 :
  392. 40005 ifpeek(v+1)=1thensh=40:sv=peek(v):b=peek(v+16):y=y+1:goto40015
  393. 40006 ifpeek(v+1)=254thensh=243:sv=peek(v):b=peek(v+16):y=y-1:goto40015
  394. 40007 ifpeek(v)=88andpeek(v+16)=1thensv=67:b=1:sh=peek(v+1):x=x-1:goto40015
  395. 40008 ifpeek(v)=1andpeek(v+16)=0thensv=10:b=0:sh=peek(v+1):x=x+1:goto40015
  396. 40009 r=r-1:r1=1:pokes+5,12:pokes+6,50:pokes+1,15:pokes+4,0:pokes+4,129
  397. 40010 forw=0to50:poke53280,7:poke53280,0:next:pokev+16,0:pokev,5:pokev+1,5
  398. 40011 pokev+31,0:poke2040,13:pokev+16,b:pokev,sv:pokev+1,sh
  399. 40012 pokes+5,12:pokes+6,120:pokes+1,2:pokes+4,0
  400. 40013 ifr<1thengoto2000
  401. 40014 goto 40106
  402. 40015 m=1:return
  403. 40100 rem kleine routinen ----------------------------------------------------
  404. 40101 :pokev+16,0:pokev,5:pokev+1,5
  405. 40105 pokev+31,0:poke2040,13:pokev+16,b:pokev,sv:pokev+1,sh:pokev+21,1
  406. 40106 ifti$>"000010"thenti$="000000":tr=tr-1:iftr<1thengoto2000
  407. 40107 ifti$>"000020"thenti$="000000":tr=tr-2:iftr<1thengoto2000
  408. 40108 ifti$>"000030"thenti$="000000":tr=tr-3:iftr<1thengoto2000
  409. 40109 return
  410. 40110 pokes+24,15:pokes+5,12:pokes+6,120:pokes+12,10:pokes+1,2:pokes+13,10
  411. 40111 pokes+8,30:pokes+19,12:pokes+20,50:pokes+15,50:pokes+18,0:return
  412. 41000 rem grafiken -----------------------*** bild 1 ***----------------------
  413. 41001 :poke53280,0:poke53281,0
  414. 41011 print"[147]";
  415. 41012 print
  416. 41013 print"[144][163][163][163][163][163][163][144][163][163][163][163][163][163][163][163][163][163]       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][167]";
  417. 41014 print"[165]     [160]                                [167]";
  418. 41015 print"[165]     [160]                                [167]";
  419. 41016 print"[165]     [160]                                [167]";
  420. 41017 print"[165]     [160]                                [167]";
  421. 41018 print
  422. 41019 print"[165]     [160]                                [167]";
  423. 41020 print"[165]     [160]                                [167]";
  424. 41021 print"[165]             [146]             [146]            [144][167]";
  425. 41022 print"[144][165]     [160]       [158][146]             [146]             ";
  426. 41023 print"[152][162][185][175][164][175][185][151][177][152][185][162][185][175][185]  [152][146][175]         [164]  [152][146][175][185][162][175][185][151][177][152][185][175][164][175][175][185] ";
  427. 41024 print"      [151] [152]        [146][165]       [182]        [151] [152]      [146] ";
  428. 41025 print"               [146][180]       [167][160]              [146] ";
  429. 41026 print"               [146][181]       [182][160]              [146] ";
  430. 41027 print"               [146][161]       [167][160]              [146] ";
  431. 41028 print"               [146][181]        [160]              [146] ";
  432. 41029 print"              [160][146][165]       [167]               [146] ";
  433. 41030 print"               [146][181]       [182]               [146] ";
  434. 41031 print"              [160][146][165]       [167][160]              [146] ";
  435. 41032 print"              [160][146][161]       [182][160]              [146] ";
  436. 41033 print"               [146][165]        [160]              [146] ";
  437. 41034 print"               [146][161]       [167][160]              [146] ";
  438. 41035 print"              [160][146][165]       [182][160]              [146] ";
  439. 41036 print"               [146][181]       [167]               ";
  440. 41037 return
  441. 41040 rem *** bild 2 ***
  442. 41050 print"[147]";
  443. 41051 print"[152]               [146][181]       [182]               [146] ";
  444. 41052 print"               [146][165]       [167]               [146] ";
  445. 41053 print"               [146][161]       [167]               [146] ";
  446. 41054 print"               [146][181]                       [146] ";
  447. 41055 print"               [146][165]       [182]               [146] ";
  448. 41056 print"               [146][181]       [167]               [146] ";
  449. 41057 print"               [146][161]       [182]               [146] ";
  450. 41058 print"               [146][180]                       [146] ";
  451. 41059 print"               [146][181]       [167]               [146] ";
  452. 41060 print"               [146][161]       [182]               [146] ";
  453. 41061 print"               [146][180]       [167]               [146] ";
  454. 41062 print"               [146][161]       [167]               [146] ";
  455. 41063 print"               [146][180]                       [146] ";
  456. 41064 print"               [146][161]       [182]               [146] ";
  457. 41065 print"               [146][165]       [167]               [146] ";
  458. 41066 print"               [146][180]                       [146] ";
  459. 41067 print"               [146][181]       [167]               [146] ";
  460. 41068 print"               [146][161]       [167]               [146] ";
  461. 41069 print"               [146][181]       [182]               [146] ";
  462. 41070 print"               [146]                        [146] ";
  463. 41071 print"               [146][165]       [167]               [146] ";
  464. 41072 print"               [146][161]       [182]               [146] ";
  465. 41073 print"                [146]       [182]               [146] ";
  466. 41074 print"               [146][161]       [167]               [146] ";
  467. 41075 print"               [146][180]                       ";
  468. 41076 return
  469. 41080 rem *bild 3*
  470. 41090 print"[147]";
  471. 41091 print"               [146]                        [146] ";
  472. 41092 print"               [146]                        [146] ";
  473. 41093 print"               [146]                        [146] ";
  474. 41094 print"               [146]                        [146] ";
  475. 41095 print"               [146]                        [146] ";
  476. 41096 print"               [146]                        [146] ";
  477. 41097 print"               [146]                        [146] ";
  478. 41098 print"               [146]                        [146] ";
  479. 41099 print"            [159]*##[146]         ##*            [146] ";
  480. 41100 print"               [146]                        [146] ";
  481. 41101 print"              [159] [146]                        [146] ";
  482. 41102 print"     [159]          [146]         [160]              [146] ";
  483. 41103 print"     [159] [146]         [151]         [159][160]              [146] ";
  484. 41104 print"     [159][160]         [146]         [160]              [146] ";
  485. 41105 print"              [159][160][146]                        [146] ";
  486. 41106 print"               [146]                        [146] ";
  487. 41107 print"               [146]                        [146] ";
  488. 41108 print"               [146]                        [146] ";
  489. 41109 print"               [146]                        [146] ";
  490. 41110 print"               [146]                        [146] ";
  491. 41111 print"               [146]                        [146] ";
  492. 41112 print"               [146]                        [146] ";
  493. 41113 print"               [146]                        [146] ";
  494. 41114 print"               [146]                        [146] ";
  495. 41115 print"               [146]                        ";
  496. 41116 return
  497. 41120 rem *bild 4*
  498. 41130 print"[147]";
  499. 41131 print"               [158][146][171]       [179]               [146] ";
  500. 41132 print"               [223][146]       [169]               [146] ";
  501. 41133 print"                [223][146]     [169]                [146] ";
  502. 41134 print"                 [146]                [159]      [146] ";
  503. 41135 print"      [158]  [158]  [158]  [158]  [158]  [146][169]     [158] [146]                [146] ";
  504. 41136 print"    [160][146]                  [146]         [160]    [160][160][146] ";
  505. 41137 print"     [146]                 [158] [146]         [160]     [160][146] ";
  506. 41138 print"    [160][146]                  [146]               [160][146] ";
  507. 41139 print"     [146]    [158]  [158]  [158]  [158]  [158]  [158]  [158]  [146]         [160][146]    [160][160]";
  508. 41140 print"[146] ";
  509. 41141 print"     [146]                  [146]     [152][146][183] [146][183][183][160][146]     [160][146] ";
  510. 41142 print"     [146]                     [160] [146]     [159][146]##[146]##[160][160][146] ";
  511. 41143 print"[160]00 [146][195]                     [160][160][146]    [160][159]#[146]##[146]# [160][146] ";
  512. 41144 print"     [146]                      [160][146]     [146]    [160][160][146] ";
  513. 41145 print"                            [146]    [160][146]    [160][160][146] ";
  514. 41146 print"            [160][146]          [146]         [160]    [160] [146] ";
  515. 41147 print"             [146]          [146]                [146] ";
  516. 41148 print"             [158][146][195][195][195][195][195][195][195][195][195] [146]              [160] [146] ";
  517. 41149 print"   [223]         [146]         [160][146]              [160][160][146] ";
  518. 41150 print"    [223]        [146]               [146]     [159]      [146] ";
  519. 41151 print"     [223]       [146]    [160][146]          [146]    [160][146]    [160]  ";
  520. 41152 print" [146]                [160][146]          [146] [158][194]  [160][146]    [160]  ";
  521. 41153 print" [223][146]                [146]          [152][146][175] [146][175][175] [146]    [160]  ";
  522. 41154 print"  [223][146]                 [223][146]    [169]       [146]       ";
  523. 41155 print"   [223][146]             [160]  2[158][205][205][158][205][205]2       [146]      [146] ";
  524. 41156 print"                     [146]            [146]      ";
  525. 41157 return
  526. 41160 rem *blid 5*
  527. 41170 print"[147]";
  528. 41171 print"                         [160]             [146] ";
  529. 41172 print"[160][146] [194] [160][146]      [146]              [160] [146]        [223]   [146] ";
  530. 41173 print"[160][146] [216] [160][146]                    [160][160][146]         [160]  [146] ";
  531. 41174 print" [146][216]2[146][216] [146]                    [160] [146]         [160]  [146] ";
  532. 41175 print"[160][146] [216] [160][146]                      [146]            [146] ";
  533. 41176 print"[160][146]   [160][146]            [146]          [146]    [160][146]       [146] ";
  534. 41177 print"[160][146]   [160][159]       [146]               [146]    [160][146]       [146] ";
  535. 41178 print"[160][146]   [160][159]      [160][146]          [146]         [160][146]       [146] ";
  536. 41179 print"[160][146]   [160][159]      [160][146]          [146]         [160][146]       [146] ";
  537. 41180 print"[160][146]   [160][159]      [160][146]        [169][160][146]          [146]    [160]  [146] ";
  538. 41181 print"[160][146]   [160][146]      [160][146]          [146]        [169] [146]       [146] ";
  539. 41182 print"[160][146]   [160][146]      [160][146]    [160]              [160][146]       [146] ";
  540. 41183 print"[160][146]   [160][146]      [160][146]    [160]               [146]       [146] ";
  541. 41184 print"[160][146]   [160][146]      [160][146]    [160][160]             [160][146]       [146] ";
  542. 41185 print"[160][146]   [160][146]       [146]    [160]              [160][146]       [146] ";
  543. 41186 print" [146]    [159]      [160][146]    [160]              [160][146]       [146] ";
  544. 41187 print"[160][146]    [159]       [223][146]   [160]              [160][146]       [146] ";
  545. 41188 print"[160][146]    [159]                 [146]         [160][146]        ";
  546. 41189 print" [146]    [159]      [146]           [146][164][175][185][175][162][185][175][185][175] [146]        ";
  547. 41190 print" [146]   [160][146]                           [223][146]       ";
  548. 41191 print" [146]   [160][146]               [160]                  [146] ";
  549. 41192 print" [146]   [160][146]      [158]   [146]        [146]       [146]        [146]_ [146] ";
  550. 41193 print" [146]   [160][146]      [158]   [146]        [146]       [146]        [146]_ [146] ";
  551. 41194 print" [146]   [160][146]      [146][158]   [146]        [146]       [146]        [146]_ [146] ";
  552. 41195 print" [146]                            [153] [146]         ";
  553. 41196 return
  554. 41200 rem *bild 2*
  555. 41210 print"[147]";
  556. 41211 print"[152]               [146][165]       [182]               [146] ";
  557. 41212 print"               [146][181]       [167]               [146] ";
  558. 41213 print"               [146][161]        [223]              [146] ";
  559. 41214 print"               [146][180]        [182]              [146] ";
  560. 41215 print"               [146][161]        [167]              [146] ";
  561. 41216 print"               [146][181]         [223]             [146] ";
  562. 41217 print"               [146][165]         [182]             [146] ";
  563. 41218 print"               [146][180]         [167]             [146] ";
  564. 41219 print"               [146][181]                       [146] ";
  565. 41220 print"               [146][161]          [223]            [146] ";
  566. 41221 print"                [146]                       [146] ";
  567. 41222 print"                [146][181]                      [146] ";
  568. 41223 print"                [223][146]         [169]            [146] ";
  569. 41224 print"[152]                 [146][165]                     [146] ";
  570. 41225 print"[152]                 [146][181]                     [146] ";
  571. 41226 print"                 [146][161]       [169]             [146] ";
  572. 41227 print"                 [146][180]      [182]              [146] ";
  573. 41228 print"                [146][169]       [169]              [146] ";
  574. 41229 print"               [146][169]       [182]               [146] ";
  575. 41230 print"               [146][165]       [167]               [146] ";
  576. 41231 print"               [146][181]       [169]               [146] ";
  577. 41232 print"               [146][161]       [167]               [146] ";
  578. 41233 print"              [146][169]        [182]               [146] ";
  579. 41234 print"              [146][180]         [223]              [146] ";
  580. 41235 print"              [223][146]         [169]              ";
  581. 41236 return
  582. 41240 rem *bild 6*
  583. 41250 print"[147]";
  584. 41251 print" [146]     [159]e [159]l [159]e [159]m [159]i [159]n [159]a [159]t [159]i [159]o [159]n   [146]   ";
  585. 41252 print"      [146] ";
  586. 41253 print" [146]    [155]   [146]                    [182] [146]    [155]     [146] ";
  587. 41254 print"[160][146]   [160][155]  [146][173]                     [160][146]    [155] 00  [146] ";
  588. 41255 print"[160][146]   [160][155]  [146][176]                     [160][146]    [155]     [146] ";
  589. 41256 print"[160][146]   [160][155]   [146] [158][160]                  [155][182][160][146]         [146] ";
  590. 41257 print"[160][146]   [160]    [160][146]              [160][146]          [146]     ";
  591. 41258 print" [146]         [146]              [160][146]          [146]     ";
  592. 41259 print" [146]         [146]              [160][146]          [146]     ";
  593. 41260 print" [146]         [146]              [160][146]          [146]     ";
  594. 41261 print" [146]        [160][146]             [160]           [146]    [146] ";
  595. 41262 print"      [146]    [146]              [158]           [146]    [146] ";
  596. 41263 print" [146]           [150][146][195][195][195][195]   [146]                [146]   [160][146] ";
  597. 41264 print" [146]          [158][146][176][195][195][195][195][174][160] [146]                   [160][146] ";
  598. 41265 print" [146]         [160][158][146][179][153]bomb[158][171][160] [146]                   [160][146] ";
  599. 41266 print" [146]          [158][146][173][195][195][195][195][189][160] [146]                    [146] ";
  600. 41267 print" [146]           [146]       [146][164][175][185][175][164][175][185][175][162][185][175][185][175][164][175][164][175][175][164][175] ";
  601. 41268 print" [146]        [160]                             [146] ";
  602. 41269 print" [146]         [158]l [158]a [158]s [158]e [158]r                    [146] ";
  603. 41270 print"     [146]     [158][163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] ";
  604. 41271 print"   [146][169]                                    ";
  605. 41272 print" [155]  [146][171]                                    ";
  606. 41273 print" [155] [146][181]                                     ";
  607. 41274 print" [155]  [146][171]                                    ";
  608. 41275 print"   [223][146]  [158][164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] ";
  609. 41276 print"          [158]l [158]a [158]s [158]e [158]r                    ";
  610. 41277 return
  611. 41280 rem *bild 7*
  612. 41290 print"[147]";
  613. 41291 print"                   [159]  [146]            [146]    [160] [146] ";
  614. 41292 print" [159]                  [159]  [146]                [160] [146] ";
  615. 41293 print"[160][159]               [146]    [159] [146]                [160][160][146] ";
  616. 41294 print"[160][159]       [160]       [146]    [159][160][146]                [160][160][146] ";
  617. 41295 print"[160]     [159]  [160][146]           [159][160]                 [160][146] ";
  618. 41296 print"      [159]  [160][146]           [159][160][146]                  [146] ";
  619. 41297 print"     [160][159]  [160][146]            [146]           [160]      [146] ";
  620. 41298 print"     [160][159]   [146]           [160][146]           [160]      [146] ";
  621. 41299 print"         [146]       [146]    [160][146]           [160]      [146] ";
  622. 41300 print" [146]        [146]      [160][146]    [160][146]   [160]        [146]      [146] ";
  623. 41301 print" [146]              [160][146]        [160][146]              [146] ";
  624. 41302 print" [146]               [146]        [160][146]       [160]      [146] ";
  625. 41303 print" [146]               [146]        [160][146]       [160]      [146] ";
  626. 41304 print" [146]              [160][146]        [160][146]       [160]      [146] ";
  627. 41305 print"                    [160]    [146]              [146] ";
  628. 41306 print"[164][175][185][175][185][175][185][162][185][175][185][175][185][185][175][164][175][164] [160][160][146]         [146]         [146] ";
  629. 41307 print"                    [160][146]         [146]        [160][146] ";
  630. 41308 print"          _   _   _  [146]         [146]        [160][146] ";
  631. 41309 print"[158][163] [163] [163] [163] [163] [146][194] [158][146][194] [146][194] [158][146][194] [146][194] [146]         [160][146]         ";
  632. 41310 print"[146] ";
  633. 41311 print"                    [160]   [159]      [146]      [194][194][194][146] ";
  634. 41312 print"                    [160]             [160] [158][194][194][194][146] ";
  635. 41313 print"                                  [160] [194][194][194][146] ";
  636. 41314 print"                                  [160] [158][194][194][194][146] ";
  637. 41315 print"[164] [164] [164] [164] [164] [158][146][194] [146][194] [158][146][194] [146][194] [158][146][194] [146]    [159]      [146]    [160] [194]";
  638. 41316 print"[194][194][146] ";
  639. 41317 print"          _   _   _                    ";
  640. 41318 return
  641. 41320 rem *bild 8*
  642. 41330 print"[147]";
  643. 41331 print"[153]  [146]                      [153]               [146] ";
  644. 41332 print" [146][169]    [223]      #[153]           [146][169]       [160]   [223] [146] ";
  645. 41333 print" [146]                      [223] [146]        [160]     [146] ";
  646. 41334 print"[160][146]                       [160][146]         [160]   [160][146] ";
  647. 41335 print"[160][146]                        [146]             [160][146] ";
  648. 41336 print" [146]            #[153]     [223][146]     [146]    [169]   [146]     [160][146] ";
  649. 41337 print"[160][146]       [223] [146][169]       [223] [146]     [146]    [160][146][169]        [146] ";
  650. 41338 print"[160][146]        [160][146]         [160][146]     [146]   [160][160][146]        [160][146] ";
  651. 41339 print"[160][146]        [160][146]         [160][146]     [146]    [160][146]        [160][146] ";
  652. 41340 print"[160][146]         [146]         [160][146]     [146]   [160][160][146]        [160][146] ";
  653. 41341 print"[159]#[146]   #[146]    [153][160]    [160][146]     [146]        [160][160] [146][162]    [162] [153] [146] ";
  654. 41342 print"[159]#[146]   #[146]    [153][160]    [160][146]    [160][146]         [160][146][184]      [184][153] [146] ";
  655. 41343 print"[159]#[146]   #[146]    [153][160]    [160][146]     [146]        [160][160][146]         [146] ";
  656. 41344 print"[159]#[146]   #[153][223][146]       [169] [146]    [160][223][146]       [169][160][223][146]        [146] ";
  657. 41345 print"[159]#[146]   #[153]         [146][169]    [223]             [146]     [160][146] ";
  658. 41346 print"[159]#[146]   #[153][146][169]                [223]  [146][169]            [160][146] ";
  659. 41347 print"[159]#[146]   #[146]    [153][160]             [160] [146]             [160][146] ";
  660. 41348 print"[159]  [146][158][194][159]  [146]    [153][160]             [160][160][146]             [160][146] ";
  661. 41349 print"[159]     [153][146][160]            [160]    [160] [146]            [169] [146] ";
  662. 41350 print"         [169]         [146]      [146]              [146] ";
  663. 41351 print"         [153][160][146][169]            [160] [146]               ";
  664. 41352 print"         [160][146]        [160]    [160] [146]               ";
  665. 41353 print"        [169][160][146]        [160]    [160] [146]               ";
  666. 41354 print"[160]        [160][146]        [160]   [169][160][160][223][146]              ";
  667. 41355 print"         [153] [223][146]    [169]                       ";
  668. 41356 return
  669. 41360 rem *bild 9*
  670. 41370 print"[147]";
  671. 41371 print" [150][166][146]  [160][153][160]                 [160][146]   [150][166]      [146]    [153] [146] ";
  672. 41372 print" [150][166][146]  [160][153][160][146]                 [160][146]   [150][166][158][176][195][195][195][195][174]    [153][160][146] ";
  673. 41373 print" [150][166][146]  [160][153] [146]                 [160][146]   [150][166][158][194]         [153][160][146] ";
  674. 41374 print" [150][166][146]  [160][153] [146]                 [160][146]   [150][166][158][194]         [153][160][146] ";
  675. 41375 print" [150][166] [223][146][160][153][160][169] [158][146][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195] [223][153][160][146] [169] [150][146][166][158][194] ";
  676. 41376 print"        [153][160][146] ";
  677. 41377 print" [150][166][160]    [146]                [160]   [150][146][166][158][173][195][174][176][195][189]    [153][160][146] ";
  678. 41378 print" [150][166]     [146]               [160] [160]  [150][146][166][158][176][174][171][179][176][174]    [153][160][146] ";
  679. 41379 print" [150][166] [146][169][160][153][160][146][223] [158][146][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195] [146][169][153][160][146] [223][160][150][146][166]";
  680. 41380 print"[158][194][146][171][177][177][179][194][146]    [153][160][146] ";
  681. 41381 print" [150][166][146]  [160][153][160][146]                 [160][146]   [150][166][158][194]    [194][146]    [153][160][146] ";
  682. 41382 print" [150][166][146]  [160][153][160][146]                 [160][146]   [150][166][158][194][146][195][195][195][195][194][146]    [153][160][146] ";
  683. 41383 print" [150][166][146]   [153] [146]                 [160][146]   [150][166][158][194][146]fuel[194][146]    [153][160][146] ";
  684. 41384 print" [150][166][146] [154]  [153] [146]        [160][154]  [146]      [153] [146]   [150][166][158][194][146][195][195][195][195][194][146]    [153] ";
  685. 41385 print"[146] ";
  686. 41386 print" [150][166][146] [154][194] [153] [146]         [146] [154][194]      [153] [146]   [150][166][158][173][195][195][195][195][189][146]    [153] [146] ";
  687. 41387 print" [150][166][146] [154][194] [153][160][146]        [160][146] [154][194]                 [146]    [153] [146] ";
  688. 41388 print" [150][166][146] [154][194] [153] [146]        [160][146] [154][194]                     [153][160][146] ";
  689. 41389 print" [150][166][146] [154][194] [153][160][146]    [160]   [160][146] [154][194]                     [153][160][146] ";
  690. 41390 print" [150][166][146] [154] [146][209][153][160][146]        [160][154][146][209] [146]                     [153][160][146] ";
  691. 41391 print" [150][166][146] [154][160]   [146][166][158][166][166][158][166][166][158][166]  [160][154][160][146]                     [153][160][146] ";
  692. 41392 print" [150][166][146] [154] [146][209][153] [146]         [154][146][209][160][146]                     [153][160][146] ";
  693. 41393 print"   [154]  [153] [146]     [160]   [154]  [146]                     [153][160][146] ";
  694. 41394 print"          [160]    [146]                       [153][160][146] ";
  695. 41395 print"          [160]    [146]                      [169][153][160][146] ";
  696. 41396 print"              [160][146]         [146]              [153][160][146] ";
  697. 41397 print"             [169][160][146]        [160]              [153] [146] ";
  698. 41398 print"                                       ";
  699. 41399 return
  700. 41400 rem *bild 10*
  701. 41410 print"[147]";
  702. 41411 print"[171][146]  [155][194][146][189][182][151] [152]   [151] [146]     -----------------------[146] ";
  703. 41412 print"[171][146] [155][173][194][146] [182][151] [152]   [159] [146]                           -[146] ";
  704. 41413 print"[171][146]  [155][194][146][189][182][151]    [159][160][146]                           -[146] ";
  705. 41414 print"[171][146] [155][173][194][146]  [207][207][207][207][159] [146]                           -[146] ";
  706. 41415 print"[171][146]  [155][194][146][189] [204][204][204][204]------------------------[146]    -[146] ";
  707. 41416 print"[171][146] [155][173][194][146]   [194]  [213][195]=  =  =  =  =  =  =  -[146]    ";
  708. 41417 print"-[146] ";
  709. 41418 print"[171][146] [153][155] [194][146][189]  [194]  [194]                      -[146]    -[146] ";
  710. 41419 print"[171][146]  [155][194][146]   [171][195][195][203]          [160]     [160]     -[146]    [153] [146] ";
  711. 41420 print"[171][152][146][201][155][173][194][146] [152][213][178][203]             [160]     [160]     -[146]    [153][160][146] ";
  712. 41421 print"[171][152][146][171][195][155][194][152][146][195][219] [146]              [160]          [160][153] [146]    [160][146] ";
  713. 41422 print"[171][146][164][175][162][185][164][152] [146]     [164][175][164] [175][185][175][175]       [160]    [160][153] [146]    [160][146] ";
  714. 41423 print"[171]     [152][160][146]    [199][199][194][199][194][194][194][199][194][199][194][199][194][146]        [160][153][160][146]    [160][146] ";
  715. 41424 print"[171]     [152] [146]   [194][194][146]           [199][146]         [153] [146]     [146] ";
  716. 41425 print"[171]     [154] [146]   [199][146]            [194][199][146]        [153] [146]   [160] [146] ";
  717. 41426 print"[171]     [154] [146]   [194][146]             [194][199][146]           [153] [159] [146] ";
  718. 41427 print"[171]    [154]  [146]        [154]    [146]      [160] [146]          [153] [159] [146] ";
  719. 41428 print"[171]   [154]  [146]              [146]      [160][146]          [153] [159] [146] ";
  720. 41429 print"[195][195][195][195][153][146][171]             [179][195][146]     [154] [160] = = = = =[153]  [146] ";
  721. 41430 print" [146]  [154]  [146][185][175][164][175][164]   [164][175][185][154]    [146]     [160]  [158][146][160]         [153] [146] ";
  722. 41431 print" [146]   =[154]           =[146]        [154][160][160][146] [158][160]   [176][195][174]   [153] [146] ";
  723. 41432 print"                         [154][160] [146] [158][160][160][213][195] [146] [171][195][201] [153] [146] ";
  724. 41433 print"                         [154]  [146]  [195] [146] [171][195][179] [202][153] [159] [146] ";
  725. 41434 print"      [164] [164]  [164]  [164][164]         [154][160] [146]   [202][195] [146][213][177][201][153]  [159] [146] ";
  726. 41435 print"    =[154]           =[146][164][175][185][164] [185][175] [154]           [153] [159]  [146] ";
  727. 41436 print"                [154]          [153]           [159]  ";
  728. 41437 return
  729. 41440 rem *bild 11*
  730. 41450 print"[147]";
  731. 41451 print"[153][160]   [146][154]     [153]                              [146] ";
  732. 41452 print"[160][146][219][195][203]     [202][158][184][184][195][195][158][184][184][195][195][158][184][184][177][178][177][195][158][184][184][195][195][158][184][184][195][195][158][184][184][195][195][158][184][184][153] [146] ";
  733. 41453 print"[160][154][146][194]                 [213][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][153][160][146] ";
  734. 41454 print" [154][146][179]                 [194] [158][160]                [153][160][146] ";
  735. 41455 print"[160][154][146][194]   [158][164]  [164]  [164]  [164]  [164] [194][160] [160]               [153][160][146] ";
  736. 41456 print"[160][154][146][179]  [153][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][146][160] [152][185][185][185][185][185][185][185][185][185][185][185][185]  [153] [146] ";
  737. 41457 print"[160][154][146][194]  [153][160]-[146]  [154] [146]            [153][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146] ";
  738. 41458 print"[160][154][146][179]  [153][160]-[146] [154]  [146]            [153] [146] [194]    [150][195][146]         [153] [146] ";
  739. 41459 print"[160][154][146][194]  [153][160]-[146]  [154] [146]            [153][160][146] [194]    [194][146]         [153] [146] ";
  740. 41460 print"[160][154][146][179]  [153] -[146] [154]1 [146] -[153]   [150][194][195][195][195][150][194][153]  [160][146] [158][194]    [194][146]         ";
  741. 41461 print"[153] [146] ";
  742. 41462 print"[160][154][146][194]  [153] ------[153][160][146]         [160][146] [194]    [194][146]         [153][160][146] ";
  743. 41463 print"[160][154][146][179]  [153]       [160][146]            [146]    [150][195][146]         [153][160][146] ";
  744. 41464 print" [154][146][194]                     [153] [146]     [146]   [158][164]     [153][160][146] ";
  745. 41465 print" [154][146][179]                     [153][160][146] [205]  [153]   [150][194][195][195][195][195][150][194][153]  [146] ";
  746. 41466 print"[160][154][146][194]  [155][205]                 [159][160][153][160][146]   [146] [153] [146]     [158] [163]  [153] [146] ";
  747. 41467 print" [154][146][179][159][195][201][159]  [146][213][159][195][195][195][195][153] [159][146][195][195][195][195][195][195][195]  [158][164] [153][160][150][206][206][206][206][153] [146]          ";
  748. 41468 print"[146] ";
  749. 41469 print" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]====[153][195][195][195][195][195][195][146]       [158][160] [153][160][146] ";
  750. 41470 print"[159][195][195][178][195][195][178][195][195][178][195][195][178][195][195][178][153] [159][146][195][195][195] [158][163]  [159][195][195][195][195][195][153] [146]         [160][146] ";
  751. 41471 print"[163][163][158][184][163][163][158][184][163][163][158][184][163][163][158][184][163][163][158][184][150][195][146]            [195][146]         [153][160][146] ";
  752. 41472 print"[160][146]   [160]          [194][146]            [194][146]         [153][160][146] ";
  753. 41473 print"[159]=[146]              [194][146]            [194][146]         [159]=[146] ";
  754. 41474 print"=[146]  [153][160][160][160]         [194][146]            [194][146]         [159]=[146] ";
  755. 41475 print"[153][160][146]              [150][195][146]            [195][146]         [153] [146] ";
  756. 41476 print" [158][146][160]    [171][174][176][195][174][176][179]  [153] [159][146][195][195][185][185][195][195][195][185][185][195][195][195][153] [146]  [171][174][176][174][176][179] [153] [146] ";
  757. 41477 print"  [146]                                     ";
  758. 41478 return
  759. 41480 rem *bild 12*
  760. 41490 print"[147]";
  761. 41491 print"[153]         ==          ==       [159]  [153] [159][195][195][195][195][195][195][146] ";
  762. 41492 print"[153] [146]  [158][183][183] [194][158][183][183]  [183][183]  [183][183]  [183][183]  [183][183]  [183][183][194][159][206] [158][183][153]=[159][195][195][195][195][195][146] ";
  763. 41493 print"[153]=[146]     [194]                      [194][153][160][160] =[159]----[159][195][146] ";
  764. 41494 print"[153]=[146]     [194]        [159][213][195][195][195][195][195][195][195][195][195][195][201]  [194]   -----[159][195][146] ";
  765. 41495 print"[153][160][146]     [194]                   [159][194]  [150][194]   -----[159][160][146] ";
  766. 41496 print"[153][160][154][195][195][195][195][195][195][146]                   [159][194]  [194] [153][160] -----[159][160][146] ";
  767. 41497 print"[153] [146][195][195][195]                      [159][194]  [194]   -[158][146][195][195][158][195][195][159][160][146] ";
  768. 41498 print"[153]=[146]              [159][194]          [194]  [194]  [153][175]-[146]    [159] [146] ";
  769. 41499 print"[153]=[146]           [213][195][195][154]=[146][195][195][195][195][195][195][195][195][195][195][154]=[146][195][195][219][201][153]^1=[146]    [159] [146] ";
  770. 41500 print"[153] [146]           [194] [169][154]=[146]          =[223][146] [194][194][153][171]==[146]    [159] [146] ";
  771. 41501 print" [146][195][158][195][195][195][159]           ==========[159][160]       [146]    [160][146] ";
  772. 41502 print"[160][146]   [158][167][156][194][194]==[146]     ==[146]     ==[146]     ==[156][194][146] [158][194]     [159][160][146] ";
  773. 41503 print"[160][146]   [158][167][156][194][194]==[146]     ==[146]     ==[146]     ==[156][194][146] [158][194] [195][195][195][158][195][159][160][146] ";
  774. 41504 print"[160][146]   [158][167][156][194][194]==[146]     ==[146]     ==[146]     ==[156][194][146] [194]     [159][160][146] ";
  775. 41505 print"[160][146]   [158][167][156][194][194]==[146]     ==[146]     ==[146]     ==[156][194][146] [158][194]     [159][160][146] ";
  776. 41506 print" [146]               [153]----------[159]       [160][146]    [160][146] ";
  777. 41507 print" [146]     [158][184][184] [184][184] [184][184] [159] [146]           [153]_[195][195][160]  [159][160][146]    [160][146] ";
  778. 41508 print"[160][146]              [160][146]              [153]  2[159] [146]     [146] ";
  779. 41509 print" [146]              -[146][206]             [153][183][183][183]-[158][146][195][195][195][158][195][159][160][146] ";
  780. 41510 print" [146]       [213][195][195][195][195][201] -[146]                 [159][160]----[159][160][146] ";
  781. 41511 print"[160][146]       [154] [146]     [146] [159][160][146]                 [160]----[159][160][146] ";
  782. 41512 print"         [146]    [154]  [159][160][146]    [213][179][195][195][195][195][195][171][201]    [159][160]----[159][160][146] ";
  783. 41513 print" [153]-------[154] [146]    [160][153]-[159] [146][162][185] [213][159][194][146][179]     [171][159][194][146][201] [159][175][185]-[146]    -";
  784. 41514 print"[146] ";
  785. 41515 print"[160]========[158][146][164][164][164][164]==[159][160][194]2[153][146][194][159][194][194][146][219][201][164][164][164][213][219][159][194][194][153][146][194][159]2[194] [146]     ";
  786. 41516 print"[146] ";
  787. 41517 print"        ======[159]   [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]  [146]     ";
  788. 41518 return
  789. 41520 rem *vorspann - titel*
  790. 41530 print"[147]";
  791. 41531 print"       [164]   [164] [164] [164][164][164] [164][164][164] [164] [164][164][164] [164]  [164]       ";
  792. 41532 print"      [206][206][205][164][206][206][206][206][206]  [206][206]  [206][206][206][206]  [206][206][206][205][206][206][165]      ";
  793. 41533 print"      [159][160][223][146][206][159][169] [146]  [146]    [146][206][159]   [146][206][159][160][146]    [146]  [223][146] [160][146] [165]";
  794. 41534 print"      ";
  795. 41535 print"      [159][160]   [160][146] [160][146]  [146][206] [206][159] [146][206] [206][159][160][146]  [146]  [146]   [223][160][146] [165]    ";
  796. 41536 print"  ";
  797. 41537 print"      [159][160][146][223][160][146][169] [146] [160][146]    [146]    [146] [160][146]  [146]  [146]  [146][223] [160][146] [165]  ";
  798. 41538 print"    ";
  799. 41539 print"      [159][160][146][167]  [159] [146]  [146] [206] [159] [146] [206] [159][160][146] [160][146]  [146][206][159] [146] [160][146][167][159][223]";
  800. 41540 print"[160][146] [165]      ";
  801. 41541 print"      [159] [146][206][160] [159][160][146][206][159] [146][206][159]   [146][206][159]   [146][206][159] [146][206][159]   [146][206][159][160]";
  802. 41542 print"[146][206] [159] [146][206][153]                 fixed by 8r0tk4$t3n";
  803. 41543 print
  804. 41544 print"   written by thomas troska in 1987     ";
  805. 41545 print
  806. 41546 print"      [154]f1 - geschwindigkeit [ 0 ]        ";
  807. 41547 print
  808. 41548 print"      f3 - raumschiffe [ 10 ]           ";
  809. 41549 print
  810. 41550 print"      f5 - spielstart                   ";
  811. 41551 print
  812. 41552 print
  813. 41553 print
  814. 41554 print" [164][164][164] [164][164][164] [164][164][164] [164]  [164] [164][164][164] [164] [164] [164] [164][164][164] [164][164][164] [164][164][164] ";
  815. 41555 print"[206]  [206][206]  [206][206]  [206][206][206][205][206][206][206]  [206][206][206][206][206][206][206][206]  [206][206]  [206][206]  [206] ";
  816. 41556 print"[159]   [146][206][159]   [146]    [146]  [223][146]  [146]    [146][206][159] [146]  [146]  [146]    [146][206][159] ";
  817. 41557 print"  [146][206][159]   [146]  ";
  818. 41558 print"  [146] [165][159] [146][206][159] [146][206][159] [146][206][159] [146]   [223][160][146]  [146][206] [206][159]   [146]  [146] [165][159][160]";
  819. 41559 print"[146] [165][159] [146] [206][165][159] [146][206][159] [146][206] ";
  820. 41560 print" [159][160][146] [165][159]  [146][169][205][159]   [146]  [146][223] [160][146]    [146]  [146] [160][146]  [146] [165][159][160][146] [165][159][160]";
  821. 41561 print" [146][206] [159]  [146][169][205] ";
  822. 41562 print" [159] [146] [165][159]  [223][146][206][159] [146]  [146]  [146][167][159][223][160][146] [206] [159] [146] [160][146] [160][146] [160][146] [165][159][160]";
  823. 41563 print"[146] [165][159] [146][206] [206][159]  [223][146][206] ";
  824. 41564 print" [159][160][146][206] [159] [146][206][159] [146][206][159][160][146][206][159] [146][206][159][160][146][206][160][159][160][146][206][159]   [146][206][159][160][146][206][159] ";
  825. 41565 print"[146][206][159][160][146][206] [159] [146][206] [159]   [146][206][159] [146][206][159] [146][206]";
  826. 41566 return
  827.