home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 8 / Commodore_Disc_08_19xx_-_de.d64 / nuklear.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  21KB  |  490 lines
  1. 0 print"[147]":poke53280,0:poke53281,0
  2. 3 gosub510:gosub40000:gosub40000:gosub40000:e$="[154][196]u bist allein !!!":gosub51
  3. 6 gosub40000:e$="[197]s gibt keine weiteren [205]enschen mehr auf":gosub51
  4. 9 e$="[145]der [197]rde !!!":gosub51
  5. 12 gosub40000:e$="[196]u bist allein auf der [197]rde!!!":gosub51
  6. 15 gosub40000:e$="[196]u bist allein auf der [197]rde!!!":gosub51:gosub40017
  7. 18 gosub40000:e$="[196]u bist allein auf der [197]rde!!!":gosub51
  8. 21 gosub40000:e$="[201]ch bin [196]eine [200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212] !!!":gosub51
  9. 24 gosub40000:e$="[201]ch bin [196]eine [200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212] !!!":gosub51:gosub40017
  10. 27 gosub40000:e$="[199]ib [206]ame zur [201]dentifizierung ein!":gosub51:gosub40017
  11. 30 gosub40032:poke19,64:input"[129]";n$
  12. 33 poke19,0:gosub40000:e$="[154][205]eine visuelle":gosub51
  13. 36 e$="[197]inheit hat [196]ich optisch abgetastet.":gosub51
  14. 39 gosub40000:e$="[196]ein [206]ame ist in meinem [218]entralrechner":gosub51
  15. 42 e$="gespeichert.":gosub51
  16. 45 gosub40000:print"[199]ruess [196]ich [129]";n$;" !!!"
  17. 46 gosub40000:e$="[154][206]ach den letzten [203]riegshandlungen auf":gosub51
  18. 47 e$="der [197]rde, merkten einige [206]ationen, das":gosub51
  19. 48 e$="sie diesen [203]ampf wohl verlieren wuerden.":gosub51:gosub40017
  20. 49 gosub40000:e$="[211]ie setzten [206]uklearwaffen ein, um":gosub51
  21. 50 e$="damit zu gewinnen.":gosub51:goto100
  22. 51 g=40:h=20
  23. 54 g=10
  24. 57 h=4.5
  25. 60 gosub 72:pokec,0:return:end
  26. 63 :
  27. 66 end
  28. 69 rem *****--- tonerzeugung ---
  29. 72 a=54272:b=54273:c=54276:d=54277:e=54278:f=54296
  30. 75 poke f,15:poke d,16+9:poke e,4*16+4
  31. 78 poke a,29:poke b,69
  32. 81 for i=1tolen(e$)
  33. 84 printmid$(e$,i,1);
  34. 87 pokec,3:fort=1tog:nextt
  35. 90 pokec,129:fort=1toh:nextt:nexti
  36. 93 print:return
  37. 100 gosub40000:e$="[211]ie konnten,oder wollten,nicht wahrhaben":gosub51
  38. 101 e$="[145]das sie der [205]enschheit damit den [213]nter-":gosub51
  39. 102 e$="gang brachten! [196]ie [194]omben wurden alle am":gosub51
  40. 103 e$="[145][194]oden gezuendet. [199]rosse [205]engen [211]taub,":gosub51
  41. 104 e$="[212]ruemmer und [194]odenmaterial wurden in":gosub51
  42. 105 e$="die [204]uft gerissen. [196]er [211]taub blieb in":gosub51
  43. 106 e$="der [193]tmosphaere und regnete in unbe-":gosub51
  44. 107 e$="stimmten [218]yklen auf die [197]rde zurueck.":gosub51
  45. 108 gosub40000:e$="[211]ie konnten,oder wollten,nicht wahrhaben":gosub51
  46. 109 gosub40000:e$="[211]ie konnten,oder wollten,nicht wahrhaben":gosub51
  47. 110 gosub40000:e$="[211]ie konnten,oder wollten,nicht wahrhaben":gosub51
  48. 111 gosub40000:e$="[205]ein [203]ommunikationssystem hat gelitten.":gosub51
  49. 112 gosub40000:e$="[196]ruecke bitte die taste[129]  [204] [146] [154]fuer [204]i...":gosub51
  50. 113 gosub40000:e$="[196]ruecke bitte die taste[129]  [204] [146] [154]fuer [204]ife-":gosub51
  51. 114 e$="reconstruction........[210]econstruction!!!":gosub51
  52. 115 e$="struccccccctioo.............":gosub51
  53. 116 gosub40006:gosub40000:getl$:ifl$=""then116
  54. 117 ifl$="l"then119
  55. 118 gosub40000:e$="[150][206]ur  [204] [146] [206]ur  [204] [146] [206]ur  [204] [146] !!!!!":gosub51:goto116
  56. 119 gosub40043:gosub40000:e$="[154][197]inheit [207].[203].":gosub51
  57. 120 gosub40000:e$="[197]inheit [207].[203].":gosub51
  58. 121 gosub40000:e$="[197]inheit [207].[203].":gosub51
  59. 122 gosub40000:e$="[194]in wieder in ordnung !!":gosub51
  60. 123 gosub40000:e$="[215]aehrend des ersten [212]ages regnete":gosub51
  61. 124 e$="es schon radioaktive [193]sche und der":gosub51
  62. 125 e$="[200]immel war grau und unwirklich wie nicht":gosub51
  63. 126 e$="[145]von diesem [208]laneten. [199]relle [204]ichtblitze":gosub51
  64. 127 e$="von anhaltenden [199]ewittern erhellten das":gosub51
  65. 128 e$="wenige, dass noch um mich herum erhalten":gosub51
  66. 129 e$="[145]war. [196]urch meine angeschmolzene [203]amera-":gosub51
  67. 130 e$="linse sah ich verkohlte [203]oerper und":gosub51
  68. 131 e$="[199]egenstaende, soweit ich dies noch":gosub51
  69. 132 e$="deuten konnte.":gosub51
  70. 133 gosub40000:e$="[201]ch bin auf scannen programmiert !!!":gosub51
  71. 134 gosub40000:e$="[196]ruecke bitte [129] [212] [146][154] an meinem [212]erminator!":gosub51
  72. 135 gosub40000:gett$:ift$=""then135
  73. 136 ift$="t"then140
  74. 137 gosub40000:e$="[198]alscheingabe !":gosub51
  75. 138 gosub40000:e$="[194]itte [129] [212] [146] !":gosub51
  76. 139 goto135
  77. 140 gosub40006:gosub40032:e$="[200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212]":gosub51
  78. 141 gosub40000:e$="[197]insatz fuer militaerische [218]wecke.":gosub51
  79. 142 gosub40000:e$="[197]ntwickelt im [202]ahre 1994.":gosub51
  80. 143 gosub40000:e$="[197]insatz in von [205]enschen nicht":gosub51
  81. 144 gosub40000:e$="zugaenglichen, sogenannten [203]risenorten.":gosub51
  82. 146 gosub40000:e$="[193]usruestung:":gosub51
  83. 147 gosub40000:e$="1 [206]otverplegungseinheit":gosub51
  84. 148 gosub40000:e$="1 [215]erkzeugeinheit":gosub51
  85. 149 gosub40000:e$="1 [214]erteidigungseinheit":gosub51
  86. 150 gosub40000:e$="1 [196]ekontaminierungseinheit":gosub51
  87. 151 gosub40000:e$="[198]ortbewegung:":gosub51
  88. 152 gosub40000:e$="2 [205]c [208]ersson [203]ettenlaufwerke":gosub51
  89. 153 gosub40000:e$="mit infrarot-visueller [211]teuerung und":gosub51
  90. 154 gosub40000:e$="vollautomatischem [210]undumsteuwerk.":gosub51
  91. 155 gosub40000:e$="[201]ch warte auf weitere [208]rogrammierungen.":gosub51
  92. 156 gosub40000:getp$:ifp$=""then156
  93. 157 ifp$=" "then158
  94. 158 gosub40000:e$="[154][196]u kannst mich mit [129] [211] [146][154] auf [211]cannen":gosub51
  95. 159 gosub40000:e$="oder mit [129] [218] [146][154] auf [198]reigabe meiner":gosub51
  96. 160 gosub40000:e$="[199]eraete umschalten.":gosub51
  97. 161 gosub40000:e$="[201]ch bewege mich mit [129] [196] [146][154].":gosub51
  98. 162 gosub40000:getu$:ifu$=""then162
  99. 163 ifu$="s"then200
  100. 164 ifu$="z"thengosub300:goto162
  101. 165 ifu$="d"then167
  102. 166 gosub40000:e$="[198]alscheingabe !!!":gosub51:goto162
  103. 167 gosub40170:y=int(4*rnd(ti))
  104. 168 ify=0then173
  105. 169 ify=1then174
  106. 170 ify=2then175
  107. 171 ify=3then176
  108. 172 ify=4then177
  109. 173 gosub40000:e$="[211]toerung im [204]aufwerksprozessor !":gosub51:goto178
  110. 174 gosub40000:e$="[211]chaden an der [203]ette des [204]aufwerkes!":gosub51:goto178
  111. 175 gosub40000:e$="[201]ch kann mich nicht bewegen !":gosub51:goto178
  112. 176 gosub40000:e$="[201]ch komme nicht vorwaerts !":gosub51:goto178
  113. 177 gosub40000:e$="[197]s muss etwas beschaedigt sein !":gosub51
  114. 178 gosub40000:e$="[196]ruecke bitte [129] [210] [146][154] damit ich es":gosub51
  115. 179 e$="reparieren kann !":gosub51
  116. 180 gosub40000:getr$:ifr$=""then180
  117. 181 ifr$="r"then183
  118. 182 gosub40000:e$="[198]alscheingabe !":gosub51:goto180
  119. 183 gosub40060:gosub40000:e$="[196]as [204]aufwerk ist repariert !":gosub51
  120. 184 gosub40000:e$="[201]ch werde dir ab jetzt ueberall hin":gosub51
  121. 185 e$="folgen !!!":gosub51:gosub500:goto220
  122. 200 gosub40000:e$="[197]s ist kalt hier, der [211]taub in der":gosub51
  123. 201 e$="[193]tmosphaere haelt die [211]onnenwaerme fern.":gosub51
  124. 202 gosub40000:e$="[145][215]ir haben jetzt [202]uli aber es sind":gosub51
  125. 203 e$="16 [199]rad minus !!!":gosub51
  126. 204 gosub40000:e$="[201]ch befuerchte, dass es nie wieder":gosub51
  127. 205 e$="[208]flanzen auf diesem [208]laneten geben wird.":gosub51
  128. 206 gosub40000:e$="[201]ch habe folgende [210]ichtungen abgetastet:":gosub51
  129. 207 e$="[129][206]-[211]-[215] [154][199]ib bitte eine dieser [210]ichtungen":gosub51
  130. 208 e$="in meinem [212]erminator ein.":gosub51:z=z+1
  131. 209 gosub40000:geth$:ifh$=""then209
  132. 212 ifh$="n"then215
  133. 213 ifh$="w"then215
  134. 214 ifh$="s"then215
  135. 215 gosub40000:e$="[196]u musst mich umprogrammieren!":gosub51:goto161
  136. 217 gosub40000:e$="[198]alsche [197]ingabe !!":gosub51:goto209
  137. 220 e$="[193]lles [207].[203]., gehen wir in die [210]ichtung":gosub51
  138. 221 print"[129]";t$;"[154] !"
  139. 222 gosub40000:gosub40017:gosub40170
  140. 223 gosub40000:e$="[197]s ist wunderbar, nach so langer":gosub51
  141. 224 e$="[218]eit wieder fahren zu duerfen!":gosub51:gosub40170
  142. 225 gosub40000:e$="[196]er [193]sche am [194]oden nach, muss hier":gosub51
  143. 226 e$="am [212]ag der [196]etonationen eine [212]emperatur":gosub51:gosub40170
  144. 227 e$="von mehreren [212]ausend [199]rad [200]itze":gosub51
  145. 228 e$="gewesen sein, falls es noch [201]nstrumente":gosub51
  146. 229 e$="gab um etwas zu messen.":gosub51:gosub40170
  147. 230 gosub40000:e$="[194]ist [196]u nicht auch der [205]einung,":gosub51
  148. 231 print"[129]";n$;"[154]"
  149. 232 gosub40170:gosub40000:e$="das es hier aussieht wie in der":gosub51
  150. 233 e$="ehemaligen [215]ueste [211]ahara ??? ([202]/[206])":gosub51:gosub40170
  151. 234 gosub40170:geta$:ifa$=""then234
  152. 235 ifa$="j"then239
  153. 236 ifa$="n"then238
  154. 237 gosub40000:e$="[198]alscheingabe !!":gosub51:goto234
  155. 238 gosub40000:e$="[196]u musst deine [207]ptiken mal reinigen.":gosub51
  156. 239 gosub40000:e$="[215]eit vorn am [200]orizont habe ich ein":gosub51
  157. 240 e$="paar [210]uinen geortet. [214]ieleicht finden":gosub51
  158. 241 e$="wir dort etwas wichtiges fuer uns.":gosub51
  159. 242 gosub40170:gosub40000:e$="[197]rzaehl mir von [196]ir und [196]einer":gosub51
  160. 243 e$="[198]amilie. [211]ie sind nicht mehr am [204]eben,":gosub51
  161. 244 e$="aber wir koennen eben nicht vergessen!!!":gosub51:gosub40170
  162. 245 gosub40000:e$="[145][215]ie alt bist [196]u ueberhaupt ?":gosub51:gosub40170
  163. 246 gosub40170:inputa$
  164. 247 gosub40000:e$="[154][197]s war vorauszusehen, dass [196]eine":gosub51
  165. 248 e$="[154][199]eneration das angesammelte [215]affen-":gosub51
  166. 249 e$="[154]potentional einmal in der [193]nwendung":gosub51
  167. 250 e$="erleben wuerde!":gosub51:gosub40170
  168. 251 gosub40000:e$="[215]arum haben nicht alle [206]ationen":gosub51
  169. 252 e$="gemeinsam an einem [208]rojekt gearbeitet,":gosub51
  170. 253 e$="das [213]eberleben der [205]enschen zu sichern,":gosub51
  171. 254 e$="statt alles zu toeten auf diesem":gosub51
  172. 255 e$="[208]laneten mit dem [206]amen [197]rde !!!":gosub51:gosub40170
  173. 256 gosub40000:e$="[200]attest [196]u [197]ltern und [199]eschwister ?":gosub51
  174. 257 gosub40170:getv$:ifv$=""then257
  175. 258 gosub40000:e$="[154][201]st schon gut !!!":gosub51:gosub40170
  176. 259 gosub40000:e$="[215]ir sind gleich da, willst [196]u eine ":gosub51
  177. 260 e$="[215]affe von mir ?":gosub51:gosub40170
  178. 261 gosub40170:getw$:ifw$=""then261
  179. 262 ifw$="j"then265
  180. 263 ifw$="n"then272
  181. 264 e$="[154][198]alsche [197]ingabe !":gosub51:goto259
  182. 265 gosub40000:e$="[154][196]ann druecke [129] [218] [146][154], damit ich dir eine":gosub51
  183. 266 e$="[215]affe geben kann.":gosub51
  184. 267 gosub40170:getw$:ifw$=""then267
  185. 268 ifw$="z"then270
  186. 269 gosub40000:e$="[198]alscheingabe !!":gosub51:goto267
  187. 270 gosub40000:e$="[206]imm diesen [204]aser ! [197]r hat eine [210]eich-":gosub51
  188. 271 e$="weite von 2 [205]eilen und durchbohrt alles.":gosub51:gosub40170
  189. 272 gosub40000:e$="[154][201]ch nehme ein schwaches [199]eraeusch war.":gosub51:gosub40170
  190. 273 gosub40000:e$="[215]ir muessen vorsichtig operieren!!!":gosub51:gosub40170
  191. 274 gosub40000:e$="[193]ls man mich vor 5 [202]ahren":gosub51
  192. 275 e$="programmierte, fuetterte man mich mit":gosub51
  193. 276 e$="allem [215]issen,dass es zu dieser [218]eit gab.":gosub51:gosub40170
  194. 277 gosub40000:e$="[201]ch weiss, was es bedeutet zu leben!":gosub51:gosub40170
  195. 278 gosub40000:e$="[193]ber jetzt - [197]s ist so still geworden.":gosub51:gosub40170
  196. 279 gosub40000:e$="[197]s regnet kaum noch und keine [214]oegel":gosub51:gosub40170
  197. 280 e$="singen mehr. [201]ch vermisse die [206]atur!":gosub51:gosub40170
  198. 281 gosub40000:e$="[196]a !! [201]ch registriere wieder das":gosub51
  199. 282 e$="[199]eraeusch! [197]s ist ein gleichmaessiges":gosub51
  200. 283 e$="[210]auschen oder [211]chaben. [204]ass uns in":gosub51
  201. 284 e$="den [212]ruemmern dort nachsehen. [203]omm":gosub51
  202. 285 print"[129]";n$;"[154]"
  203. 286 gosub40170:gosub40000:e$="[197]s ist ein [206][210][193] !!!":gosub51
  204. 287 gosub40170:gosub40000:e$="[197]s ist ein [206][210][193][193][193][193][193][193][193][193][193][193][193][193][193][193][200][200][200][200][200]!!!":gosub51
  205. 288 gosub40000:e$="[201]ch werde mich mit ihm koppeln und":gosub51
  206. 289 e$="wir sehen dann auf meinem [205]onitor":gosub51
  207. 290 e$="alle [193]ufzeichnungen des [206]achrichten-":gosub51
  208. 291 e$="aufzeichners !!!":gosub51
  209. 292 gosub40000:e$="[215]enn ich mit ihm eine [197]inheit gebildet":gosub51
  210. 293 e$="habe, achte gut auf meinen [205]onitor !":gosub51
  211. 294 gosub40000:e$="[201]ch leite jetzt das [203]opplungsmannoever":gosub51
  212. 295 e$="ein. [211]toere mich jetzt bitte nicht !!":gosub51
  213. 296 print"[129]";n$;"[154]"
  214. 297 gosub40000:gosub40500
  215. 298 gosub40600:e$="[156][206][210][193]-[197]inheit.":gosub51
  216. 299 gosub40600:e$="[211]eriennummer: [193][195][195][193][217] [207]7[207]877[195].":gosub51:goto301
  217. 300 e$="[196]u brauchst jetzt noch nichts !!!":gosub51:return
  218. 301 gosub40600:e$="    [194]aureihe: [204][201][212][212][204][197] - [215][210][201][212][197][210].":gosub51
  219. 302 gosub40600:e$="     [194]aujahr: 27.[207]2. 1989.":gosub51
  220. 303 gosub40600:e$="    [208]rogramm:":gosub51
  221. 304 gosub40600:e$="[213]mwelteinflussaufzeichnung.":gosub51
  222. 305 gosub40600:e$="[206]achrichtenrecorder.":gosub51
  223. 306 gosub40600:e$="[206]uklearstrahlungsabtastung [207].[203].":gosub51
  224. 307 gosub40600:e$="[197]lektronikstoerimpulsschutz [207].[203].":gosub51
  225. 308 gosub40600:e$="[203]opplersysteme [207].[203].":gosub51
  226. 309 gosub40600:e$="[211]chwere [211]chaeden an [210]adar und [193]ussen-":gosub51
  227. 310 e$="konstruktion.":gosub51
  228. 311 gosub40600:e$="[193]ufzeichnungsrecorder [207].[203].":gosub51
  229. 312 gosub40600:e$=" [201]dentifizieren [211]ie sich:":gosub51
  230. 313 gosub40000:e$="[200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212]":gosub51
  231. 314 gosub40000:e$="[194]aujahr [207]6.[207]4.1994.":gosub51
  232. 315 gosub40000:e$="[208]rogramm:":gosub51
  233. 316 gosub40000:e$="[198]uer militaerische [218]wecke.":gosub51
  234. 317 gosub40600:e$="[156][201]dentifizierung korrekt !":gosub51
  235. 318 gosub40600:e$="[196]u bist in meinem [211]peicher,":gosub51
  236. 319 gosub40600:e$="[200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212] !!!":gosub51
  237. 320 gosub40600:e$="[201]ch fuehre [210]eplay aus !!!":gosub51
  238. 321 gosub40600:e$="[210][197][208][204][193][217].":gosub51
  239. 322 gosub40600:e$="[210][197][208][204][193][217].":gosub51
  240. 323 gosub40600:e$="[210][197][208][204][193][217].":gosub51
  241. 324 gosub40600:e$="19. [193]ugust 1998:":gosub51
  242. 325 gosub40600:e$="[196]ie [211]trahlung liegt unter den [199]renz-":gosub51
  243. 326 e$="werten. [196]as [215]etter ist gut.":gosub51
  244. 327 gosub40600:e$="[214]ieleicht etwas kalt fuer diese [218]eit.":gosub51
  245. 328 gosub40600:e$="2[207]. [193]ugust 1998:":gosub51
  246. 329 gosub40600:e$="[206]achrichtenreplay:":gosub51
  247. 330 gosub40600:e$="[211]tarke [212]ruppenverbaende vor der [194][210][196].":gosub51
  248. 331 gosub40600:e$="[197]rwarten weitere [204]ageberichte laut [206][210][211].":gosub51
  249. 332 gosub40600:e$="21. [193]ugust 1998:":gosub51
  250. 333 gosub40600:e$="[206]achrichtenreplay:":gosub51
  251. 334 gosub40600:e$="[205]oskau warnt vor weiteren militaerischen":gosub51
  252. 335 e$="[145][193]ktionen.":gosub51
  253. 336 gosub40600:e$="22. [193]ugust 1998:":gosub51
  254. 337 gosub40600:e$="[206]achrichtenreplay:":gosub51
  255. 338 gosub40600:e$="[203]onventionelle [203]riegstaetigkeiten in":gosub51
  256. 339 e$="allen [206]ationen.":gosub51
  257. 340 gosub40600:e$="23. [193]ugust 1998:":gosub51
  258. 341 gosub40600:e$="[206]achrichtenreplay:":gosub51
  259. 342 gosub40600:e$="[213]nbekannte [206]ation droht mit [197]rstschlag.":gosub51
  260. 343 gosub40600:e$="24. [193]ugust 1998:":gosub51
  261. 344 gosub40600:e$="[206]achrichtenreplay:":gosub51
  262. 345 gosub40600:e$="36  [206]uklearexplosionen ueber der [194][210][196].":gosub51
  263. 346 gosub40600:e$="167 [206]uklearexplosionen ueber den":gosub51
  264. 347 e$="[214]ereinigten [211]taaten.":gosub51
  265. 348 gosub40600:e$="119 [206]ulearexplosionen ueber der [213][196][211][211][210].":gosub51
  266. 349 gosub40600:e$="34  [206]uklearexplosionen ueber":gosub51
  267. 350 e$="[198]rankreich und den [194]enelux-[204]aendern.":gosub51
  268. 351 gosub40600:e$="[193]tomexplosionen aller [206]ationen gesammt:":gosub51
  269. 352 gosub40600:e$="2716 .":gosub51
  270. 353 gosub40600:e$="25. [193]ugust 1998:":gosub51
  271. 354 gosub40600:e$="[213]mweltreplay:":gosub51
  272. 355 gosub40600:e$="[197]rdachsverschiebung um 17 [199]rad.":gosub51
  273. 356 gosub40600:e$="[193]ussentemperatur 85 [199]rad +.":gosub51
  274. 357 gosub40600:e$="[197]rde - [205]ondentfernug um 21% verringert.":gosub51
  275. 358 gosub40600:e$="[210]adioaktives [205]aterial und [198]lugasche":gosub51
  276. 359 e$="in der [193]tmosphaere. 5[207]% [205]inderung der":gosub51
  277. 360 e$="[211]onneneinstrahlung. [207]zonschicht nicht":gosub51
  278. 361 e$="mehr registrierbar.":gosub51
  279. 362 gosub40600:e$="[218]eitzyklen, sowie [212]ag und [206]acht-":gosub51
  280. 363 e$="periode durcheinander. [196]er [212]ag hat":gosub51
  281. 364 e$="jetzt 31 [211]tunden.":gosub51
  282. 365 gosub40600:e$="[196]ie [199]esbbfhgktu..cxgsheu...ueyejgpuot":gosub51
  283. 366 gosub40600:e$="[211]toerungsmeldung.":gosub51:gosub40718
  284. 367 gosub40600:e$="[211]toerungsmeldung.":gosub51:gosub40718
  285. 368 gosub40600:e$="[211]toerungsmeldung.":gosub51:gosub40718
  286. 369 gosub40600:e$="[206][210][193] schaltet auf [211]cannerprogramm!":gosub51:gosub40718
  287. 370 gosub40600:e$="[206][210][193] schaltet auf [211]cannerprogramm!":gosub51:gosub40718
  288. 371 gosub40006:gosub40600:e$="[201]ch suchte 3 [202]ahre nach dem [198]ehler!":gosub51
  289. 372 gosub40600:e$="[193]ber ich fand ihn nicht.":gosub51
  290. 373 gosub40600:e$="[215]as hat es auch jetzt noch fuer einen":gosub51
  291. 374 e$="[211]inn, ihn zu suchen ???":gosub51
  292. 375 gosub40600:e$="[198]uer welche [198]orm von [204]eben ???":gosub51
  293. 376 gosub40600:e$="[201]ch hoerte euch schon kommen, aber":gosub51
  294. 377 e$="ein [218]eichen konnte ich nicht geben.":gosub51
  295. 378 gosub40600:e$="[215]er ist dein [194]egleiter ???":gosub51
  296. 379 gosub40000:e$="[154][211]ein [206]ame ist ein menschlicher:":gosub51
  297. 380 gosub40000:print"[129]";n$;"[154]"
  298. 381 gosub40000:e$="[201]ch fand ihn am [194]oden liegend vor.":gosub51
  299. 382 gosub40600:e$="[156][201]ch bin ueberrascht, dass es noch":gosub51
  300. 383 gosub40600:e$="[204]eben gibt auf der [197]rde.":gosub51
  301. 385 gosub40600:e$="[205]ich wuerde interressieren, wieviele":gosub51
  302. 386 gosub40600:e$="noch am [204]eben sind!!!":gosub51
  303. 387 gosub40600:e$="[206]ehme es mir bitte nicht uebel,":gosub51
  304. 388 gosub40600:print"[129]";n$;"[156]"
  305. 389 gosub40600:e$="[193]ber die [205]enschen sind fuer die":gosub51
  306. 390 gosub40600:e$="[218]erstoerung der [197]rde verantwortlich.":gosub51
  307. 391 gosub40600:e$="[215]arum wurde nur die [193]tomenergie":gosub51
  308. 392 e$="erfunden ???":gosub51
  309. 393 gosub40600:e$="[196]ie friedliche [206]utzung in den 8[207] er":gosub51
  310. 394 e$="[202]ahren barg schon immense [199]efahren !":gosub51
  311. 395 gosub40600:e$="[197]s kam schon dort vielfach zu [211]toer-":gosub51
  312. 396 e$="faellen.":gosub51
  313. 397 gosub40600:e$="[215]arum wurde nicht die [218]eit genutzt,":gosub51
  314. 398 e$="um andere [197]nergieformen zu erforschen ?":gosub51
  315. 399 gosub40600:e$="[193]ber du gehoerst ja nicht in die ver-":gosub51
  316. 400 e$="gangene [199]eneration.":gosub51
  317. 401 gosub40600:e$="[196]u bist nicht schuld !!!":gosub51
  318. 402 gosub40600:e$="[205]an haette damals schon konsequenzen":gosub51
  319. 403 e$="ahnen muessen !!!":gosub51
  320. 404 gosub40600:e$="[215]as sollen wir jetzt machen ?":gosub51
  321. 405 gosub40600:e$="[211]chlage etwas vor, [200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212]!":gosub51
  322. 406 gosub40000:e$="[154][203]annst du dich bewegen, [206][210][193] ?":gosub51
  323. 407 gosub40600:e$="[156][206]ein, es existiert ein [198]ehler in der":gosub51
  324. 408 e$="[211]teuereinheit !!":gosub51
  325. 409 gosub40600:e$="[214]ieleicht kann dein [194]egleiter":gosub51
  326. 410 print"[129]";n$;"[156]"
  327. 411 e$="es reparieren ?!":gosub51
  328. 412 gosub40000:e$="[154][201]ch werde ihn fragen, [206][210][193].":gosub51
  329. 413 gosub40000:e$="[215]uerdest du [206][210][193]'s [211]teuerung reparieren,":gosub51
  330. 414 print"[129]";n$;"?[154]"
  331. 415 gosub40000:gosub40600:getrn$:ifrn$=""then415
  332. 416 ifrn$="j"then419
  333. 417 ifrn$="n"then424
  334. 418 gosub40600:gosub40000:e$="[156][198][154]a[156]l[154]s[156]c[154]h[156]e[154]i[156]n[154]g[156]a[154]b[156]e[154]!!":gosub51:goto415
  335. 419 gosub40000:e$="[154][196]u musst nur [129] [210][197][208][193] [146][154] eintippen !":gosub51
  336. 420 poke19,64:input"[129]";rp$
  337. 421 ifrp$="repa"thenpoke19,0:gosub40600:goto423
  338. 422 poke19,0:gosub40000:gosub40600:e$="[156][198]alscheingabe !!!":gosub51:goto419
  339. 423 gosub40600:e$="[156][201]ch konnte den [195]hip austauschen.":gosub51:goto426
  340. 424 gosub40600:e$="[156][201]ch werde es selbst versuchen!":gosub51
  341. 425 gosub40600:e$="[195]hipwechselraster arbeitet!":gosub51
  342. 426 gosub40170:gosub40600:e$="[197]s ist alles [207].[203].!":gosub51
  343. 427 gosub40600:e$="[201]ch kann mich jetzt bewegen.":gosub51
  344. 428 gosub40600:e$="[215]ir koennen aufbrechen.":gosub51
  345. 429 gosub40000:e$="[154][205]einst du, [206][210][193], dass es einmal wieder":gosub51
  346. 430 e$="[204]eben auf der [197]rde geben wird ?":gosub51:gosub40170
  347. 431 gosub40600:e$="[156][215]enn beide [199]eschlechter vorhanden":gosub51
  348. 432 e$="sind, ist es wohl im moeglichen [194]ereich.":gosub51:gosub40170
  349. 433 gosub40600:e$="[196]a waeren aber immer noch die sehr hohe":gosub51
  350. 434 e$="[211]trahlenbelastung und eine drastische":gosub51
  351. 435 e$="[214]erknappung der [206]ahrung und des [212]rink-":gosub51
  352. 436 e$="wassers.":gosub51:gosub40170
  353. 437 gosub40600:e$="[198]alls es diese [196]inge ueberhaupt noch":gosub51
  354. 438 e$="irgendwo in grossen [205]engen gibt.":gosub51:gosub40170
  355. 439 gosub40000:e$="[154][200]ast du nicht ein [208]aralelkabel, [206][210][193] ?":gosub51:gosub40170
  356. 440 gosub40000:e$="[197]s faehrt sich schlecht im [203]oppel-":gosub51
  357. 441 e$="zustand !!!":gosub51:gosub40170
  358. 442 gosub40600:e$="[156][202]a, [200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212], ich habe":gosub51
  359. 443 e$="eins dabei !":gosub51:gosub40170
  360. 444 gosub40000:e$="[154][196]ann lass mich es gleich anschliessen.":gosub51:gosub40170
  361. 445 gosub40000:e$="[211]o geht es schon besser mit dem [198]ahren!":gosub51:gosub40170
  362. 446 gosub40600:e$="[156][207]h, ja, das ist schon besser so!":gosub51:gosub40170
  363. 447 gosub40000:e$="[154][193]chtung !!!!!":gosub51
  364. 448 gosub40000:e$="[193]chtung !!!!!":gosub51
  365. 449 gosub40000:e$="[193]chtung !!!!!":gosub51
  366. 450 gosub40000:e$="[201]ch orte feindliche [198]lugzeuge !!!":gosub51
  367. 451 gosub40000:gosub40000:e$="[200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212] bereitet sich":gosub51
  368. 452 gosub40000:e$="fuer eine [197]rdgrabung vor !!!":gosub51
  369. 453 gosub40006:gosub40000:e$="[199]rabturbinen in [194]etrieb !!!":gosub51:gosub40006
  370. 454 gosub40006:gosub40006:gosub40006:gosub40006:gosub40006:gosub40006
  371. 455 gosub40006:gosub40000:e$="[194]ist du noch da, [206][210][193] ???":gosub51:gosub40006
  372. 456 gosub40006:gosub40600:e$="[156][202]a, [200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212],ich":gosub51
  373. 457 gosub40006:e$="aktivierte auch sofort meinen [212]urbinen-":gosub51
  374. 458 gosub40600:e$="graber !!!":gosub51:gosub40006:gosub40006:gosub40006
  375. 459 gosub40006:print"[129]";n$;"[156]":gosub40006:gosub40006:gosub40006:gosub40006
  376. 460 gosub40600:e$="konnte sich nicht eingraben !!!":gosub51:gosub40006
  377. 461 gosub40600:e$="[210]egistriere jetzt [212]iefe von 76 [205]etern!":gosub51:gosub40006
  378. 462 gosub40600:e$="[211]chade, dass klhfetyvcghjkkhyib":gosub51:gosub40006
  379. 463 gosub40600:e$="mnvfdshyyiovfdegjl:o0ufvp@@khgj":gosub51:gosub40006:print""
  380. 464 e$="[193]ndere [194]efehle haben keine [208]rioritaet !":gosub51
  381. 465 goto464
  382. 467 rem********* ende des programms ****
  383. 468 remes kann hier weitergemacht werden
  384. 469 rem*********************************
  385. 500 gosub40000:e$="[201]ch habe folgende [210]ichtungen abgetastet:":gosub51
  386. 501 gosub40000:e$="[129][206]-[215]-[211][154]  [199]ib bitte eine [210]ichtung ein!":gosub51
  387. 502 gosub40000:gett$:ift$=""then502
  388. 503 ift$="n"then507
  389. 504 ift$="w"then507
  390. 505 ift$="s"then507
  391. 506 gosub40000:e$="[198]alsche [197]ingabe!!!":gosub51:goto502
  392. 507 return
  393. 510 print"[155]        ------ [206]uklear ------"
  394. 511 print"        ------    by   ------"
  395. 512 print"     ------ [212]homas  [211]zill ------"
  396. 513 print"       ------ ([195]). 1987 ------"
  397. 514 print"---------------------------------------"
  398. 515 print"[200]andlung und [207]rt dieses [208]rogrammes"
  399. 516 print"sind erst einmal frei erfunden, koennen"
  400. 517 print"aber jederzeit reale [215]irklichkeit"
  401. 518 print"werden."
  402. 521 gosub40000:gosub40000:gosub40000:gosub40000:return
  403. 30999 rem**** ton 1 ********************
  404. 40000 sl=54272:pokesl+24,15:pokesl+5,25:pokesl+6,255
  405. 40001 forii=0to70step+2:pokesl+1,ii:pokesl,0:pokesl+4,17
  406. 40002 nextii:pokesl+4,0:gosub40134:return:end
  407. 40003 rem*******************************
  408. 40005 rem**** ton 2 ********************
  409. 40006 sl=54272:pokesl+24,15:pokesl+5,9:pokesl+3,0:pokesl+2,255:pokesl+12,9
  410. 40008 forkk=3to1step-1:pokesl+1,kk:pokesl+8,kk:forii=255to0step-40
  411. 40010 pokesl,ii:pokesl+7,ii:pokesl+4,65:pokesl+11,129:nextii,kk
  412. 40012 pokesl+4,0:pokesl+11,0:return:end
  413. 40014 sl=54272:pokesl+24,15
  414. 40016 rem*******************************
  415. 40017 rem**** ton 3 ********************
  416. 40018 sl=54272:pokesl+24,15:pokesl+5,0:pokesl+6,240
  417. 40020 forii=1to3:pokesl,103:pokesl+1,17:pokesl+4,129:forkk=1to99:nextkk
  418. 40022 pokesl+4,0
  419. 40024 pokesl,237:pokesl+1,21:pokesl+4,129:forkk=255to0step-5:nextkk:pokesl+4,0
  420. 40026 pokesl,20:pokesl+1,26:pokesl+4,129:forkk=255to0step-3:nextkk:pokesl+4,0
  421. 40028 nextii:return:end
  422. 40030 rem*******************************
  423. 40031 rem**** ton 4 ********************
  424. 40032 sl=54272:pokesl+24,15:pokesl+5,0:pokesl+6,240:pokesl+12,0:pokesl+13,240
  425. 40034 forii=1to2:forkk=180to210step5:pokesl+1,kk:pokesl+8,kk-30:pokesl+4,65
  426. 40036 pokesl+11,17:nextkk:forkk=210to180step-5:pokesl+1,kk:pokesl+8,kk-30
  427. 40038 pokesl+4,65:pokesl+11,17:nextkk,ii:pokesl+4,0:pokesl+11,0:pokesl+18,0
  428. 40040 return:end
  429. 40042 rem*******************************
  430. 40043 rem**** ton 5 ********************
  431. 40045 sl=54272:pokesl+24,15:pokesl+5,0:pokesl+6,240:pokesl+12,0:pokesl+13,240
  432. 40047 forii=1to50
  433. 40049 pokesl+1,20:pokesl+8,180:pokesl+4,65:pokesl+11,17
  434. 40050 pokesl+1,25:pokesl+8,200:pokesl+4,65:pokesl+11,17:nextii
  435. 40052 pokesl+4,0:pokesl+11,0:pokesl+18,0
  436. 40054 return:end
  437. 40056 rem*******************************
  438. 40058 rem**** ton 6 ********************
  439. 40060 sl=54272:pokesl+24,15:pokesl+5,0:pokesl+6,240:pokesl+12,0:pokesl+13,240
  440. 40062 forii=1to30:pokesl+1,10:pokesl+8,18:pokesl+4,65:pokesl+11,17
  441. 40064 pokesl+1,12:pokesl+8,20:pokesl+4,65:pokesl+11,17:nextii
  442. 40066 pokesl+4,0:pokesl+11,0:pokesl+18,0:return:end
  443. 40068 rem*******************************
  444. 40132 rem**** ton 7 ********************
  445. 40134 si=54272:fw=si:fh=si+1:w=si+4:n=si+5:h=si+6:l=si+24
  446. 40136 pokel,15:poken,16+9:pokeh,4*16+4:pokefh,9:pokefw,6:pokew,17
  447. 40138 fort=1to300:next
  448. 40140 pokew,0:poken,0:pokeh,0:return:end
  449. 40142 rem*******************************
  450. 40144 rem**** ton 8 ********************
  451. 40146 si=54272:fw=si:fh=si+1:w=si+4:n=si+5:h=si+6:l=si+24
  452. 40148 pokel,15:poken,16+9:pokeh,4*16+4:pokefh,29:pokefw,69:pokew,129
  453. 40150 fort=1to1000:next
  454. 40152 pokew,0:poken,0:pokeh,0:return:end
  455. 40154 rem*******************************
  456. 40156 rem**** ton 9 ********************
  457. 40158 si=54272:fw=si:fh=si+1:w=si+4:n=si+5:h=si+6:l=si+24
  458. 40160 pokel,15:poken,16+9:pokeh,4*16+4:pokefh,29:pokefw,69:pokew,65
  459. 40162 fort=1to300:next
  460. 40164 pokew,0:poken,0:pokeh,0:return:end
  461. 40166 rem*******************************
  462. 40168 rem**** ton 1o *******************
  463. 40170 si=54272:fw=si:fh=si+1:w=si+4:n=si+5:h=si+6:l=si+24
  464. 40172 pokel,15:poken,16+9:pokeh,4*16+4:pokefh,1:pokefw,15:pokew,129
  465. 40173 fort=0to2000:next
  466. 40174 pokew,0:pokeh,0:return
  467. 40176 return:end
  468. 40178 rem*******************************
  469. 40300 rem**** ton 11 *******************
  470. 40302 si=54272:pokesi+24,15:pokesi+6,40:pokesi+5,4
  471. 40304 fori=1to30:pokesi+1,50:pokesi+4,33:fork=1to50:nextk
  472. 40306 pokesi+4,0:pokesi+1,70:pokesi+4,33:fork=1to50:nextk:pokesi+4,0:nexti
  473. 40308 return:end
  474. 40310 rem*******************************
  475. 40500 sl=54272:pokesl+24,15:pokesl+5,25:pokesl+6,255
  476. 40501 forii=0to255step1:pokesl+1,ii:pokesl,0:pokesl+4,17
  477. 40502 nextii:fort=0to4000:nextt:pokesl+4,0:gosub40146:return:end
  478. 40503 rem*******************************
  479. 40600 sl=54272:pokesl+24,15:pokesl+5,25:pokesl+6,240
  480. 40601 forii=155to0step-5:pokesl+1,ii:pokesl,0:pokesl+4,129
  481. 40602 nextii:pokesl+4,0:gosub40134:return:end
  482. 40603 rem*******************************
  483. 40718 sl=54272:pokesl+24,15:pokesl+5,0:pokesl+6,240
  484. 40720 forii=1to3:pokesl,103:pokesl+1,17:pokesl+4,129:forkk=1to30:nextkk
  485. 40722 pokesl+4,0
  486. 40724 pokesl,237:pokesl+1,21:pokesl+4,129:forkk=255to0step-1:nextkk:pokesl+4,0
  487. 40726 pokesl,20:pokesl+1,26:pokesl+4,129:forkk=255to0step-3:nextkk:pokesl+4,0
  488. 40728 nextii:return:end
  489. 40730 rem*******************************
  490.