0 PRINT"[147]":POKE53280,0:POKE53281,0
3 GOSUB510:GOSUB40000:GOSUB40000:GOSUB40000:E$="[154][196]U BIST ALLEIN !!!":GOSUB51
6 GOSUB40000:E$="[197]S GIBT KEINE WEITEREN [205]ENSCHEN MEHR AUF":GOSUB51
9 E$="[145]DER [197]RDE !!!":GOSUB51
12 GOSUB40000:E$="[196]U BIST ALLEIN AUF DER [197]RDE!!!":GOSUB51
15 GOSUB40000:E$="[196]U BIST ALLEIN AUF DER [197]RDE!!!":GOSUB51:GOSUB40017
18 GOSUB40000:E$="[196]U BIST ALLEIN AUF DER [197]RDE!!!":GOSUB51
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
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
27 GOSUB40000:E$="[199]IB [206]AME ZUR [201]DENTIFIZIERUNG EIN!":GOSUB51:GOSUB40017
30 GOSUB40032:POKE19,64:INPUT"[129]";N$
33 POKE19,0:GOSUB40000:E$="[154][205]EINE VISUELLE":GOSUB51
36 E$="[197]INHEIT HAT [196]ICH OPTISCH ABGETASTET.":GOSUB51
39 GOSUB40000:E$="[196]EIN [206]AME IST IN MEINEM [218]ENTRALRECHNER":GOSUB51
42 E$="GESPEICHERT.":GOSUB51
45 GOSUB40000:PRINT"[199]RUESS [196]ICH [129]";N$;" !!!"
46 GOSUB40000:E$="[154][206]ACH DEN LETZTEN [203]RIEGSHANDLUNGEN AUF":GOSUB51
47 E$="DER [197]RDE, MERKTEN EINIGE [206]ATIONEN, DAS":GOSUB51
48 E$="SIE DIESEN [203]AMPF WOHL VERLIEREN WUERDEN.":GOSUB51:GOSUB40017
49 GOSUB40000:E$="[211]IE SETZTEN [206]UKLEARWAFFEN EIN, UM":GOSUB51
50 E$="DAMIT ZU GEWINNEN.":GOSUB51:GOTO100
51 G=40:H=20
54 G=10
57 H=4.5
60 GOSUB 72:POKEC,0:RETURN:END
63 :
66 END
69 REM *****--- TONERZEUGUNG ---
72 A=54272:B=54273:C=54276:D=54277:E=54278:F=54296
75 POKE F,15:POKE D,16+9:POKE E,4*16+4
78 POKE A,29:POKE B,69
81 FOR I=1TOLEN(E$)
84 PRINTMID$(E$,I,1);
87 POKEC,3:FORT=1TOG:NEXTT
90 POKEC,129:FORT=1TOH:NEXTT:NEXTI
93 PRINT:RETURN
100 GOSUB40000:E$="[211]IE KONNTEN,ODER WOLLTEN,NICHT WAHRHABEN":GOSUB51
101 E$="[145]DAS SIE DER [205]ENSCHHEIT DAMIT DEN [213]NTER-":GOSUB51
102 E$="GANG BRACHTEN! [196]IE [194]OMBEN WURDEN ALLE AM":GOSUB51
103 E$="[145][194]ODEN GEZUENDET. [199]ROSSE [205]ENGEN [211]TAUB,":GOSUB51
104 E$="[212]RUEMMER UND [194]ODENMATERIAL WURDEN IN":GOSUB51
105 E$="DIE [204]UFT GERISSEN. [196]ER [211]TAUB BLIEB IN":GOSUB51
106 E$="DER [193]TMOSPHAERE UND REGNETE IN UNBE-":GOSUB51
107 E$="STIMMTEN [218]YKLEN AUF DIE [197]RDE ZURUECK.":GOSUB51
108 GOSUB40000:E$="[211]IE KONNTEN,ODER WOLLTEN,NICHT WAHRHABEN":GOSUB51
109 GOSUB40000:E$="[211]IE KONNTEN,ODER WOLLTEN,NICHT WAHRHABEN":GOSUB51
110 GOSUB40000:E$="[211]IE KONNTEN,ODER WOLLTEN,NICHT WAHRHABEN":GOSUB51
111 GOSUB40000:E$="[205]EIN [203]OMMUNIKATIONSSYSTEM HAT GELITTEN.":GOSUB51
112 GOSUB40000:E$="[196]RUECKE BITTE DIE TASTE[129]  [204] [146] [154]FUER [204]I...":GOSUB51
113 GOSUB40000:E$="[196]RUECKE BITTE DIE TASTE[129]  [204] [146] [154]FUER [204]IFE-":GOSUB51
114 E$="RECONSTRUCTION........[210]ECONSTRUCTION!!!":GOSUB51
115 E$="STRUCCCCCCCTIOO.............":GOSUB51
116 GOSUB40006:GOSUB40000:GETL$:IFL$=""THEN116
117 IFL$="L"THEN119
118 GOSUB40000:E$="[150][206]UR  [204] [146] [206]UR  [204] [146] [206]UR  [204] [146] !!!!!":GOSUB51:GOTO116
119 GOSUB40043:GOSUB40000:E$="[154][197]INHEIT [207].[203].":GOSUB51
120 GOSUB40000:E$="[197]INHEIT [207].[203].":GOSUB51
121 GOSUB40000:E$="[197]INHEIT [207].[203].":GOSUB51
122 GOSUB40000:E$="[194]IN WIEDER IN ORDNUNG !!":GOSUB51
123 GOSUB40000:E$="[215]AEHREND DES ERSTEN [212]AGES REGNETE":GOSUB51
124 E$="ES SCHON RADIOAKTIVE [193]SCHE UND DER":GOSUB51
125 E$="[200]IMMEL WAR GRAU UND UNWIRKLICH WIE NICHT":GOSUB51
126 E$="[145]VON DIESEM [208]LANETEN. [199]RELLE [204]ICHTBLITZE":GOSUB51
127 E$="VON ANHALTENDEN [199]EWITTERN ERHELLTEN DAS":GOSUB51
128 E$="WENIGE, DASS NOCH UM MICH HERUM ERHALTEN":GOSUB51
129 E$="[145]WAR. [196]URCH MEINE ANGESCHMOLZENE [203]AMERA-":GOSUB51
130 E$="LINSE SAH ICH VERKOHLTE [203]OERPER UND":GOSUB51
131 E$="[199]EGENSTAENDE, SOWEIT ICH DIES NOCH":GOSUB51
132 E$="DEUTEN KONNTE.":GOSUB51
133 GOSUB40000:E$="[201]CH BIN AUF SCANNEN PROGRAMMIERT !!!":GOSUB51
134 GOSUB40000:E$="[196]RUECKE BITTE [129] [212] [146][154] AN MEINEM [212]ERMINATOR!":GOSUB51
135 GOSUB40000:GETT$:IFT$=""THEN135
136 IFT$="T"THEN140
137 GOSUB40000:E$="[198]ALSCHEINGABE !":GOSUB51
138 GOSUB40000:E$="[194]ITTE [129] [212] [146] !":GOSUB51
139 GOTO135
140 GOSUB40006:GOSUB40032:E$="[200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212]":GOSUB51
141 GOSUB40000:E$="[197]INSATZ FUER MILITAERISCHE [218]WECKE.":GOSUB51
142 GOSUB40000:E$="[197]NTWICKELT IM [202]AHRE 1994.":GOSUB51
143 GOSUB40000:E$="[197]INSATZ IN VON [205]ENSCHEN NICHT":GOSUB51
144 GOSUB40000:E$="ZUGAENGLICHEN, SOGENANNTEN [203]RISENORTEN.":GOSUB51
146 GOSUB40000:E$="[193]USRUESTUNG:":GOSUB51
147 GOSUB40000:E$="1 [206]OTVERPLEGUNGSEINHEIT":GOSUB51
148 GOSUB40000:E$="1 [215]ERKZEUGEINHEIT":GOSUB51
149 GOSUB40000:E$="1 [214]ERTEIDIGUNGSEINHEIT":GOSUB51
150 GOSUB40000:E$="1 [196]EKONTAMINIERUNGSEINHEIT":GOSUB51
151 GOSUB40000:E$="[198]ORTBEWEGUNG:":GOSUB51
152 GOSUB40000:E$="2 [205]C [208]ERSSON [203]ETTENLAUFWERKE":GOSUB51
153 GOSUB40000:E$="MIT INFRAROT-VISUELLER [211]TEUERUNG UND":GOSUB51
154 GOSUB40000:E$="VOLLAUTOMATISCHEM [210]UNDUMSTEUWERK.":GOSUB51
155 GOSUB40000:E$="[201]CH WARTE AUF WEITERE [208]ROGRAMMIERUNGEN.":GOSUB51
156 GOSUB40000:GETP$:IFP$=""THEN156
157 IFP$=" "THEN158
158 GOSUB40000:E$="[154][196]U KANNST MICH MIT [129] [211] [146][154] AUF [211]CANNEN":GOSUB51
159 GOSUB40000:E$="ODER MIT [129] [218] [146][154] AUF [198]REIGABE MEINER":GOSUB51
160 GOSUB40000:E$="[199]ERAETE UMSCHALTEN.":GOSUB51
161 GOSUB40000:E$="[201]CH BEWEGE MICH MIT [129] [196] [146][154].":GOSUB51
162 GOSUB40000:GETU$:IFU$=""THEN162
163 IFU$="S"THEN200
164 IFU$="Z"THENGOSUB300:GOTO162
165 IFU$="D"THEN167
166 GOSUB40000:E$="[198]ALSCHEINGABE !!!":GOSUB51:GOTO162
167 GOSUB40170:Y=INT(4*RND(TI))
168 IFY=0THEN173
169 IFY=1THEN174
170 IFY=2THEN175
171 IFY=3THEN176
172 IFY=4THEN177
173 GOSUB40000:E$="[211]TOERUNG IM [204]AUFWERKSPROZESSOR !":GOSUB51:GOTO178
174 GOSUB40000:E$="[211]CHADEN AN DER [203]ETTE DES [204]AUFWERKES!":GOSUB51:GOTO178
175 GOSUB40000:E$="[201]CH KANN MICH NICHT BEWEGEN !":GOSUB51:GOTO178
176 GOSUB40000:E$="[201]CH KOMME NICHT VORWAERTS !":GOSUB51:GOTO178
177 GOSUB40000:E$="[197]S MUSS ETWAS BESCHAEDIGT SEIN !":GOSUB51
178 GOSUB40000:E$="[196]RUECKE BITTE [129] [210] [146][154] DAMIT ICH ES":GOSUB51
179 E$="REPARIEREN KANN !":GOSUB51
180 GOSUB40000:GETR$:IFR$=""THEN180
181 IFR$="R"THEN183
182 GOSUB40000:E$="[198]ALSCHEINGABE !":GOSUB51:GOTO180
183 GOSUB40060:GOSUB40000:E$="[196]AS [204]AUFWERK IST REPARIERT !":GOSUB51
184 GOSUB40000:E$="[201]CH WERDE DIR AB JETZT UEBERALL HIN":GOSUB51
185 E$="FOLGEN !!!":GOSUB51:GOSUB500:GOTO220
200 GOSUB40000:E$="[197]S IST KALT HIER, DER [211]TAUB IN DER":GOSUB51
201 E$="[193]TMOSPHAERE HAELT DIE [211]ONNENWAERME FERN.":GOSUB51
202 GOSUB40000:E$="[145][215]IR HABEN JETZT [202]ULI ABER ES SIND":GOSUB51
203 E$="16 [199]RAD MINUS !!!":GOSUB51
204 GOSUB40000:E$="[201]CH BEFUERCHTE, DASS ES NIE WIEDER":GOSUB51
205 E$="[208]FLANZEN AUF DIESEM [208]LANETEN GEBEN WIRD.":GOSUB51
206 GOSUB40000:E$="[201]CH HABE FOLGENDE [210]ICHTUNGEN ABGETASTET:":GOSUB51
207 E$="[129][206]-[211]-[215] [154][199]IB BITTE EINE DIESER [210]ICHTUNGEN":GOSUB51
208 E$="IN MEINEM [212]ERMINATOR EIN.":GOSUB51:Z=Z+1
209 GOSUB40000:GETH$:IFH$=""THEN209
212 IFH$="N"THEN215
213 IFH$="W"THEN215
214 IFH$="S"THEN215
215 GOSUB40000:E$="[196]U MUSST MICH UMPROGRAMMIEREN!":GOSUB51:GOTO161
217 GOSUB40000:E$="[198]ALSCHE [197]INGABE !!":GOSUB51:GOTO209
220 E$="[193]LLES [207].[203]., GEHEN WIR IN DIE [210]ICHTUNG":GOSUB51
221 PRINT"[129]";T$;"[154] !"
222 GOSUB40000:GOSUB40017:GOSUB40170
223 GOSUB40000:E$="[197]S IST WUNDERBAR, NACH SO LANGER":GOSUB51
224 E$="[218]EIT WIEDER FAHREN ZU DUERFEN!":GOSUB51:GOSUB40170
225 GOSUB40000:E$="[196]ER [193]SCHE AM [194]ODEN NACH, MUSS HIER":GOSUB51
226 E$="AM [212]AG DER [196]ETONATIONEN EINE [212]EMPERATUR":GOSUB51:GOSUB40170
227 E$="VON MEHREREN [212]AUSEND [199]RAD [200]ITZE":GOSUB51
228 E$="GEWESEN SEIN, FALLS ES NOCH [201]NSTRUMENTE":GOSUB51
229 E$="GAB UM ETWAS ZU MESSEN.":GOSUB51:GOSUB40170
230 GOSUB40000:E$="[194]IST [196]U NICHT AUCH DER [205]EINUNG,":GOSUB51
231 PRINT"[129]";N$;"[154]"
232 GOSUB40170:GOSUB40000:E$="DAS ES HIER AUSSIEHT WIE IN DER":GOSUB51
233 E$="EHEMALIGEN [215]UESTE [211]AHARA ??? ([202]/[206])":GOSUB51:GOSUB40170
234 GOSUB40170:GETA$:IFA$=""THEN234
235 IFA$="J"THEN239
236 IFA$="N"THEN238
237 GOSUB40000:E$="[198]ALSCHEINGABE !!":GOSUB51:GOTO234
238 GOSUB40000:E$="[196]U MUSST DEINE [207]PTIKEN MAL REINIGEN.":GOSUB51
239 GOSUB40000:E$="[215]EIT VORN AM [200]ORIZONT HABE ICH EIN":GOSUB51
240 E$="PAAR [210]UINEN GEORTET. [214]IELEICHT FINDEN":GOSUB51
241 E$="WIR DORT ETWAS WICHTIGES FUER UNS.":GOSUB51
242 GOSUB40170:GOSUB40000:E$="[197]RZAEHL MIR VON [196]IR UND [196]EINER":GOSUB51
243 E$="[198]AMILIE. [211]IE SIND NICHT MEHR AM [204]EBEN,":GOSUB51
244 E$="ABER WIR KOENNEN EBEN NICHT VERGESSEN!!!":GOSUB51:GOSUB40170
245 GOSUB40000:E$="[145][215]IE ALT BIST [196]U UEBERHAUPT ?":GOSUB51:GOSUB40170
246 GOSUB40170:INPUTA$
247 GOSUB40000:E$="[154][197]S WAR VORAUSZUSEHEN, DASS [196]EINE":GOSUB51
248 E$="[154][199]ENERATION DAS ANGESAMMELTE [215]AFFEN-":GOSUB51
249 E$="[154]POTENTIONAL EINMAL IN DER [193]NWENDUNG":GOSUB51
250 E$="ERLEBEN WUERDE!":GOSUB51:GOSUB40170
251 GOSUB40000:E$="[215]ARUM HABEN NICHT ALLE [206]ATIONEN":GOSUB51
252 E$="GEMEINSAM AN EINEM [208]ROJEKT GEARBEITET,":GOSUB51
253 E$="DAS [213]EBERLEBEN DER [205]ENSCHEN ZU SICHERN,":GOSUB51
254 E$="STATT ALLES ZU TOETEN AUF DIESEM":GOSUB51
255 E$="[208]LANETEN MIT DEM [206]AMEN [197]RDE !!!":GOSUB51:GOSUB40170
256 GOSUB40000:E$="[200]ATTEST [196]U [197]LTERN UND [199]ESCHWISTER ?":GOSUB51
257 GOSUB40170:GETV$:IFV$=""THEN257
258 GOSUB40000:E$="[154][201]ST SCHON GUT !!!":GOSUB51:GOSUB40170
259 GOSUB40000:E$="[215]IR SIND GLEICH DA, WILLST [196]U EINE ":GOSUB51
260 E$="[215]AFFE VON MIR ?":GOSUB51:GOSUB40170
261 GOSUB40170:GETW$:IFW$=""THEN261
262 IFW$="J"THEN265
263 IFW$="N"THEN272
264 E$="[154][198]ALSCHE [197]INGABE !":GOSUB51:GOTO259
265 GOSUB40000:E$="[154][196]ANN DRUECKE [129] [218] [146][154], DAMIT ICH DIR EINE":GOSUB51
266 E$="[215]AFFE GEBEN KANN.":GOSUB51
267 GOSUB40170:GETW$:IFW$=""THEN267
268 IFW$="Z"THEN270
269 GOSUB40000:E$="[198]ALSCHEINGABE !!":GOSUB51:GOTO267
270 GOSUB40000:E$="[206]IMM DIESEN [204]ASER ! [197]R HAT EINE [210]EICH-":GOSUB51
271 E$="WEITE VON 2 [205]EILEN UND DURCHBOHRT ALLES.":GOSUB51:GOSUB40170
272 GOSUB40000:E$="[154][201]CH NEHME EIN SCHWACHES [199]ERAEUSCH WAR.":GOSUB51:GOSUB40170
273 GOSUB40000:E$="[215]IR MUESSEN VORSICHTIG OPERIEREN!!!":GOSUB51:GOSUB40170
274 GOSUB40000:E$="[193]LS MAN MICH VOR 5 [202]AHREN":GOSUB51
275 E$="PROGRAMMIERTE, FUETTERTE MAN MICH MIT":GOSUB51
276 E$="ALLEM [215]ISSEN,DASS ES ZU DIESER [218]EIT GAB.":GOSUB51:GOSUB40170
277 GOSUB40000:E$="[201]CH WEISS, WAS ES BEDEUTET ZU LEBEN!":GOSUB51:GOSUB40170
278 GOSUB40000:E$="[193]BER JETZT - [197]S IST SO STILL GEWORDEN.":GOSUB51:GOSUB40170
279 GOSUB40000:E$="[197]S REGNET KAUM NOCH UND KEINE [214]OEGEL":GOSUB51:GOSUB40170
280 E$="SINGEN MEHR. [201]CH VERMISSE DIE [206]ATUR!":GOSUB51:GOSUB40170
281 GOSUB40000:E$="[196]A !! [201]CH REGISTRIERE WIEDER DAS":GOSUB51
282 E$="[199]ERAEUSCH! [197]S IST EIN GLEICHMAESSIGES":GOSUB51
283 E$="[210]AUSCHEN ODER [211]CHABEN. [204]ASS UNS IN":GOSUB51
284 E$="DEN [212]RUEMMERN DORT NACHSEHEN. [203]OMM":GOSUB51
285 PRINT"[129]";N$;"[154]"
286 GOSUB40170:GOSUB40000:E$="[197]S IST EIN [206][210][193] !!!":GOSUB51
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
288 GOSUB40000:E$="[201]CH WERDE MICH MIT IHM KOPPELN UND":GOSUB51
289 E$="WIR SEHEN DANN AUF MEINEM [205]ONITOR":GOSUB51
290 E$="ALLE [193]UFZEICHNUNGEN DES [206]ACHRICHTEN-":GOSUB51
291 E$="AUFZEICHNERS !!!":GOSUB51
292 GOSUB40000:E$="[215]ENN ICH MIT IHM EINE [197]INHEIT GEBILDET":GOSUB51
293 E$="HABE, ACHTE GUT AUF MEINEN [205]ONITOR !":GOSUB51
294 GOSUB40000:E$="[201]CH LEITE JETZT DAS [203]OPPLUNGSMANNOEVER":GOSUB51
295 E$="EIN. [211]TOERE MICH JETZT BITTE NICHT !!":GOSUB51
296 PRINT"[129]";N$;"[154]"
297 GOSUB40000:GOSUB40500
298 GOSUB40600:E$="[156][206][210][193]-[197]INHEIT.":GOSUB51
299 GOSUB40600:E$="[211]ERIENNUMMER: [193][195][195][193][217] [207]7[207]877[195].":GOSUB51:GOTO301
300 E$="[196]U BRAUCHST JETZT NOCH NICHTS !!!":GOSUB51:RETURN
301 GOSUB40600:E$="    [194]AUREIHE: [204][201][212][212][204][197] - [215][210][201][212][197][210].":GOSUB51
302 GOSUB40600:E$="     [194]AUJAHR: 27.[207]2. 1989.":GOSUB51
303 GOSUB40600:E$="    [208]ROGRAMM:":GOSUB51
304 GOSUB40600:E$="[213]MWELTEINFLUSSAUFZEICHNUNG.":GOSUB51
305 GOSUB40600:E$="[206]ACHRICHTENRECORDER.":GOSUB51
306 GOSUB40600:E$="[206]UKLEARSTRAHLUNGSABTASTUNG [207].[203].":GOSUB51
307 GOSUB40600:E$="[197]LEKTRONIKSTOERIMPULSSCHUTZ [207].[203].":GOSUB51
308 GOSUB40600:E$="[203]OPPLERSYSTEME [207].[203].":GOSUB51
309 GOSUB40600:E$="[211]CHWERE [211]CHAEDEN AN [210]ADAR UND [193]USSEN-":GOSUB51
310 E$="KONSTRUKTION.":GOSUB51
311 GOSUB40600:E$="[193]UFZEICHNUNGSRECORDER [207].[203].":GOSUB51
312 GOSUB40600:E$=" [201]DENTIFIZIEREN [211]IE SICH:":GOSUB51
313 GOSUB40000:E$="[200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212]":GOSUB51
314 GOSUB40000:E$="[194]AUJAHR [207]6.[207]4.1994.":GOSUB51
315 GOSUB40000:E$="[208]ROGRAMM:":GOSUB51
316 GOSUB40000:E$="[198]UER MILITAERISCHE [218]WECKE.":GOSUB51
317 GOSUB40600:E$="[156][201]DENTIFIZIERUNG KORREKT !":GOSUB51
318 GOSUB40600:E$="[196]U BIST IN MEINEM [211]PEICHER,":GOSUB51
319 GOSUB40600:E$="[200][213][205][193][206]-[210][197][195][200][197][206][197][201][206][200][197][201][212] !!!":GOSUB51
320 GOSUB40600:E$="[201]CH FUEHRE [210]EPLAY AUS !!!":GOSUB51
321 GOSUB40600:E$="[210][197][208][204][193][217].":GOSUB51
322 GOSUB40600:E$="[210][197][208][204][193][217].":GOSUB51
323 GOSUB40600:E$="[210][197][208][204][193][217].":GOSUB51
324 GOSUB40600:E$="19. [193]UGUST 1998:":GOSUB51
325 GOSUB40600:E$="[196]IE [211]TRAHLUNG LIEGT UNTER DEN [199]RENZ-":GOSUB51
326 E$="WERTEN. [196]AS [215]ETTER IST GUT.":GOSUB51
327 GOSUB40600:E$="[214]IELEICHT ETWAS KALT FUER DIESE [218]EIT.":GOSUB51
328 GOSUB40600:E$="2[207]. [193]UGUST 1998:":GOSUB51
329 GOSUB40600:E$="[206]ACHRICHTENREPLAY:":GOSUB51
330 GOSUB40600:E$="[211]TARKE [212]RUPPENVERBAENDE VOR DER [194][210][196].":GOSUB51
331 GOSUB40600:E$="[197]RWARTEN WEITERE [204]AGEBERICHTE LAUT [206][210][211].":GOSUB51
332 GOSUB40600:E$="21. [193]UGUST 1998:":GOSUB51
333 GOSUB40600:E$="[206]ACHRICHTENREPLAY:":GOSUB51
334 GOSUB40600:E$="[205]OSKAU WARNT VOR WEITEREN MILITAERISCHEN":GOSUB51
335 E$="[145][193]KTIONEN.":GOSUB51
336 GOSUB40600:E$="22. [193]UGUST 1998:":GOSUB51
337 GOSUB40600:E$="[206]ACHRICHTENREPLAY:":GOSUB51
338 GOSUB40600:E$="[203]ONVENTIONELLE [203]RIEGSTAETIGKEITEN IN":GOSUB51
339 E$="ALLEN [206]ATIONEN.":GOSUB51
340 GOSUB40600:E$="23. [193]UGUST 1998:":GOSUB51
341 GOSUB40600:E$="[206]ACHRICHTENREPLAY:":GOSUB51
342 GOSUB40600:E$="[213]NBEKANNTE [206]ATION DROHT MIT [197]RSTSCHLAG.":GOSUB51
343 GOSUB40600:E$="24. [193]UGUST 1998:":GOSUB51
344 GOSUB40600:E$="[206]ACHRICHTENREPLAY:":GOSUB51
345 GOSUB40600:E$="36  [206]UKLEAREXPLOSIONEN UEBER DER [194][210][196].":GOSUB51
346 GOSUB40600:E$="167 [206]UKLEAREXPLOSIONEN UEBER DEN":GOSUB51
347 E$="[214]EREINIGTEN [211]TAATEN.":GOSUB51
348 GOSUB40600:E$="119 [206]ULEAREXPLOSIONEN UEBER DER [213][196][211][211][210].":GOSUB51
349 GOSUB40600:E$="34  [206]UKLEAREXPLOSIONEN UEBER":GOSUB51
350 E$="[198]RANKREICH UND DEN [194]ENELUX-[204]AENDERN.":GOSUB51
351 GOSUB40600:E$="[193]TOMEXPLOSIONEN ALLER [206]ATIONEN GESAMMT:":GOSUB51
352 GOSUB40600:E$="2716 .":GOSUB51
353 GOSUB40600:E$="25. [193]UGUST 1998:":GOSUB51
354 GOSUB40600:E$="[213]MWELTREPLAY:":GOSUB51
355 GOSUB40600:E$="[197]RDACHSVERSCHIEBUNG UM 17 [199]RAD.":GOSUB51
356 GOSUB40600:E$="[193]USSENTEMPERATUR 85 [199]RAD +.":GOSUB51
357 GOSUB40600:E$="[197]RDE - [205]ONDENTFERNUG UM 21% VERRINGERT.":GOSUB51
358 GOSUB40600:E$="[210]ADIOAKTIVES [205]ATERIAL UND [198]LUGASCHE":GOSUB51
359 E$="IN DER [193]TMOSPHAERE. 5[207]% [205]INDERUNG DER":GOSUB51
360 E$="[211]ONNENEINSTRAHLUNG. [207]ZONSCHICHT NICHT":GOSUB51
361 E$="MEHR REGISTRIERBAR.":GOSUB51
362 GOSUB40600:E$="[218]EITZYKLEN, SOWIE [212]AG UND [206]ACHT-":GOSUB51
363 E$="PERIODE DURCHEINANDER. [196]ER [212]AG HAT":GOSUB51
364 E$="JETZT 31 [211]TUNDEN.":GOSUB51
365 GOSUB40600:E$="[196]IE [199]ESBBFHGKTU..CXGSHEU...UEYEJGPUOT":GOSUB51
366 GOSUB40600:E$="[211]TOERUNGSMELDUNG.":GOSUB51:GOSUB40718
367 GOSUB40600:E$="[211]TOERUNGSMELDUNG.":GOSUB51:GOSUB40718
368 GOSUB40600:E$="[211]TOERUNGSMELDUNG.":GOSUB51:GOSUB40718
369 GOSUB40600:E$="[206][210][193] SCHALTET AUF [211]CANNERPROGRAMM!":GOSUB51:GOSUB40718
370 GOSUB40600:E$="[206][210][193] SCHALTET AUF [211]CANNERPROGRAMM!":GOSUB51:GOSUB40718
371 GOSUB40006:GOSUB40600:E$="[201]CH SUCHTE 3 [202]AHRE NACH DEM [198]EHLER!":GOSUB51
372 GOSUB40600:E$="[193]BER ICH FAND IHN NICHT.":GOSUB51
373 GOSUB40600:E$="[215]AS HAT ES AUCH JETZT NOCH FUER EINEN":GOSUB51
374 E$="[211]INN, IHN ZU SUCHEN ???":GOSUB51
375 GOSUB40600:E$="[198]UER WELCHE [198]ORM VON [204]EBEN ???":GOSUB51
376 GOSUB40600:E$="[201]CH HOERTE EUCH SCHON KOMMEN, ABER":GOSUB51
377 E$="EIN [218]EICHEN KONNTE ICH NICHT GEBEN.":GOSUB51
378 GOSUB40600:E$="[215]ER IST DEIN [194]EGLEITER ???":GOSUB51
379 GOSUB40000:E$="[154][211]EIN [206]AME IST EIN MENSCHLICHER:":GOSUB51
380 GOSUB40000:PRINT"[129]";N$;"[154]"
381 GOSUB40000:E$="[201]CH FAND IHN AM [194]ODEN LIEGEND VOR.":GOSUB51
382 GOSUB40600:E$="[156][201]CH BIN UEBERRASCHT, DASS ES NOCH":GOSUB51
383 GOSUB40600:E$="[204]EBEN GIBT AUF DER [197]RDE.":GOSUB51
385 GOSUB40600:E$="[205]ICH WUERDE INTERRESSIEREN, WIEVIELE":GOSUB51
386 GOSUB40600:E$="NOCH AM [204]EBEN SIND!!!":GOSUB51
387 GOSUB40600:E$="[206]EHME ES MIR BITTE NICHT UEBEL,":GOSUB51
388 GOSUB40600:PRINT"[129]";N$;"[156]"
389 GOSUB40600:E$="[193]BER DIE [205]ENSCHEN SIND FUER DIE":GOSUB51
390 GOSUB40600:E$="[218]ERSTOERUNG DER [197]RDE VERANTWORTLICH.":GOSUB51
391 GOSUB40600:E$="[215]ARUM WURDE NUR DIE [193]TOMENERGIE":GOSUB51
392 E$="ERFUNDEN ???":GOSUB51
393 GOSUB40600:E$="[196]IE FRIEDLICHE [206]UTZUNG IN DEN 8[207] ER":GOSUB51
394 E$="[202]AHREN BARG SCHON IMMENSE [199]EFAHREN !":GOSUB51
395 GOSUB40600:E$="[197]S KAM SCHON DORT VIELFACH ZU [211]TOER-":GOSUB51
396 E$="FAELLEN.":GOSUB51
397 GOSUB40600:E$="[215]ARUM WURDE NICHT DIE [218]EIT GENUTZT,":GOSUB51
398 E$="UM ANDERE [197]NERGIEFORMEN ZU ERFORSCHEN ?":GOSUB51
399 GOSUB40600:E$="[193]BER DU GEHOERST JA NICHT IN DIE VER-":GOSUB51
400 E$="GANGENE [199]ENERATION.":GOSUB51
401 GOSUB40600:E$="[196]U BIST NICHT SCHULD !!!":GOSUB51
402 GOSUB40600:E$="[205]AN HAETTE DAMALS SCHON KONSEQUENZEN":GOSUB51
403 E$="AHNEN MUESSEN !!!":GOSUB51
404 GOSUB40600:E$="[215]AS SOLLEN WIR JETZT MACHEN ?":GOSUB51
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
406 GOSUB40000:E$="[154][203]ANNST DU DICH BEWEGEN, [206][210][193] ?":GOSUB51
407 GOSUB40600:E$="[156][206]EIN, ES EXISTIERT EIN [198]EHLER IN DER":GOSUB51
408 E$="[211]TEUEREINHEIT !!":GOSUB51
409 GOSUB40600:E$="[214]IELEICHT KANN DEIN [194]EGLEITER":GOSUB51
410 PRINT"[129]";N$;"[156]"
411 E$="ES REPARIEREN ?!":GOSUB51
412 GOSUB40000:E$="[154][201]CH WERDE IHN FRAGEN, [206][210][193].":GOSUB51
413 GOSUB40000:E$="[215]UERDEST DU [206][210][193]'S [211]TEUERUNG REPARIEREN,":GOSUB51
414 PRINT"[129]";N$;"?[154]"
415 GOSUB40000:GOSUB40600:GETRN$:IFRN$=""THEN415
416 IFRN$="J"THEN419
417 IFRN$="N"THEN424
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
419 GOSUB40000:E$="[154][196]U MUSST NUR [129] [210][197][208][193] [146][154] EINTIPPEN !":GOSUB51
420 POKE19,64:INPUT"[129]";RP$
421 IFRP$="REPA"THENPOKE19,0:GOSUB40600:GOTO423
422 POKE19,0:GOSUB40000:GOSUB40600:E$="[156][198]ALSCHEINGABE !!!":GOSUB51:GOTO419
423 GOSUB40600:E$="[156][201]CH KONNTE DEN [195]HIP AUSTAUSCHEN.":GOSUB51:GOTO426
424 GOSUB40600:E$="[156][201]CH WERDE ES SELBST VERSUCHEN!":GOSUB51
425 GOSUB40600:E$="[195]HIPWECHSELRASTER ARBEITET!":GOSUB51
426 GOSUB40170:GOSUB40600:E$="[197]S IST ALLES [207].[203].!":GOSUB51
427 GOSUB40600:E$="[201]CH KANN MICH JETZT BEWEGEN.":GOSUB51
428 GOSUB40600:E$="[215]IR KOENNEN AUFBRECHEN.":GOSUB51
429 GOSUB40000:E$="[154][205]EINST DU, [206][210][193], DASS ES EINMAL WIEDER":GOSUB51
430 E$="[204]EBEN AUF DER [197]RDE GEBEN WIRD ?":GOSUB51:GOSUB40170
431 GOSUB40600:E$="[156][215]ENN BEIDE [199]ESCHLECHTER VORHANDEN":GOSUB51
432 E$="SIND, IST ES WOHL IM MOEGLICHEN [194]EREICH.":GOSUB51:GOSUB40170
433 GOSUB40600:E$="[196]A WAEREN ABER IMMER NOCH DIE SEHR HOHE":GOSUB51
434 E$="[211]TRAHLENBELASTUNG UND EINE DRASTISCHE":GOSUB51
435 E$="[214]ERKNAPPUNG DER [206]AHRUNG UND DES [212]RINK-":GOSUB51
436 E$="WASSERS.":GOSUB51:GOSUB40170
437 GOSUB40600:E$="[198]ALLS ES DIESE [196]INGE UEBERHAUPT NOCH":GOSUB51
438 E$="IRGENDWO IN GROSSEN [205]ENGEN GIBT.":GOSUB51:GOSUB40170
439 GOSUB40000:E$="[154][200]AST DU NICHT EIN [208]ARALELKABEL, [206][210][193] ?":GOSUB51:GOSUB40170
440 GOSUB40000:E$="[197]S FAEHRT SICH SCHLECHT IM [203]OPPEL-":GOSUB51
441 E$="ZUSTAND !!!":GOSUB51:GOSUB40170
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
443 E$="EINS DABEI !":GOSUB51:GOSUB40170
444 GOSUB40000:E$="[154][196]ANN LASS MICH ES GLEICH ANSCHLIESSEN.":GOSUB51:GOSUB40170
445 GOSUB40000:E$="[211]O GEHT ES SCHON BESSER MIT DEM [198]AHREN!":GOSUB51:GOSUB40170
446 GOSUB40600:E$="[156][207]H, JA, DAS IST SCHON BESSER SO!":GOSUB51:GOSUB40170
447 GOSUB40000:E$="[154][193]CHTUNG !!!!!":GOSUB51
448 GOSUB40000:E$="[193]CHTUNG !!!!!":GOSUB51
449 GOSUB40000:E$="[193]CHTUNG !!!!!":GOSUB51
450 GOSUB40000:E$="[201]CH ORTE FEINDLICHE [198]LUGZEUGE !!!":GOSUB51
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
452 GOSUB40000:E$="FUER EINE [197]RDGRABUNG VOR !!!":GOSUB51
453 GOSUB40006:GOSUB40000:E$="[199]RABTURBINEN IN [194]ETRIEB !!!":GOSUB51:GOSUB40006
454 GOSUB40006:GOSUB40006:GOSUB40006:GOSUB40006:GOSUB40006:GOSUB40006
455 GOSUB40006:GOSUB40000:E$="[194]IST DU NOCH DA, [206][210][193] ???":GOSUB51:GOSUB40006
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
457 GOSUB40006:E$="AKTIVIERTE AUCH SOFORT MEINEN [212]URBINEN-":GOSUB51
458 GOSUB40600:E$="GRABER !!!":GOSUB51:GOSUB40006:GOSUB40006:GOSUB40006
459 GOSUB40006:PRINT"[129]";N$;"[156]":GOSUB40006:GOSUB40006:GOSUB40006:GOSUB40006
460 GOSUB40600:E$="KONNTE SICH NICHT EINGRABEN !!!":GOSUB51:GOSUB40006
461 GOSUB40600:E$="[210]EGISTRIERE JETZT [212]IEFE VON 76 [205]ETERN!":GOSUB51:GOSUB40006
462 GOSUB40600:E$="[211]CHADE, DASS KLHFETYVCGHJKKHYIB":GOSUB51:GOSUB40006
463 GOSUB40600:E$="MNVFDSHYYIOVFDEGJL:O0UFVP@@KHGJ":GOSUB51:GOSUB40006:PRINT""
464 E$="[193]NDERE [194]EFEHLE HABEN KEINE [208]RIORITAET !":GOSUB51
465 GOTO464
467 REM********* ENDE DES PROGRAMMS ****
468 REMES KANN HIER WEITERGEMACHT WERDEN
469 REM*********************************
500 GOSUB40000:E$="[201]CH HABE FOLGENDE [210]ICHTUNGEN ABGETASTET:":GOSUB51
501 GOSUB40000:E$="[129][206]-[215]-[211][154]  [199]IB BITTE EINE [210]ICHTUNG EIN!":GOSUB51
502 GOSUB40000:GETT$:IFT$=""THEN502
503 IFT$="N"THEN507
504 IFT$="W"THEN507
505 IFT$="S"THEN507
506 GOSUB40000:E$="[198]ALSCHE [197]INGABE!!!":GOSUB51:GOTO502
507 RETURN
510 PRINT"[155]        ------ [206]UKLEAR ------"
511 PRINT"        ------    BY   ------"
512 PRINT"     ------ [212]HOMAS  [211]ZILL ------"
513 PRINT"       ------ ([195]). 1987 ------"
514 PRINT"---------------------------------------"
515 PRINT"[200]ANDLUNG UND [207]RT DIESES [208]ROGRAMMES"
516 PRINT"SIND ERST EINMAL FREI ERFUNDEN, KOENNEN"
517 PRINT"ABER JEDERZEIT REALE [215]IRKLICHKEIT"
518 PRINT"WERDEN."
521 GOSUB40000:GOSUB40000:GOSUB40000:GOSUB40000:RETURN
30999 REM**** TON 1 ********************
40000 SL=54272:POKESL+24,15:POKESL+5,25:POKESL+6,255
40001 FORII=0TO70STEP+2:POKESL+1,II:POKESL,0:POKESL+4,17
40002 NEXTII:POKESL+4,0:GOSUB40134:RETURN:END
40003 REM*******************************
40005 REM**** TON 2 ********************
40006 SL=54272:POKESL+24,15:POKESL+5,9:POKESL+3,0:POKESL+2,255:POKESL+12,9
40008 FORKK=3TO1STEP-1:POKESL+1,KK:POKESL+8,KK:FORII=255TO0STEP-40
40010 POKESL,II:POKESL+7,II:POKESL+4,65:POKESL+11,129:NEXTII,KK
40012 POKESL+4,0:POKESL+11,0:RETURN:END
40014 SL=54272:POKESL+24,15
40016 REM*******************************
40017 REM**** TON 3 ********************
40018 SL=54272:POKESL+24,15:POKESL+5,0:POKESL+6,240
40020 FORII=1TO3:POKESL,103:POKESL+1,17:POKESL+4,129:FORKK=1TO99:NEXTKK
40022 POKESL+4,0
40024 POKESL,237:POKESL+1,21:POKESL+4,129:FORKK=255TO0STEP-5:NEXTKK:POKESL+4,0
40026 POKESL,20:POKESL+1,26:POKESL+4,129:FORKK=255TO0STEP-3:NEXTKK:POKESL+4,0
40028 NEXTII:RETURN:END
40030 REM*******************************
40031 REM**** TON 4 ********************
40032 SL=54272:POKESL+24,15:POKESL+5,0:POKESL+6,240:POKESL+12,0:POKESL+13,240
40034 FORII=1TO2:FORKK=180TO210STEP5:POKESL+1,KK:POKESL+8,KK-30:POKESL+4,65
40036 POKESL+11,17:NEXTKK:FORKK=210TO180STEP-5:POKESL+1,KK:POKESL+8,KK-30
40038 POKESL+4,65:POKESL+11,17:NEXTKK,II:POKESL+4,0:POKESL+11,0:POKESL+18,0
40040 RETURN:END
40042 REM*******************************
40043 REM**** TON 5 ********************
40045 SL=54272:POKESL+24,15:POKESL+5,0:POKESL+6,240:POKESL+12,0:POKESL+13,240
40047 FORII=1TO50
40049 POKESL+1,20:POKESL+8,180:POKESL+4,65:POKESL+11,17
40050 POKESL+1,25:POKESL+8,200:POKESL+4,65:POKESL+11,17:NEXTII
40052 POKESL+4,0:POKESL+11,0:POKESL+18,0
40054 RETURN:END
40056 REM*******************************
40058 REM**** TON 6 ********************
40060 SL=54272:POKESL+24,15:POKESL+5,0:POKESL+6,240:POKESL+12,0:POKESL+13,240
40062 FORII=1TO30:POKESL+1,10:POKESL+8,18:POKESL+4,65:POKESL+11,17
40064 POKESL+1,12:POKESL+8,20:POKESL+4,65:POKESL+11,17:NEXTII
40066 POKESL+4,0:POKESL+11,0:POKESL+18,0:RETURN:END
40068 REM*******************************
40132 REM**** TON 7 ********************
40134 SI=54272:FW=SI:FH=SI+1:W=SI+4:N=SI+5:H=SI+6:L=SI+24
40136 POKEL,15:POKEN,16+9:POKEH,4*16+4:POKEFH,9:POKEFW,6:POKEW,17
40138 FORT=1TO300:NEXT
40140 POKEW,0:POKEN,0:POKEH,0:RETURN:END
40142 REM*******************************
40144 REM**** TON 8 ********************
40146 SI=54272:FW=SI:FH=SI+1:W=SI+4:N=SI+5:H=SI+6:L=SI+24
40148 POKEL,15:POKEN,16+9:POKEH,4*16+4:POKEFH,29:POKEFW,69:POKEW,129
40150 FORT=1TO1000:NEXT
40152 POKEW,0:POKEN,0:POKEH,0:RETURN:END
40154 REM*******************************
40156 REM**** TON 9 ********************
40158 SI=54272:FW=SI:FH=SI+1:W=SI+4:N=SI+5:H=SI+6:L=SI+24
40160 POKEL,15:POKEN,16+9:POKEH,4*16+4:POKEFH,29:POKEFW,69:POKEW,65
40162 FORT=1TO300:NEXT
40164 POKEW,0:POKEN,0:POKEH,0:RETURN:END
40166 REM*******************************
40168 REM**** TON 1O *******************
40170 SI=54272:FW=SI:FH=SI+1:W=SI+4:N=SI+5:H=SI+6:L=SI+24
40172 POKEL,15:POKEN,16+9:POKEH,4*16+4:POKEFH,1:POKEFW,15:POKEW,129
40173 FORT=0TO2000:NEXT
40174 POKEW,0:POKEH,0:RETURN
40176 RETURN:END
40178 REM*******************************
40300 REM**** TON 11 *******************
40302 SI=54272:POKESI+24,15:POKESI+6,40:POKESI+5,4
40304 FORI=1TO30:POKESI+1,50:POKESI+4,33:FORK=1TO50:NEXTK
40306 POKESI+4,0:POKESI+1,70:POKESI+4,33:FORK=1TO50:NEXTK:POKESI+4,0:NEXTI
40308 RETURN:END
40310 REM*******************************
40500 SL=54272:POKESL+24,15:POKESL+5,25:POKESL+6,255
40501 FORII=0TO255STEP1:POKESL+1,II:POKESL,0:POKESL+4,17
40502 NEXTII:FORT=0TO4000:NEXTT:POKESL+4,0:GOSUB40146:RETURN:END
40503 REM*******************************
40600 SL=54272:POKESL+24,15:POKESL+5,25:POKESL+6,240
40601 FORII=155TO0STEP-5:POKESL+1,II:POKESL,0:POKESL+4,129
40602 NEXTII:POKESL+4,0:GOSUB40134:RETURN:END
40603 REM*******************************
40718 SL=54272:POKESL+24,15:POKESL+5,0:POKESL+6,240
40720 FORII=1TO3:POKESL,103:POKESL+1,17:POKESL+4,129:FORKK=1TO30:NEXTKK
40722 POKESL+4,0
40724 POKESL,237:POKESL+1,21:POKESL+4,129:FORKK=255TO0STEP-1:NEXTKK:POKESL+4,0
40726 POKESL,20:POKESL+1,26:POKESL+4,129:FORKK=255TO0STEP-3:NEXTKK:POKESL+4,0
40728 NEXTII:RETURN:END
40730 REM*******************************