|
0
|
1 ' '
|
|
|
2 ' '
|
|
|
3 ' M M '
|
|
|
4 ' MM MM I D D '
|
|
|
5 ' M M M M I D D '
|
|
|
6 ' M M M M D D '
|
|
|
7 ' M M M M D D '
|
|
|
8 ' M M M M I DDDDD D DDDDD D SSSSS '
|
|
|
9 ' M M M M I D DD D DD S S '
|
|
|
10 ' M M M I D D D D S '
|
|
|
11 ' M M I D D D D S '
|
|
|
12 ' M M I D D D D SSSS '
|
|
|
13 ' M M I D D D D S '
|
|
|
14 ' M M I D D D D S '
|
|
|
15 ' M M I D DD D DD S S '
|
|
|
16 ' M M I DDDDD D DDDDD D SSSSS '
|
|
|
17 ' '
|
|
|
18 ' '
|
|
|
19 '============================================================================'
|
|
|
20 ' '
|
|
|
21 ' '
|
|
|
22 ' '
|
|
|
23 ' '
|
|
|
24 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
25 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
26 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
27 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
28 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
29 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
30 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
31 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
32 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
33 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
|
|
|
34 ' '
|
|
|
35 ' '
|
|
|
36 ' '
|
|
|
37 ' '
|
|
|
38 '============================================================================'
|
|
|
39 ' '
|
|
|
40 ' '
|
|
|
41 ' '
|
|
|
42 '
|
|
|
43 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
44 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
45 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
46 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
47 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
48 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
49 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
50 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
51 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
52 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
53 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
54 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
55 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
56 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
|
|
|
57 '
|
|
|
58 '
|
|
|
59 '============================================================================'
|
|
|
60 '
|
|
|
61 '
|
|
|
62 'Midds'
|
|
|
63 DECLARE SUB M ()
|
|
|
64 SCREEN 13
|
|
|
65
|
|
|
66
|
|
|
67 CLS
|
|
|
68 LOCATE 13, 6
|
|
|
69 COLOR 15
|
|
|
70 PRINT "*** Mord in der Dorfstraáe ***"
|
|
|
71 LINE (20, 60)-(300, 140), 2, B
|
|
|
72 LOCATE 24, 2
|
|
|
73 COLOR 7
|
|
|
74 PRINT "c Copyright 1999 Elefant Software"
|
|
|
75 CIRCLE (11, 180), 7, 7
|
|
|
76 SLEEP
|
|
|
77 INPUT "", nzl
|
|
|
78 CLS
|
|
|
79 raum = 0
|
|
|
80 name$ = "John Howell"
|
|
|
81
|
|
|
82 OPEN "c:midds1.ini" FOR INPUT AS #1
|
|
|
83 INPUT #1, poi
|
|
|
84 CLOSE
|
|
|
85 IF poi = 1 THEN GOTO 999 ELSE PRINT "Bitte installieren sie Midds."
|
|
|
86
|
|
|
87 999 :
|
|
|
88 CLS
|
|
|
89 LOCATE 5, 1
|
|
|
90 COLOR 4
|
|
|
91 PRINT "Dies ist nicht die endgltige Version"
|
|
|
92 LOCATE 7, 1
|
|
|
93 PRINT " von - MIDDS -"
|
|
|
94 LOCATE 10, 1
|
|
|
95 PRINT " Falls im Programm Fehler auftauchen"
|
|
|
96 LOCATE 12, 1
|
|
|
97 PRINT " sollten wenden Sie sich bitte an"
|
|
|
98 LOCATE 14, 1
|
|
|
99 PRINT " Elefant Software."
|
|
|
100 LOCATE 19, 1
|
|
|
101 PRINT " Elefant Software garantiert nur fr"
|
|
|
102 LOCATE 21, 1
|
|
|
103 PRINT " Fehler in - MIDDS -."
|
|
|
104 SLEEP
|
|
|
105 INPUT "", nzl
|
|
|
106
|
|
|
107
|
|
|
108 CLS
|
|
|
109 LOCATE 13, 10
|
|
|
110 COLOR 14
|
|
|
111 INPUT "Cheat: ", c$
|
|
|
112 IF c$ = "x" GOTO X
|
|
|
113 IF c$ = "t" GOTO 140
|
|
|
114 IF c$ = "q" THEN END
|
|
|
115 IF c$ = "Markus" GOTO xxxxx
|
|
|
116 CLS
|
|
|
117
|
|
|
118 CLS
|
|
|
119 COLOR 6
|
|
|
120 PRINT "Dies ist ein Kriminalspiel,"
|
|
|
121 PRINT "das die grauen Zellen fordert."
|
|
|
122 PRINT ""
|
|
|
123 PRINT ""
|
|
|
124 SLEEP
|
|
|
125 INPUT "", nzl
|
|
|
126 CLS
|
|
|
127
|
|
|
128 PRINT ""
|
|
|
129 PRINT "M”gliche Befehle:"
|
|
|
130 PRINT ""
|
|
|
131 PRINT ""
|
|
|
132 COLOR 3
|
|
|
133 PRINT "”ffnen"
|
|
|
134 PRINT ""
|
|
|
135 PRINT "benutzen"
|
|
|
136 PRINT ""
|
|
|
137 PRINT "untersuchen"
|
|
|
138 PRINT ""
|
|
|
139 PRINT "sprechen mit"
|
|
|
140 PRINT ""
|
|
|
141 PRINT "gehen (in)"
|
|
|
142 PRINT
|
|
|
143 PRINT "nehmen"
|
|
|
144 SLEEP
|
|
|
145 INPUT "", nzl
|
|
|
146 CLS
|
|
|
147
|
|
|
148 COLOR 6
|
|
|
149 PRINT
|
|
|
150 PRINT
|
|
|
151 PRINT "Drcke 'q' um das Spiel zu beenden."
|
|
|
152 PRINT
|
|
|
153 PRINT
|
|
|
154 PRINT "Drcke 'm' um zu erfahren, was du alles besitzt."
|
|
|
155 PRINT
|
|
|
156 PRINT
|
|
|
157 PRINT "Drcke 'b' um die Befehle noch einmal zusehen."
|
|
|
158 SLEEP
|
|
|
159 INPUT "", nzl
|
|
|
160
|
|
|
161
|
|
|
162 X:
|
|
|
163 CLS
|
|
|
164 PRINT ""
|
|
|
165 LOCATE 13, 6
|
|
|
166 COLOR 6
|
|
|
167 PRINT "So jetzt geht's endlich los!!!"
|
|
|
168 SLEEP
|
|
|
169 INPUT "", nzl
|
|
|
170 CLS
|
|
|
171 GOTO 1
|
|
|
172
|
|
|
173 1 :
|
|
|
174 zuege = 0
|
|
|
175 a1:
|
|
|
176 CLS
|
|
|
177 PRINT ""
|
|
|
178 COLOR 2
|
|
|
179 PRINT "Du heiát John Howell und bist"
|
|
|
180 PRINT
|
|
|
181 PRINT "Privatdetektiv. Du wurdest von "
|
|
|
182 PRINT
|
|
|
183 PRINT "Herr Fisch angerufen um einen Mord"
|
|
|
184 PRINT
|
|
|
185 PRINT "aufzukl„ren. Natrlich"
|
|
|
186 PRINT
|
|
|
187 PRINT "bist du sofort in deinen Renault 19"
|
|
|
188 PRINT
|
|
|
189 PRINT "gestiegen und losgefahren. Jetzt stehst"
|
|
|
190 PRINT
|
|
|
191 PRINT "du vor Haus Nummer 6 in der"
|
|
|
192 PRINT
|
|
|
193 PRINT "Dorfstraáe."
|
|
|
194 PRINT ""
|
|
|
195 COLOR 7
|
|
|
196 INPUT "Was machst du?", B$
|
|
|
197 zuege% = zuege% + 1
|
|
|
198 IF B$ = "benutzen Klingel" GOTO 2
|
|
|
199 IF B$ = "”ffnen Tr" THEN PRINT "Du kannst doch nicht einfach fremde H„user betreten."
|
|
|
200 IF B$ = "”ffnen Tr" THEN SLEEP
|
|
|
201 IF B$ = "”ffnen Tr" GOTO a1
|
|
|
202 IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde H„user betreten."
|
|
|
203 IF B$ = "gehen in Haus" THEN SLEEP
|
|
|
204 IF B$ = "gehen in Haus" GOTO a1
|
|
|
205 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
|
|
|
206 IF B$ = "gehen Heim" GOTO a1
|
|
|
207 IF B$ = "q" THEN END
|
|
|
208 IF B$ = "m" THEN GOSUB yy
|
|
|
209 IF B$ = "b" THEN GOSUB yx
|
|
|
210 PRINT ""
|
|
|
211 PRINT "N”!"
|
|
|
212 PRINT ""
|
|
|
213 IF zuege% = 5 THEN GOTO a
|
|
|
214 IF zuege% = 9 THEN GOTO B
|
|
|
215 IF zuege% = 9 THEN GOTO 2
|
|
|
216 SLEEP
|
|
|
217 INPUT "", nzl
|
|
|
218 GOTO a1
|
|
|
219
|
|
|
220 a:
|
|
|
221 COLOR 4
|
|
|
222 PRINT " Tipp: benutzen ..."
|
|
|
223 SLEEP
|
|
|
224 GOTO a1
|
|
|
225
|
|
|
226 B:
|
|
|
227 COLOR 4
|
|
|
228 PRINT " L”sung: benutzen Klingel"
|
|
|
229 SLEEP
|
|
|
230 CLS
|
|
|
231 GOTO 2
|
|
|
232
|
|
|
233 2 :
|
|
|
234 CLS
|
|
|
235 COLOR 2
|
|
|
236 PRINT "Herr Fisch ”ffnet die Tr und du stehst im Flur"
|
|
|
237 PRINT ""
|
|
|
238 SLEEP
|
|
|
239 INPUT "", nzl
|
|
|
240 CLS
|
|
|
241 LOCATE 13, 10
|
|
|
242 COLOR 10
|
|
|
243 PRINT "Flur"
|
|
|
244 raum = 1
|
|
|
245 SLEEP
|
|
|
246 INPUT "", nzl
|
|
|
247 zuege% = 0
|
|
|
248 GOTO 3
|
|
|
249
|
|
|
250 3 :
|
|
|
251 CLS
|
|
|
252 IF kerzenst% = 1 GOTO 116
|
|
|
253 COLOR 2
|
|
|
254 PRINT "Herr Fisch ”ffnet die Tr und du stehst im Flur"
|
|
|
255 PRINT
|
|
|
256 COLOR 7
|
|
|
257 INPUT "Was machst du?", B$
|
|
|
258 zuege% = zuege% + 1
|
|
|
259 IF B$ = "sprechen mit Herr Fisch" GOTO 4
|
|
|
260 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
|
|
|
261 IF B$ = "untersuchen Flur" GOTO 117
|
|
|
262 IF B$ = "gehen in Schlafzimmer" GOTO 114
|
|
|
263 IF B$ = "gehen in Arbeitszimmer" GOTO 105
|
|
|
264 IF B$ = "gehen in Esszimmer" GOTO 106
|
|
|
265 IF B$ = "gehen in Kche" GOTO 109
|
|
|
266 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
|
|
|
267 IF B$ = "q" THEN END
|
|
|
268 IF B$ = "m" THEN GOSUB yy
|
|
|
269 IF B$ = "b" THEN GOSUB yx
|
|
|
270 IF B$ = "s" THEN GOSUB speichern
|
|
|
271 PRINT ""
|
|
|
272 PRINT "Keine Lust!"
|
|
|
273 PRINT ""
|
|
|
274 IF zuege% = 6 THEN GOTO c
|
|
|
275 SLEEP
|
|
|
276 INPUT "", nzl
|
|
|
277 GOTO 3
|
|
|
278
|
|
|
279 c:
|
|
|
280 COLOR 4
|
|
|
281 PRINT "Tipp: sprechen mit ..."
|
|
|
282 SLEEP
|
|
|
283 INPUT "", nzl
|
|
|
284 CLS
|
|
|
285 GOTO 3
|
|
|
286
|
|
|
287
|
|
|
288 4 :
|
|
|
289 CLS
|
|
|
290 COLOR 9
|
|
|
291 PRINT "A: Ich heiáe "; name$; "."
|
|
|
292 PRINT ""
|
|
|
293 PRINT "B: Wo ist die Leiche?"
|
|
|
294 PRINT ""
|
|
|
295 PRINT "C: Wie heiát der Tote?"
|
|
|
296 PRINT ""
|
|
|
297 PRINT "D: Ende."
|
|
|
298 PRINT ""
|
|
|
299 COLOR 12
|
|
|
300 INPUT "Was sagst du?", s$
|
|
|
301 PRINT
|
|
|
302 COLOR 9
|
|
|
303 IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch."
|
|
|
304 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
|
|
|
305 IF s$ = "B" THEN SLEEP
|
|
|
306 IF s$ = "B" GOTO 5
|
|
|
307 IF s$ = "C" THEN PRINT "Karl Mller."
|
|
|
308 IF s$ = "D" THEN END
|
|
|
309 SLEEP
|
|
|
310 INPUT "", nzl
|
|
|
311 GOTO 4
|
|
|
312
|
|
|
313 5 :
|
|
|
314 CLS
|
|
|
315 COLOR 9
|
|
|
316 PRINT
|
|
|
317 PRINT "A: Ich heiáe "; name$; ""
|
|
|
318 PRINT ""
|
|
|
319 PRINT "B: Wo ist die Leiche?"
|
|
|
320 PRINT ""
|
|
|
321 PRINT "C: Wie heiát der Tote?"
|
|
|
322 PRINT
|
|
|
323 PRINT "D: Wo ist das Schlafzimmer?"
|
|
|
324 PRINT ""
|
|
|
325 PRINT "E: Ende"
|
|
|
326 PRINT ""
|
|
|
327 PRINT ""
|
|
|
328 COLOR 12
|
|
|
329 INPUT "Was sagst du?", s$
|
|
|
330 PRINT
|
|
|
331 COLOR 9
|
|
|
332 IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch."
|
|
|
333 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
|
|
|
334 IF s$ = "C" THEN PRINT "Karl Mller."
|
|
|
335 IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
|
|
|
336 IF s$ = "E" THEN GOTO 6
|
|
|
337 SLEEP
|
|
|
338 INPUT "", nzl
|
|
|
339 GOTO 5
|
|
|
340
|
|
|
341 6 :
|
|
|
342 CLS
|
|
|
343 zuege% = 0
|
|
|
344 LOCATE 13, 10
|
|
|
345 COLOR 10
|
|
|
346 PRINT "Flur"
|
|
|
347 raum = 2
|
|
|
348 SLEEP
|
|
|
349 INPUT "", nzl
|
|
|
350 a6:
|
|
|
351 CLS
|
|
|
352 COLOR 7
|
|
|
353 PRINT
|
|
|
354 IF kerzenst% = 1 GOTO 116
|
|
|
355 PRINT
|
|
|
356 INPUT "Was machst du?", B$
|
|
|
357 zuege% = zuege% + 1
|
|
|
358 IF B$ = "sprechen mit Herr Fisch" GOTO 5
|
|
|
359 IF B$ = "gehen in Schlafzimmer" GOTO 7
|
|
|
360 IF B$ = "gehen in Arbeitszimmer" GOTO 105
|
|
|
361 IF B$ = "gehen in Esszimmer" GOTO 106
|
|
|
362 IF B$ = "gehen in Kcher" GOTO 109
|
|
|
363 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
|
|
|
364 IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuá!"
|
|
|
365 IF B$ = "gehen Heim " GOTO a6
|
|
|
366 IF B$ = "q" THEN END
|
|
|
367 IF B$ = "m" THEN GOSUB yy
|
|
|
368 IF B$ = "b" THEN GOSUB yx
|
|
|
369 IF B$ = "s" THEN GOSUB speichern
|
|
|
370 PRINT ""
|
|
|
371 PRINT "Nee!"
|
|
|
372 IF zuege = 5 GOTO d
|
|
|
373 GOTO a6
|
|
|
374
|
|
|
375 d:
|
|
|
376 COLOR 4
|
|
|
377 PRINT "gehen in ..."
|
|
|
378 SLEEP
|
|
|
379 INPUT "", nzl
|
|
|
380 GOTO a6
|
|
|
381
|
|
|
382 7 :
|
|
|
383 CLS
|
|
|
384 raum = 3
|
|
|
385 COLOR 2
|
|
|
386 PRINT "Die Leiche, ein etwa 20 Jahre alter"
|
|
|
387 PRINT
|
|
|
388 PRINT "Mann, liegt mit einem Messer im Rcken"
|
|
|
389 PRINT
|
|
|
390 PRINT "auf dem Bett. Ich decke die Leiche"
|
|
|
391 PRINT
|
|
|
392 PRINT "als erstes mit einem Tuch ab und rufe"
|
|
|
393 PRINT
|
|
|
394 PRINT "mit meinem Handy Tina an. Tina ist"
|
|
|
395 PRINT
|
|
|
396 PRINT "Spezialistin fr Fingerabdrcke."
|
|
|
397 SLEEP
|
|
|
398 INPUT "", nzl
|
|
|
399 GOTO 8
|
|
|
400
|
|
|
401 8 :
|
|
|
402 CLS
|
|
|
403 PRINT
|
|
|
404 COLOR 7
|
|
|
405 INPUT "Was machst du?", B$
|
|
|
406 IF B$ = "gehen in Flur" GOTO 103
|
|
|
407 IF B$ = "gehen in Arbeitszimmer" GOTO 105
|
|
|
408 IF B$ = "gehen in Esszimmer" GOTO 106
|
|
|
409 IF B$ = "gehen in Kche" GOTO 109
|
|
|
410 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
|
|
|
411 IF B$ = "untersuchen Schlafzimmer" GOTO 9
|
|
|
412 IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
|
|
|
413 IF B$ = "”ffnen Aktenschrank" GOTO 101
|
|
|
414 IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
|
|
|
415 IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Straáe."
|
|
|
416 IF B$ = "untersuchen Bett" GOTO 100
|
|
|
417 IF B$ = "nehmen Taschenlampe" GOTO e
|
|
|
418 IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
|
|
|
419 IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
|
|
|
420 IF B$ = "sprechen mit Tina" THEN PRINT "Die st”re ich lieber nicht bei der Arbeit."
|
|
|
421 IF B$ = "q" THEN END
|
|
|
422 IF B$ = "m" THEN GOSUB yy
|
|
|
423 IF B$ = "b" THEN GOSUB yx
|
|
|
424 IF B$ = "s" THEN GOSUB speichern
|
|
|
425 PRINT
|
|
|
426 PRINT "Nein"
|
|
|
427 PRINT
|
|
|
428 SLEEP
|
|
|
429 INPUT "", nzl
|
|
|
430 GOTO 8
|
|
|
431
|
|
|
432 e:
|
|
|
433 CLS
|
|
|
434 PAINT (200, 5), 1
|
|
|
435 LINE (125, 75)-(300, 125), 16, BF
|
|
|
436 CIRCLE (125, 100), 45, 16
|
|
|
437 PAINT (124, 100), 16
|
|
|
438 LINE (80, 63)-(125, 137), 16, BF
|
|
|
439 LINE (80, 63)-(0, 50), 14
|
|
|
440 LINE (80, 137)-(0, 150), 14
|
|
|
441 LOCATE 11, 22
|
|
|
442 PRINT "Mag Lite"
|
|
|
443 tlampe% = 1
|
|
|
444 SLEEP
|
|
|
445 INPUT "", nzl
|
|
|
446 CLS
|
|
|
447 GOTO 8
|
|
|
448
|
|
|
449 9 :
|
|
|
450 CLS
|
|
|
451 COLOR 2
|
|
|
452 PRINT "In der Mitte steht das Bett, ber dem"
|
|
|
453 PRINT
|
|
|
454 PRINT "Bett h„ngt ein Poster, auf der"
|
|
|
455 PRINT
|
|
|
456 PRINT "linken Seite befindet sich ein Schrank"
|
|
|
457 PRINT
|
|
|
458 PRINT "und an der rechten Wand ist ein Fenster."
|
|
|
459 IF vvx% = 1 THEN PRINT "Tina sichert gerade"
|
|
|
460 IF vvx% = 1 THEN PRINT "die Fingerabdrcke."
|
|
|
461 SLEEP
|
|
|
462 INPUT "", nzl
|
|
|
463 GOTO 8
|
|
|
464
|
|
|
465 100 :
|
|
|
466 CLS
|
|
|
467 COLOR 2
|
|
|
468 PRINT "Unter dem Bett liegt eine Taschenlampe."
|
|
|
469 SLEEP
|
|
|
470 INPUT "", nzl
|
|
|
471 GOTO 8
|
|
|
472
|
|
|
473 101 :
|
|
|
474 CLS
|
|
|
475 versuch% = 0
|
|
|
476 COLOR 2
|
|
|
477 PRINT "Hinter den Ordnern ist ein Geheimfach"
|
|
|
478 PRINT
|
|
|
479 PRINT "mit einem dreistelligen Zahlenschloss."
|
|
|
480 SLEEP
|
|
|
481 INPUT "", nzl
|
|
|
482 a101:
|
|
|
483 CLS
|
|
|
484 versuch% = versuch% + 1
|
|
|
485 COLOR 5
|
|
|
486 INPUT "Wie lautet die Kombination?", k$
|
|
|
487 IF k$ = "000" THEN PRINT "War wohl falsch."
|
|
|
488 IF k$ = "007" GOTO 102
|
|
|
489 IF k$ = "q" THEN END
|
|
|
490 PRINT "Komm streng dich ein bischen an!"
|
|
|
491 IF versuch% = 3 THEN PRINT "Tipp: Karl Mller war Jean Connery Fan."
|
|
|
492 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
|
|
|
493 SLEEP
|
|
|
494 INPUT "", nzl
|
|
|
495 GOTO a101
|
|
|
496
|
|
|
497 102 :
|
|
|
498 CLS
|
|
|
499 COLOR 2
|
|
|
500 PRINT "Bravo, du hast echt gut kombiniert."
|
|
|
501 PRINT
|
|
|
502 PRINT "In dem Geheimfach befindet sich ein Schlssel."
|
|
|
503 SLEEP
|
|
|
504 INPUT "", nzl
|
|
|
505
|
|
|
506
|
|
|
507 F:
|
|
|
508 CLS
|
|
|
509 PAINT (1, 1), 1
|
|
|
510 LINE (50, 80)-(60, 140), 14, BF
|
|
|
511 LINE (60, 80)-(70, 135), 14, BF
|
|
|
512 LINE (50, 80)-(200, 100), 14, BF
|
|
|
513 LINE (90, 80)-(100, 120), 14, BF
|
|
|
514 LINE (100, 80)-(110, 130), 14, BF
|
|
|
515 CIRCLE (240, 90), 50, 14
|
|
|
516 CIRCLE (240, 90), 30, 14
|
|
|
517 PAINT (240, 50), 14
|
|
|
518 schluessel% = 1
|
|
|
519 SLEEP
|
|
|
520 INPUT "", nzl
|
|
|
521 CLS
|
|
|
522 GOTO 114
|
|
|
523
|
|
|
524 103 :
|
|
|
525 CLS
|
|
|
526 LOCATE 13, 10
|
|
|
527 COLOR 10
|
|
|
528 PRINT "Flur"
|
|
|
529 SLEEP
|
|
|
530 INPUT "", nzl
|
|
|
531 GOTO 104
|
|
|
532
|
|
|
533 104 :
|
|
|
534 CLS
|
|
|
535 COLOR 2
|
|
|
536 PRINT "Links geht es die Treppe zum Schlafzimmer"
|
|
|
537 PRINT
|
|
|
538 PRINT "hinauf, gerade aus geht's ins Esszimmer"
|
|
|
539 PRINT
|
|
|
540 PRINT " und rechts ins Arbeitszimmer."
|
|
|
541 SLEEP
|
|
|
542 INPUT "", nzl
|
|
|
543 GOTO a6
|
|
|
544
|
|
|
545 105 :
|
|
|
546 CLS
|
|
|
547 LOCATE 13, 10
|
|
|
548 COLOR 10
|
|
|
549 PRINT "Arbeitszimmer"
|
|
|
550 raum = 5
|
|
|
551 SLEEP
|
|
|
552 INPUT "", nzl
|
|
|
553 a105:
|
|
|
554 CLS
|
|
|
555 COLOR 7
|
|
|
556 INPUT "Was machst du?", B$
|
|
|
557 IF B$ = "gehen in Schlafzimmer" GOTO 114
|
|
|
558 IF B$ = "gehen in Flur" GOTO 103
|
|
|
559 IF B$ = "gehen in Esszimmer" GOTO 106
|
|
|
560 IF B$ = "gehen in Kche" GOTO 109
|
|
|
561 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
|
|
|
562 IF B$ = "untersuchen Arbeitszimmer" GOTO 107
|
|
|
563 IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
|
|
|
564 IF B$ = "untersuchen Bcherregal" GOTO 122
|
|
|
565 IF B$ = "untersuchen Buch" THEN PRINT "Wenn's noch im Regal ist!?"
|
|
|
566 IF B$ = "nehmen Buch" GOTO 124
|
|
|
567 IF B$ = "benutzen Schlssel" THEN PRINT "Das Schlsselschloss w„re geknackt."
|
|
|
568 IF B$ = "benutzen Schlssel" THEN sx% = 1
|
|
|
569 IF B$ = "benutzen Schlssel" GOTO 138
|
|
|
570 IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
|
|
|
571 IF B$ = "z" GOTO 125
|
|
|
572 IF B$ = "m" THEN GOSUB yy
|
|
|
573 IF B$ = "q" THEN END
|
|
|
574 IF B$ = "b" THEN GOSUB yx
|
|
|
575 IF B$ = "s" THEN GOSUB speichern
|
|
|
576 SLEEP
|
|
|
577 INPUT "", nzl
|
|
|
578 PRINT "Heute nicht!"
|
|
|
579 GOTO a105
|
|
|
580
|
|
|
581 107 :
|
|
|
582 CLS
|
|
|
583 COLOR 2
|
|
|
584 PRINT "In der Mitte steht ein Schreibtisch,"
|
|
|
585 PRINT
|
|
|
586 PRINT "rechts befindet sich ein Schrank und"
|
|
|
587 PRINT
|
|
|
588 PRINT "links ein Bcherregal."
|
|
|
589 SLEEP
|
|
|
590 INPUT "", nzl
|
|
|
591 GOTO 105
|
|
|
592
|
|
|
593 106 :
|
|
|
594 CLS
|
|
|
595 LOCATE 13, 10
|
|
|
596 COLOR 10
|
|
|
597 PRINT "Esszimmer"
|
|
|
598 raum = 6
|
|
|
599 SLEEP
|
|
|
600 INPUT "", nzl
|
|
|
601 a106:
|
|
|
602 CLS
|
|
|
603 COLOR 7
|
|
|
604 INPUT "Was machst du?", B$
|
|
|
605 IF B$ = "gehen in Schlafzimmer" GOTO 114
|
|
|
606 IF B$ = "gehen in Flur" GOTO 103
|
|
|
607 IF B$ = "gehen in Arbeitszimmer" GOTO 105
|
|
|
608 IF B$ = "gehen in Kche" GOTO 109
|
|
|
609 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
|
|
|
610 IF B$ = "untersuchen Esszimmer" GOTO 108
|
|
|
611 IF B$ = "untersuchen Tisch" GOTO 110
|
|
|
612 IF B$ = "nehmen Kerzenst„nder" GOTO 115
|
|
|
613 IF B$ = "q" THEN END
|
|
|
614 IF B$ = "m" THEN GOSUB yy
|
|
|
615 IF B$ = "b" THEN GOSUB yx
|
|
|
616 IF B$ = "s" THEN GOSUB speichern
|
|
|
617 SLEEP
|
|
|
618 INPUT "", nzl
|
|
|
619 GOTO a106
|
|
|
620
|
|
|
621 108 :
|
|
|
622 CLS
|
|
|
623 PRINT "In der Mitte steht der Tisch und auf"
|
|
|
624 PRINT
|
|
|
625 PRINT "der rechten Seite ist die Tr zur Kche."
|
|
|
626 SLEEP
|
|
|
627 INPUT "", nzl
|
|
|
628 GOTO 106
|
|
|
629
|
|
|
630 110 :
|
|
|
631 CLS
|
|
|
632 PRINT "Ein sch”ner eichener Tisch mit einer"
|
|
|
633 PRINT
|
|
|
634 PRINT "geh„kelten Tischdecke und einem"
|
|
|
635 PRINT
|
|
|
636 PRINT "Kerzenst„nder in der Mitte."
|
|
|
637 SLEEP
|
|
|
638 INPUT "", nzl
|
|
|
639 GOTO a106
|
|
|
640
|
|
|
641 109 :
|
|
|
642 CLS
|
|
|
643 LOCATE 13, 10
|
|
|
644 COLOR 10
|
|
|
645 PRINT "Kche"
|
|
|
646 raum = 7
|
|
|
647 SLEEP
|
|
|
648 INPUT "", nzl
|
|
|
649 a109:
|
|
|
650 CLS
|
|
|
651 INPUT "Was machst du?", B$
|
|
|
652 IF B$ = "gehen in Schlafzimmer" GOTO 114
|
|
|
653 IF B$ = "gehen in Flur" GOTO 103
|
|
|
654 IF B$ = "gehen in Arbeitszimmer" GOTO 105
|
|
|
655 IF B$ = "gehen in Esszimmer" GOTO 106
|
|
|
656 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
|
|
|
657 IF B$ = "untersuchen Kche" GOTO 111
|
|
|
658 IF B$ = "untersuchen Kchenschrank" GOTO 112
|
|
|
659 IF B$ = "”ffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
|
|
|
660 IF B$ = "nehmen Messer" GOTO 113
|
|
|
661 IF B$ = "q" THEN END
|
|
|
662 IF B$ = "m" THEN GOSUB yy
|
|
|
663 IF B$ = "b" THEN GOSUB yx
|
|
|
664 IF B$ = "s" THEN GOSUB speichern
|
|
|
665 SLEEP
|
|
|
666 INPUT "", nzl
|
|
|
667 GOTO a109
|
|
|
668
|
|
|
669 111 :
|
|
|
670 CLS
|
|
|
671 PRINT "Links ist die Kochzeile, in der Mitte"
|
|
|
672 PRINT
|
|
|
673 PRINT "ein kleiner Tisch mit zwei Sthlen und"
|
|
|
674 PRINT
|
|
|
675 PRINT "rechts der Kchenschrank."
|
|
|
676 SLEEP
|
|
|
677 INPUT "", nzl
|
|
|
678 GOTO a109
|
|
|
679
|
|
|
680 112 :
|
|
|
681 CLS
|
|
|
682 PRINT "Es ist nichts Ausergew”hnliches daran"
|
|
|
683 PRINT
|
|
|
684 PRINT "zu erkennen, nur eine Schublade in der"
|
|
|
685 PRINT
|
|
|
686 PRINT "es bestimmt interesantes zu entdecken gibt."
|
|
|
687 SLEEP
|
|
|
688 INPUT "", nzl
|
|
|
689 GOTO a109
|
|
|
690
|
|
|
691 113 :
|
|
|
692 CLS
|
|
|
693 LINE (90, 70)-(180, 110), 7, BF
|
|
|
694 LINE (50, 70)-(90, 70), 7
|
|
|
695 LINE (50, 70)-(90, 110), 7
|
|
|
696 PAINT (80, 80), 7
|
|
|
697 LINE (180, 40)-(200, 140), 8, BF
|
|
|
698 LINE (201, 70)-(250, 110), 6, BF
|
|
|
699 CIRCLE (250, 90), 24, 6
|
|
|
700 PAINT (260, 80), 6
|
|
|
701 SLEEP
|
|
|
702 INPUT "", nzl
|
|
|
703 CLS
|
|
|
704 messer% = 1
|
|
|
705 GOTO a109
|
|
|
706
|
|
|
707 114 :
|
|
|
708 CLS
|
|
|
709 LOCATE 13, 10
|
|
|
710 COLOR 10
|
|
|
711 PRINT "Schlafzimmer"
|
|
|
712 raum = 8
|
|
|
713 SLEEP
|
|
|
714 INPUT "", nzl
|
|
|
715 GOTO 8
|
|
|
716
|
|
|
717 115 :
|
|
|
718 CLS
|
|
|
719 LINE (120, 20)-(200, 20), 7
|
|
|
720 LINE (120, 20)-(140, 40), 7
|
|
|
721 LINE (200, 20)-(180, 40), 7
|
|
|
722 LINE (150, 50)-(170, 130), 7, BF
|
|
|
723 LINE (130, 150)-(190, 180), 7, BF
|
|
|
724 LINE (130, 160)-(100, 190), 7
|
|
|
725 LINE (100, 190)-(220, 190), 7
|
|
|
726 LINE (220, 190)-(190, 160), 7
|
|
|
727 CIRCLE (160, 40), 20, 7
|
|
|
728 CIRCLE (160, 150), 30, 7
|
|
|
729 PAINT (140, 30), 7
|
|
|
730 PAINT (180, 30), 7
|
|
|
731 PAINT (160, 45), 7
|
|
|
732 PAINT (160, 140), 7
|
|
|
733 PAINT (160, 185), 7
|
|
|
734 SLEEP
|
|
|
735 INPUT "", nzl
|
|
|
736 CLS
|
|
|
737 kerzenst% = 1
|
|
|
738 GOTO a106
|
|
|
739
|
|
|
740 116 :
|
|
|
741 CLS
|
|
|
742 COLOR 7
|
|
|
743 INPUT "Was machst du?", B$
|
|
|
744 zuege% = zuege% + 1
|
|
|
745 IF B$ = "gehen in Schlafzimmer" GOTO 114
|
|
|
746 IF B$ = "gehen in Arbeitszimmer" GOTO 105
|
|
|
747 IF B$ = "gehen in Esszimmer" GOTO 106
|
|
|
748 IF B$ = "gehen in Kche" GOTO 109
|
|
|
749 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
|
|
|
750 IF B$ = "sprechen mit Herr Fisch" GOTO 5
|
|
|
751 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
|
|
|
752 IF B$ = "untersuchen Flur" GOTO 117
|
|
|
753 IF B$ = "sprechen mit Tina" GOTO 118
|
|
|
754 IF B$ = "q" THEN END
|
|
|
755 IF B$ = "m" THEN GOSUB yy
|
|
|
756 IF B$ = "b" THEN GOSUB yx
|
|
|
757 PRINT ""
|
|
|
758 PRINT "Keine Lust!"
|
|
|
759 PRINT ""
|
|
|
760 SLEEP
|
|
|
761 INPUT "", nzl
|
|
|
762 GOTO 116
|
|
|
763
|
|
|
764 117 :
|
|
|
765 CLS
|
|
|
766 IF kerzenst% = 0 GOTO 121
|
|
|
767 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
|
|
|
768 PRINT
|
|
|
769 PRINT "gerade aus geht's ins Esszimmer und rechts ins"
|
|
|
770 PRINT
|
|
|
771 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
|
|
|
772 PRINT
|
|
|
773 PRINT "gerade klingelt es an der Tr. Herr Fisch macht"
|
|
|
774 PRINT
|
|
|
775 PRINT "auf und Tina kommt herein."
|
|
|
776 vvv% = 1
|
|
|
777 SLEEP
|
|
|
778 INPUT "", nzl
|
|
|
779 GOTO 116
|
|
|
780
|
|
|
781 118 :
|
|
|
782 CLS
|
|
|
783 COLOR 9
|
|
|
784 PRINT "A: Sch”n, dass du so schnell gekommen bist."
|
|
|
785 PRINT
|
|
|
786 PRINT "B: Der Tote liegt im Schlafzimmer."
|
|
|
787 PRINT
|
|
|
788 PRINT "C: Ende."
|
|
|
789 LOCATE 8, 1
|
|
|
790 COLOR 12
|
|
|
791 INPUT "Was sagst du?", s$
|
|
|
792 PRINT
|
|
|
793 COLOR 9
|
|
|
794 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
|
|
|
795 IF s$ = "B" GOTO 119
|
|
|
796 IF s$ = "C" GOTO 116
|
|
|
797 SLEEP
|
|
|
798 INPUT "", nzl
|
|
|
799 GOTO 118
|
|
|
800
|
|
|
801 119 :
|
|
|
802 CLS
|
|
|
803 COLOR 9
|
|
|
804 PRINT "Okay, aber wo ist das Schlafzimmer?"
|
|
|
805 SLEEP
|
|
|
806 INPUT "", nzl
|
|
|
807 GOTO 120
|
|
|
808
|
|
|
809 120 :
|
|
|
810 CLS
|
|
|
811 COLOR 12
|
|
|
812 PRINT "Welchen Weg beschreibst du ihr?"
|
|
|
813 PRINT
|
|
|
814 PRINT "a: Links die Treppe hinauf."
|
|
|
815 PRINT
|
|
|
816 PRINT "b: Rechts die Treppe hinunter."
|
|
|
817 PRINT
|
|
|
818 PRINT "c: Die Treppe hinauf, dann links."
|
|
|
819 PRINT
|
|
|
820 INPUT "a, b oder c?", w$
|
|
|
821 PRINT
|
|
|
822 COLOR 2
|
|
|
823 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Ged„chtnis!"
|
|
|
824 IF w$ = "c" THEN cheat1 = 1
|
|
|
825 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige L”sung war c."
|
|
|
826 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige L”sung war c."
|
|
|
827 vvx% = 1
|
|
|
828 SLEEP
|
|
|
829 INPUT "", nzl
|
|
|
830 GOTO 116
|
|
|
831
|
|
|
832 121 :
|
|
|
833 CLS
|
|
|
834 COLOR 2
|
|
|
835 PRINT "Links geht es die Treppe zum Schlafzimmer"
|
|
|
836 PRINT
|
|
|
837 PRINT "hinauf, gerade aus geht's ins Esszimmer und"
|
|
|
838 PRINT
|
|
|
839 PRINT "rechts ins Arbeitszimmer. Im Flur steht"
|
|
|
840 PRINT
|
|
|
841 PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
|
|
|
842 SLEEP
|
|
|
843 INPUT "", nzl
|
|
|
844 GOTO 116
|
|
|
845
|
|
|
846 122 :
|
|
|
847 CLS
|
|
|
848 COLOR 2
|
|
|
849 IF vvx% = 1 GOTO 123
|
|
|
850 PRINT "Ich sehe nichts Besonderes."
|
|
|
851 SLEEP
|
|
|
852 INPUT "", nzl
|
|
|
853 GOTO 105
|
|
|
854
|
|
|
855 123 :
|
|
|
856 CLS
|
|
|
857 COLOR 2
|
|
|
858 PRINT "Da hat's ja ein Buch mit 123 Reiseerz„hlungen"
|
|
|
859 PRINT
|
|
|
860 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
|
|
|
861 PRINT
|
|
|
862 PRINT "ich mir genauer anschauen."
|
|
|
863 SLEEP
|
|
|
864 INPUT "", nzl
|
|
|
865 GOTO 105
|
|
|
866
|
|
|
867 124 :
|
|
|
868 CLS
|
|
|
869 COLOR 2
|
|
|
870 PRINT "Das Buch l„sst sich nur halb heraus ziehen."
|
|
|
871 PRINT
|
|
|
872 PRINT "Pl”tzlich schwenkt das ganze Bcherregal zur"
|
|
|
873 PRINT
|
|
|
874 PRINT "Seite und dhinter kommt eine Tr zum Vorschein."
|
|
|
875 PRINT
|
|
|
876 PRINT "Sie ist durch ein Schlssel- und ein "
|
|
|
877 PRINT
|
|
|
878 PRINT "Zahlenschloss gesichert."
|
|
|
879 PRINT
|
|
|
880 COLOR 6
|
|
|
881 PRINT "Wenn du im Arbeitszimmer z drckst, kannst du"
|
|
|
882 PRINT
|
|
|
883 PRINT "die Zahlenkombination eingeben."
|
|
|
884 SLEEP
|
|
|
885 INPUT "", nzl
|
|
|
886 GOTO 105
|
|
|
887
|
|
|
888 125 :
|
|
|
889 zkx% = 0
|
|
|
890 a125:
|
|
|
891 CLS
|
|
|
892 zkx% = zkx% + 1
|
|
|
893 COLOR 5
|
|
|
894 INPUT "Wie lautet die Kombination?", zk$
|
|
|
895 IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
|
|
|
896 IF zk$ = "123" GOTO 126
|
|
|
897 IF zk$ = "q" GOTO 105
|
|
|
898 PRINT "Leider falsch. Probier's noch einmal."
|
|
|
899 IF zkx% = 5 THEN PRINT "Tipp: Das Bcherregal."
|
|
|
900 SLEEP
|
|
|
901 INPUT "", nzl
|
|
|
902 GOTO a125
|
|
|
903
|
|
|
904 126 :
|
|
|
905 CLS
|
|
|
906 COLOR 2
|
|
|
907 PRINT "Die Kombination war richtig."
|
|
|
908 kx% = 1
|
|
|
909 IF sx% = 1 GOTO 137
|
|
|
910 PRINT "Jetzt musst du nur noch das Schlsselschloss ”ffnen."
|
|
|
911 SLEEP
|
|
|
912 INPUT "", nzl
|
|
|
913 GOTO 105
|
|
|
914
|
|
|
915 137 :
|
|
|
916 CLS
|
|
|
917 COLOR 2
|
|
|
918 PRINT "So, die Tr ist jetzt offen. Dahinter befindet"
|
|
|
919 PRINT
|
|
|
920 PRINT "sich ein Geheimgang."
|
|
|
921 SLEEP
|
|
|
922 INPUT "", nzl
|
|
|
923 GOTO 105
|
|
|
924
|
|
|
925 138 :
|
|
|
926 CLS
|
|
|
927 COLOR 2
|
|
|
928 IF kx% = 1 GOTO 137
|
|
|
929 PRINT "Jetzt musst du nur noch die Kombination knacken."
|
|
|
930 SLEEP
|
|
|
931 INPUT "", nzl
|
|
|
932 GOTO 105
|
|
|
933
|
|
|
934 127 :
|
|
|
935 CLS
|
|
|
936 COLOR 2
|
|
|
937 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
|
|
|
938 SLEEP
|
|
|
939 INPUT "", nzl
|
|
|
940 IF tlampe% = 0 GOTO 105
|
|
|
941 1000 :
|
|
|
942 CLS
|
|
|
943 LOCATE 13, 10
|
|
|
944 COLOR 10
|
|
|
945 PRINT "Geheimgang"
|
|
|
946 raum = 12
|
|
|
947 SLEEP
|
|
|
948 INPUT "", nzl
|
|
|
949 CLS
|
|
|
950 COLOR 2
|
|
|
951 PRINT "Gut, dass ich eine Taschenlampe dabei habe."
|
|
|
952 PRINT
|
|
|
953 PRINT "Oh, es geht steil bergab .... ich muss schon"
|
|
|
954 PRINT
|
|
|
955 PRINT "mindestens 5 Meter unter der Erdoberfl„che"
|
|
|
956 PRINT
|
|
|
957 PRINT "sein .... Jetzt bin ich schon 10 Minuten"
|
|
|
958 PRINT
|
|
|
959 PRINT "unterwegs ..... da vorne kommt eine Tr"
|
|
|
960 PRINT
|
|
|
961 PRINT "genau so gesichert wie die hinter dem Regal"
|
|
|
962 PRINT
|
|
|
963 PRINT "gut, dass ich den Schlssel habe und den"
|
|
|
964 PRINT
|
|
|
965 PRINT "Code kenne ..... Wo bin ich denn jetzt?"
|
|
|
966 PRINT
|
|
|
967 PRINT "Sieht aus, wie der Keller eines Hauses"
|
|
|
968 PRINT
|
|
|
969 PRINT "ist aber ganz sch”n zerfallen."
|
|
|
970 SLEEP
|
|
|
971 INPUT "", nzl
|
|
|
972 GOTO 130
|
|
|
973
|
|
|
974 130 :
|
|
|
975 CLS
|
|
|
976 LOCATE 13, 10
|
|
|
977 COLOR 10
|
|
|
978 PRINT "Keller"
|
|
|
979 raum = 9
|
|
|
980 SLEEP
|
|
|
981 INPUT "", nzl
|
|
|
982 a130:
|
|
|
983 CLS
|
|
|
984 COLOR 7
|
|
|
985 INPUT "Was machst du?", B$
|
|
|
986 zuege% = zuege% + 1
|
|
|
987 IF B$ = "gehen in Flur" GOTO 103
|
|
|
988 IF B$ = "gehen in Schlafzimmer" GOTO 114
|
|
|
989 IF B$ = "gehen in Arbeitszimmer" GOTO 105
|
|
|
990 IF B$ = "gehen in Esszimmer" GOTO 106
|
|
|
991 IF B$ = "gehen in Kche" GOTO 109
|
|
|
992 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
|
|
|
993 IF B$ = "sprechen mit Herr Fisch" GOTO 5
|
|
|
994 IF B$ = "untersuchen Keller" GOTO 128
|
|
|
995 IF B$ = "benutzen Treppe" GOTO 132
|
|
|
996 IF B$ = "q" THEN END
|
|
|
997 IF B$ = "m" THEN GOSUB yy
|
|
|
998 IF B$ = "b" THEN GOSUB yx
|
|
|
999 IF B$ = "s" THEN GOSUB speichern
|
|
|
1000 PRINT ""
|
|
|
1001 PRINT "Jetzt nicht."
|
|
|
1002 PRINT
|
|
|
1003 SLEEP
|
|
|
1004 INPUT "", nzl
|
|
|
1005 GOTO a130
|
|
|
1006
|
|
|
1007 128 :
|
|
|
1008 CLS
|
|
|
1009 COLOR 2
|
|
|
1010 PRINT "Ein zerfallener Keller, alles verstaubt."
|
|
|
1011 PRINT
|
|
|
1012 PRINT "Gerade aus geht eine Treppe nach oben."
|
|
|
1013 PRINT
|
|
|
1014 PRINT ""
|
|
|
1015 SLEEP
|
|
|
1016 INPUT "", nzl
|
|
|
1017 GOTO 130
|
|
|
1018
|
|
|
1019
|
|
|
1020 131 :
|
|
|
1021 CLS
|
|
|
1022 COLOR 2
|
|
|
1023 PRINT "In der Lagerhalle ist alles genau so"
|
|
|
1024 PRINT
|
|
|
1025 PRINT "zerfallen, wie im Keller. šberall sind Kartons"
|
|
|
1026 PRINT
|
|
|
1027 PRINT "gestapelt. Gerade aus geht eine Tr ins Freie."
|
|
|
1028 SLEEP
|
|
|
1029 INPUT "", nzl
|
|
|
1030 RETURN
|
|
|
1031
|
|
|
1032 132 :
|
|
|
1033 CLS
|
|
|
1034 LOCATE 13, 10
|
|
|
1035 COLOR 10
|
|
|
1036 PRINT "Lagerhalle"
|
|
|
1037 raum = 10
|
|
|
1038 SLEEP
|
|
|
1039 INPUT "", nzl
|
|
|
1040 CLS
|
|
|
1041 a132:
|
|
|
1042 CLS
|
|
|
1043 COLOR 7
|
|
|
1044 INPUT "Was machst du?", B$
|
|
|
1045 zuege% = zuege% + 1
|
|
|
1046 IF B$ = "gehen in Schlafzimmer" GOTO 114
|
|
|
1047 IF B$ = "gehen in Arbeitszimmer" GOTO 105
|
|
|
1048 IF B$ = "gehen in Esszimmer" GOTO 106
|
|
|
1049 IF B$ = "gehen in Kche" GOTO 109
|
|
|
1050 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
|
|
|
1051 IF B$ = "”ffnen Tr" GOTO 133
|
|
|
1052 IF B$ = "untersuchen Kartons" THEN GOSUB 134
|
|
|
1053 IF B$ = "benutzen Messer" GOTO 136
|
|
|
1054 IF B$ = "q" THEN END
|
|
|
1055 IF B$ = "m" THEN GOSUB yy
|
|
|
1056 IF B$ = "b" THEN GOSUB yx
|
|
|
1057 IF B$ = "s" THEN GOSUB speichern
|
|
|
1058 PRINT ""
|
|
|
1059 PRINT "N”!"
|
|
|
1060 PRINT
|
|
|
1061 SLEEP
|
|
|
1062 INPUT "", nzl
|
|
|
1063 GOTO a132
|
|
|
1064
|
|
|
1065 133 :
|
|
|
1066 CLS
|
|
|
1067 COLOR 2
|
|
|
1068 PRINT "Die Tr ist mit einem Zahlenschloss verschlossen,"
|
|
|
1069 PRINT
|
|
|
1070 PRINT "aber man kann die Tr einen Spalt weit aufdrcken."
|
|
|
1071 PRINT
|
|
|
1072 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
|
|
|
1073 PRINT
|
|
|
1074 PRINT "auf mich zuf„hrt. Ich kann gerade noch zur Seite"
|
|
|
1075 PRINT
|
|
|
1076 PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
|
|
|
1077 PRINT
|
|
|
1078 PRINT "Jetzt ist schnelles Handeln wichtig!"
|
|
|
1079 PRINT
|
|
|
1080 SLEEP
|
|
|
1081 INPUT "", nzl
|
|
|
1082 a133:
|
|
|
1083 COLOR 7
|
|
|
1084 INPUT "Wo versteckst du dich? In ", v$
|
|
|
1085 v% = v% + 1
|
|
|
1086 IF v$ = "leerem Karton" GOTO 135
|
|
|
1087 IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
|
|
|
1088 IF v$ = "Geheimgang" THEN PRINT "Dafr reicht die Zeit nicht."
|
|
|
1089 IF v$ = "Keller" THEN PRINT "Dafr reicht die Zeit nicht."
|
|
|
1090 IF v$ = " untersuchen Lagerhalle" THEN GOSUB 131
|
|
|
1091 IF v$ = "untersuchen Kartons" THEN GOSUB 134
|
|
|
1092 IF v$ = "q" THEN END
|
|
|
1093 IF v% = 9 THEN PRINT "Tipp: l..... K....."
|
|
|
1094 IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
|
|
|
1095 PRINT "Da habe ich zu wenig Zeit dafr."
|
|
|
1096 SLEEP
|
|
|
1097 INPUT "", nzl
|
|
|
1098 GOTO a133
|
|
|
1099
|
|
|
1100 134 :
|
|
|
1101 CLS
|
|
|
1102 COLOR 2
|
|
|
1103 PRINT "Auf der linken Seite sind die vollen Kartons"
|
|
|
1104 PRINT
|
|
|
1105 PRINT "gestapelt und rechts liegen die leeren auf"
|
|
|
1106 PRINT
|
|
|
1107 PRINT "einem Haufen."
|
|
|
1108 SLEEP
|
|
|
1109 INPUT "", nzl
|
|
|
1110 RETURN
|
|
|
1111
|
|
|
1112 135 :
|
|
|
1113 CLS
|
|
|
1114 COLOR 2
|
|
|
1115 PRINT "Das ist eine gute Idee. Ich mache mich"
|
|
|
1116 PRINT
|
|
|
1117 PRINT "sofort an die Arbeit. Raschel, raschel"
|
|
|
1118 PRINT
|
|
|
1119 PRINT "... uff ... so ... geich ... jetzt ..."
|
|
|
1120 PRINT
|
|
|
1121 PRINT "Okay ich hab's geschafft. Jetzt kann"
|
|
|
1122 PRINT
|
|
|
1123 PRINT "ich nur nichts mehr sehen. Ich sollte"
|
|
|
1124 PRINT
|
|
|
1125 PRINT "mir ein Loch zum Rausschauen in den"
|
|
|
1126 PRINT
|
|
|
1127 PRINT "Karton reiáen. So ... uff, der ist zu"
|
|
|
1128 PRINT
|
|
|
1129 PRINT "stabil, da brauche ich ein Werkzeug dazu."
|
|
|
1130 SLEEP
|
|
|
1131 INPUT "", nzl
|
|
|
1132 GOTO 132
|
|
|
1133
|
|
|
1134 136 :
|
|
|
1135 CLS
|
|
|
1136 COLOR 2
|
|
|
1137 IF messer% = 0 THEN PRINT "Ich habe kein Messer."
|
|
|
1138 IF messer% = 0 THEN PRINT
|
|
|
1139 IF messer% = 0 THEN PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
|
|
|
1140 IF messer% = 0 THEN PRINT
|
|
|
1141 IF messer% = 0 THEN PRINT "halben Stunde geht der Typ wieder. Ich"
|
|
|
1142 IF messer% = 0 THEN PRINT
|
|
|
1143 IF messer% = 0 THEN PRINT "begebe mich sofort zurck ins Haus. So"
|
|
|
1144 IF messer% = 0 THEN PRINT
|
|
|
1145 IF messer% = 0 THEN PRINT "schlecht vorbereited begebe ich mich nicht"
|
|
|
1146 IF messer% = 0 THEN PRINT
|
|
|
1147 IF messer% = 0 THEN PRINT "wieder in Gefahr."
|
|
|
1148 IF messer% = 0 THEN PRINT
|
|
|
1149 IF messer% = 0 THEN SLEEP
|
|
|
1150 IF messer% = 0 THEN PRINT
|
|
|
1151 IF messer% = 0 THEN INPUT "", nzl
|
|
|
1152 IF messer% = 0 THEN PRINT
|
|
|
1153 IF messer% = 0 GOTO 105
|
|
|
1154 PRINT "Gute Idee, das mit dem Messer. Der Typ"
|
|
|
1155 PRINT
|
|
|
1156 PRINT "f„hrt jetzt mit seinem Kleinbus in die Halle."
|
|
|
1157 PRINT
|
|
|
1158 PRINT "Er steigt aus und macht die Hecktren auf."
|
|
|
1159 PRINT
|
|
|
1160 PRINT "Nun l„d er zwei Kartons in das Gef„hrt, er"
|
|
|
1161 PRINT
|
|
|
1162 PRINT "schlieát die Tren, steigt wieder ein und"
|
|
|
1163 PRINT
|
|
|
1164 PRINT "f„hrt hinaus."
|
|
|
1165 PRINT
|
|
|
1166 PRINT "Uff, das h„tte ich geschafft. Jetzt bloá schnell"
|
|
|
1167 PRINT
|
|
|
1168 PRINT "zurck ins Haus."
|
|
|
1169 SLEEP
|
|
|
1170 INPUT "", nzl
|
|
|
1171 GOTO 139
|
|
|
1172
|
|
|
1173 139 :
|
|
|
1174 CLS
|
|
|
1175 PRINT "Was machst du?"
|
|
|
1176 PRINT ""
|
|
|
1177 PRINT "a: nach Hause gehen"
|
|
|
1178 PRINT ""
|
|
|
1179 PRINT "b: noch da bleiben"
|
|
|
1180 PRINT ""
|
|
|
1181 PRINT "c: nochmal in die Lagerhalle gehen"
|
|
|
1182 PRINT ""
|
|
|
1183 INPUT "Und wie entscheidest du dich?", entscheidung$
|
|
|
1184 PRINT
|
|
|
1185 IF entscheidung$ = "a" GOTO 140
|
|
|
1186 IF entscheidung$ = "b" GOTO 105
|
|
|
1187 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
|
|
|
1188
|
|
|
1189 140 :
|
|
|
1190 CLS
|
|
|
1191 LOCATE 13, 10
|
|
|
1192 COLOR 10
|
|
|
1193 PRINT "Zuhause"
|
|
|
1194 raum = 11
|
|
|
1195 SLEEP
|
|
|
1196 INPUT "", nzl
|
|
|
1197 a140:
|
|
|
1198 CLS
|
|
|
1199 PRINT "Du willst dir gerade einen Tee machen, als"
|
|
|
1200 PRINT ""
|
|
|
1201 PRINT "Du einen Schlag an der Tr h”rst und das"
|
|
|
1202 PRINT ""
|
|
|
1203 PRINT "Licht aus geht."
|
|
|
1204 PRINT ""
|
|
|
1205 PRINT "Was machst du?"
|
|
|
1206 PRINT ""
|
|
|
1207 PRINT "a: die Tr ”ffnen"
|
|
|
1208 PRINT ""
|
|
|
1209 PRINT "b: die Polizei anrufen"
|
|
|
1210 PRINT ""
|
|
|
1211 PRINT "c: dich unter dem Bett verstecken"
|
|
|
1212 PRINT ""
|
|
|
1213 INPUT "Und?", w$
|
|
|
1214 PRINT
|
|
|
1215 IF w$ = "a" GOTO 141
|
|
|
1216 IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst l”sen."
|
|
|
1217 IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
|
|
|
1218 GOTO a140
|
|
|
1219
|
|
|
1220 141 :
|
|
|
1221 CLS
|
|
|
1222 COLOR 2
|
|
|
1223 PRINT
|
|
|
1224 PRINT
|
|
|
1225 PRINT "Du siehst gerade noch ein Auto"
|
|
|
1226 PRINT
|
|
|
1227 PRINT "wegfahren. "
|
|
|
1228 SLEEP
|
|
|
1229 INPUT "", nzl
|
|
|
1230 CLS
|
|
|
1231 LINE (70, 100)-(250, 150), 2, BF
|
|
|
1232 LINE (70, 100)-(90, 60), 2
|
|
|
1233 LINE (71, 100)-(91, 60), 2
|
|
|
1234 LINE (250, 100)-(230, 60), 2
|
|
|
1235 LINE (249, 100)-(229, 60), 2
|
|
|
1236 CIRCLE (115, 78), 12, 6
|
|
|
1237 PAINT (115, 78), 6
|
|
|
1238 LINE (90, 90)-(140, 99), 1, BF
|
|
|
1239 LINE (90, 90)-(85, 99), 1
|
|
|
1240 LINE (145, 99)-(140, 90), 1
|
|
|
1241 LINE (85, 99)-(90, 99), 1
|
|
|
1242 LINE (145, 99)-(140, 99), 1
|
|
|
1243 PAINT (89, 98), 1
|
|
|
1244 PAINT (141, 98), 1
|
|
|
1245 LINE (230, 60)-(90, 62), 2, BF
|
|
|
1246 LINE (100, 75)-(130, 90), 7, BF
|
|
|
1247 LINE (190, 75)-(220, 90), 7, BF
|
|
|
1248 LINE (90, 95)-(140, 99), 7, BF
|
|
|
1249 LINE (180, 95)-(230, 99), 7, BF
|
|
|
1250 LINE (105, 91)-(105, 94), 8
|
|
|
1251 LINE (125, 91)-(125, 94), 8
|
|
|
1252 LINE (195, 91)-(195, 94), 8
|
|
|
1253 LINE (215, 91)-(215, 94), 8
|
|
|
1254 CIRCLE (80, 110), 7, 4
|
|
|
1255 PAINT (80, 110), 4
|
|
|
1256 CIRCLE (80, 110), 7, 0
|
|
|
1257 CIRCLE (240, 110), 7, 4
|
|
|
1258 PAINT (240, 110), 4
|
|
|
1259 CIRCLE (240, 110), 7, 0
|
|
|
1260 CIRCLE (80, 130), 7, 14
|
|
|
1261 PAINT (80, 130), 14
|
|
|
1262 CIRCLE (80, 130), 7, 0
|
|
|
1263 CIRCLE (240, 130), 7, 14
|
|
|
1264 PAINT (240, 130), 14
|
|
|
1265 CIRCLE (240, 130), 7, 0
|
|
|
1266 LINE (80, 151)-(100, 170), 8, BF
|
|
|
1267 LINE (220, 151)-(240, 170), 8, BF
|
|
|
1268 LINE (125, 126)-(194, 136), 0, BF
|
|
|
1269 LINE (125, 126)-(194, 136), 15, B
|
|
|
1270 LOCATE 17, 17
|
|
|
1271 COLOR 15
|
|
|
1272 PRINT "KA GR 48"
|
|
|
1273 LINE (150, 67)-(170, 72), 7, BF
|
|
|
1274 LINE (149, 66)-(171, 73), 8, B
|
|
|
1275 LINE (159, 63)-(161, 65), 8, BF
|
|
|
1276 LINE (1, 170)-(320, 200), 7, BF
|
|
|
1277 bghbgh = 0
|
|
|
1278 DO
|
|
|
1279 bghbgh = bghbgh + 1
|
|
|
1280 LOOP UNTIL bghbgh = 180000
|
|
|
1281 GOTO 142
|
|
|
1282 142 :
|
|
|
1283 CLS
|
|
|
1284 COLOR 2
|
|
|
1285 PRINT "In deiner Tr steckt ein Messer mit"
|
|
|
1286 PRINT ""
|
|
|
1287 PRINT "einer Botschaft. Du liest sie natrlich"
|
|
|
1288 PRINT
|
|
|
1289 PRINT "sofort."
|
|
|
1290 SLEEP
|
|
|
1291 INPUT "", nzl
|
|
|
1292 CLS
|
|
|
1293 LINE (55, 30)-(275, 170), 11, B
|
|
|
1294 COLOR 11
|
|
|
1295 LOCATE 10, 10
|
|
|
1296 PRINT "Wenn du dich einmischst"
|
|
|
1297 LOCATE 15, 10
|
|
|
1298 PRINT "dann bist du T O T !!!"
|
|
|
1299 SLEEP
|
|
|
1300 INPUT "", nzl
|
|
|
1301 CLS
|
|
|
1302 COLOR 2
|
|
|
1303 PRINT ""
|
|
|
1304 PRINT ""
|
|
|
1305 PRINT "Diese Botschaft war ernst gemeint."
|
|
|
1306 PRINT ""
|
|
|
1307 PRINT "Aber als Privatdetektiv musst du dich"
|
|
|
1308 PRINT ""
|
|
|
1309 PRINT "halt ber solche Morddrohungen hinweg-"
|
|
|
1310 PRINT ""
|
|
|
1311 PRINT "setzen. Deshalb rufst du sofort die"
|
|
|
1312 PRINT ""
|
|
|
1313 PRINT "Polizei an."
|
|
|
1314 SLEEP
|
|
|
1315 INPUT "", nzl
|
|
|
1316 GOTO 143
|
|
|
1317 143 :
|
|
|
1318 CLS
|
|
|
1319 COLOR 9
|
|
|
1320 PRINT ""
|
|
|
1321 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
|
|
|
1322 PRINT ""
|
|
|
1323 PRINT "L„nger. Was kann ich fr Sie tun?"
|
|
|
1324 PRINT
|
|
|
1325 PRINT
|
|
|
1326 COLOR 12
|
|
|
1327 PRINT "a: Ich m”chte Anzeige gegen einen Mann"
|
|
|
1328 PRINT
|
|
|
1329 PRINT " in einem grnen Auto erstatten."
|
|
|
1330 PRINT
|
|
|
1331 PRINT "b: Ich m”chte eine Pizza essen."
|
|
|
1332 PRINT ""
|
|
|
1333 PRINT "c: Ich m”chte, dass Sie einen Mann"
|
|
|
1334 PRINT ""
|
|
|
1335 PRINT " in einem grnen Auto verhaften."
|
|
|
1336 LOCATE 20, 1
|
|
|
1337 COLOR 12
|
|
|
1338 INPUT "Was antwortest du? (a,b,c)", a$
|
|
|
1339 IF a$ = "a" THEN GOTO 144
|
|
|
1340 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
|
|
|
1341 IF a$ = "c" THEN GOTO 144
|
|
|
1342 IF a$ = "q" THEN END
|
|
|
1343 SLEEP
|
|
|
1344 INPUT "", nzl
|
|
|
1345 GOTO 143
|
|
|
1346
|
|
|
1347 144 :
|
|
|
1348 CLS
|
|
|
1349 COLOR 9
|
|
|
1350 PRINT ""
|
|
|
1351 PRINT "Wie heiát der Mann denn?"
|
|
|
1352 PRINT
|
|
|
1353 COLOR 12
|
|
|
1354 PRINT "a: Karl von Burlafingen."
|
|
|
1355 PRINT ""
|
|
|
1356 PRINT "b: Regidr Eklansch."
|
|
|
1357 PRINT ""
|
|
|
1358 PRINT "c: Ich kenne seinen Namen nicht."
|
|
|
1359 PRINT ""
|
|
|
1360 PRINT ""
|
|
|
1361 INPUT "Wie heiát er? (a,b,c)", w$
|
|
|
1362 PRINT ""
|
|
|
1363 IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
|
|
|
1364 IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
|
|
|
1365 IF w$ = "c" GOTO 145
|
|
|
1366 SLEEP
|
|
|
1367 INPUT "", nzl
|
|
|
1368 GOTO 144
|
|
|
1369
|
|
|
1370 145 :
|
|
|
1371 CLS
|
|
|
1372 PRINT ""
|
|
|
1373 COLOR 9
|
|
|
1374 PRINT "Was fr eine Autonummer hatte er denn?"
|
|
|
1375 PRINT ""
|
|
|
1376 PRINT ""
|
|
|
1377 COLOR 12
|
|
|
1378 PRINT "a: KS ET 26"
|
|
|
1379 PRINT ""
|
|
|
1380 PRINT "b: HS AB 37"
|
|
|
1381 PRINT ""
|
|
|
1382 PRINT "c: KA GR 48"
|
|
|
1383 PRINT ""
|
|
|
1384 PRINT ""
|
|
|
1385 COLOR 12
|
|
|
1386 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
|
|
|
1387 PRINT ""
|
|
|
1388 IF a$ = "a" THEN PRINT "Du solltest dein Ged„chtnis verbessern!"
|
|
|
1389 IF a$ = "b" THEN PRINT "Du solltest dein Ged„chtnis verbessern!"
|
|
|
1390 IF a$ = "c" GOTO 146
|
|
|
1391 SLEEP
|
|
|
1392 INPUT "", nzl
|
|
|
1393 GOTO 145
|
|
|
1394
|
|
|
1395 146 :
|
|
|
1396 CLS
|
|
|
1397 COLOR 2
|
|
|
1398 PRINT ""
|
|
|
1399 PRINT "Der Polizist gab den guten Tip sofort"
|
|
|
1400 PRINT ""
|
|
|
1401 PRINT "an seine Kollegen weiter. Er dankte"
|
|
|
1402 PRINT ""
|
|
|
1403 PRINT "dir fr die heiáe Spur und du"
|
|
|
1404 PRINT ""
|
|
|
1405 PRINT "verabschiedeste dich und giengst nach"
|
|
|
1406 PRINT ""
|
|
|
1407 PRINT "Hause."
|
|
|
1408 SLEEP
|
|
|
1409 INPUT "", nzl
|
|
|
1410 CLS
|
|
|
1411 PRINT ""
|
|
|
1412 PRINT "Zwei Tage sp„ter kam ein Brief vom"
|
|
|
1413 PRINT ""
|
|
|
1414 PRINT "Polizeirevier:"
|
|
|
1415 SLEEP
|
|
|
1416 INPUT "", nzl
|
|
|
1417 CLS
|
|
|
1418 LOCATE 4, 1
|
|
|
1419 COLOR 15
|
|
|
1420 PRINT "Sehrgeehrter Herr "; name$; ""
|
|
|
1421 PRINT ""
|
|
|
1422 PRINT "dank Ihnen konnten wie eine ganze"
|
|
|
1423 PRINT ""
|
|
|
1424 PRINT "Bande Waffenschieber dingfest machen."
|
|
|
1425 PRINT ""
|
|
|
1426 PRINT ""
|
|
|
1427 PRINT ""
|
|
|
1428 PRINT ""
|
|
|
1429 PRINT ""
|
|
|
1430 PRINT ""
|
|
|
1431 PRINT "Ausfhrlicher Bericht auf der n„chsten"
|
|
|
1432 PRINT ""
|
|
|
1433 PRINT "Seite."
|
|
|
1434 SLEEP
|
|
|
1435 INPUT "", nzl
|
|
|
1436 CLS
|
|
|
1437 PRINT ""
|
|
|
1438 PRINT "Am Montag konnten wir den grnen Audi"
|
|
|
1439 PRINT ""
|
|
|
1440 PRINT "von Sch„fer (so heiát der Bersitzer)"
|
|
|
1441 PRINT ""
|
|
|
1442 PRINT "in der Karlsruher Innenstadt ausfindig"
|
|
|
1443 PRINT ""
|
|
|
1444 PRINT "machen. Wir folgten ihm bis zu seinem"
|
|
|
1445 PRINT ""
|
|
|
1446 PRINT "Hause. Dort umstellten wir es"
|
|
|
1447 PRINT ""
|
|
|
1448 PRINT "und strmten. Beim Verh”r gestand"
|
|
|
1449 PRINT ""
|
|
|
1450 PRINT "er alles (Auftraggeber und alle"
|
|
|
1451 PRINT ""
|
|
|
1452 PRINT "Mitglieder). Am n„chsten Tag konnten"
|
|
|
1453 PRINT ""
|
|
|
1454 PRINT "wir den Rest der Bande verhaften."
|
|
|
1455 PRINT ""
|
|
|
1456 PRINT "Am n„chsten Donnerstag wird Mayr, der"
|
|
|
1457 PRINT ""
|
|
|
1458 PRINT "Boss der Truppe, wegen Mord an Karl"
|
|
|
1459 PRINT ""
|
|
|
1460 SLEEP
|
|
|
1461 INPUT "", nzl
|
|
|
1462 CLS
|
|
|
1463 PRINT ""
|
|
|
1464 PRINT "Mller verurteilt. Auch die Anderen"
|
|
|
1465 PRINT ""
|
|
|
1466 PRINT "werden wegen Beihilfe zum Mord vor"
|
|
|
1467 PRINT ""
|
|
|
1468 PRINT "Gericht gestellt werden."
|
|
|
1469 PRINT ""
|
|
|
1470 PRINT ""
|
|
|
1471 PRINT ""
|
|
|
1472 PRINT "Ich muss nochmal meinen Dank an Sie"
|
|
|
1473 PRINT ""
|
|
|
1474 PRINT "Aussprechen. Denn nur durch Sie konnten"
|
|
|
1475 PRINT ""
|
|
|
1476 PRINT "wir diese gef„hrliche Bande stoppen"
|
|
|
1477 PRINT ""
|
|
|
1478 PRINT ""
|
|
|
1479 PRINT ""
|
|
|
1480 PRINT ""
|
|
|
1481 PRINT ""
|
|
|
1482 PRINT " Polizeichef Mattias Huber"
|
|
|
1483 SLEEP
|
|
|
1484 INPUT "", nzl
|
|
|
1485 CLS
|
|
|
1486 LOCATE 13, 10
|
|
|
1487 COLOR 13
|
|
|
1488 PRINT "Sie haben gewonnen!"
|
|
|
1489 SLEEP
|
|
|
1490 INPUT "", nzl
|
|
|
1491 COLOR 15
|
|
|
1492
|
|
|
1493 GOTO xxxxx
|
|
|
1494
|
|
|
1495
|
|
|
1496
|
|
|
1497
|
|
|
1498
|
|
|
1499
|
|
|
1500
|
|
|
1501
|
|
|
1502 END
|
|
|
1503
|
|
|
1504
|
|
|
1505
|
|
|
1506
|
|
|
1507
|
|
|
1508
|
|
|
1509
|
|
|
1510 yy:
|
|
|
1511 CLS
|
|
|
1512 PRINT
|
|
|
1513 PRINT
|
|
|
1514 COLOR 5
|
|
|
1515 PRINT "Hausschlssel"
|
|
|
1516 PRINT "200 Schilling"
|
|
|
1517 IF tlampe% = 1 THEN PRINT "Taschenlampe"
|
|
|
1518 IF schluessel% = 1 THEN PRINT "Schlssel"
|
|
|
1519 IF messer% = 1 THEN PRINT "Messer"
|
|
|
1520 IF kerzenst% = 1 THEN PRINT "Kerzenst„nder"
|
|
|
1521 IF seil% = 1 THEN PRINT "Seil"
|
|
|
1522 RETURN
|
|
|
1523
|
|
|
1524 xxxxx:
|
|
|
1525
|
|
|
1526 v = 4
|
|
|
1527 vv = 1
|
|
|
1528 LOCATE 13, 10
|
|
|
1529 CLS
|
|
|
1530 LINE (79, 40)-(215, 40), v
|
|
|
1531 LINE (79, 40)-(49, 70), v
|
|
|
1532 LINE (245, 70)-(215, 40), v
|
|
|
1533 LINE (245, 70)-(147, 168), v
|
|
|
1534 LINE (49, 70)-(147, 168), v
|
|
|
1535 LINE (80, 39)-(215, 39), v
|
|
|
1536 LINE (79, 39)-(49, 69), v
|
|
|
1537 LINE (246, 70)-(215, 39), v
|
|
|
1538 LINE (246, 70)-(147, 169), v
|
|
|
1539 LINE (48, 70)-(147, 169), v
|
|
|
1540 PAINT (100, 42), vv, v
|
|
|
1541 LOCATE 11, 13
|
|
|
1542 COLOR 14
|
|
|
1543 PRINT "Super Markus"
|
|
|
1544 SLEEP
|
|
|
1545 END
|
|
|
1546
|
|
|
1547 yx:
|
|
|
1548 PRINT ""
|
|
|
1549 PRINT "M”gliche Befehle:"
|
|
|
1550 PRINT ""
|
|
|
1551 PRINT ""
|
|
|
1552 COLOR 3
|
|
|
1553 PRINT "”ffnen"
|
|
|
1554 PRINT ""
|
|
|
1555 PRINT "benutzen"
|
|
|
1556 PRINT ""
|
|
|
1557 PRINT "untersuchen"
|
|
|
1558 PRINT ""
|
|
|
1559 PRINT "sprechen mit"
|
|
|
1560 PRINT ""
|
|
|
1561 PRINT "gehen (in)"
|
|
|
1562 PRINT
|
|
|
1563 PRINT "nehmen"
|
|
|
1564 RETURN
|
|
|
1565
|
|
|
1566 n:
|
|
|
1567 CLS
|
|
|
1568 LOCATE 12, 5
|
|
|
1569 COLOR 11
|
|
|
1570 PRINT "Neuer Name fr Held", name$
|
|
|
1571 OPEN "c:midds1" FOR INPUT AS #1
|
|
|
1572 INPUT #1, name$
|
|
|
1573 CLOSE
|
|
|
1574 RETURN
|
|
|
1575
|
|
|
1576 speichern:
|
|
|
1577 RETURN
|
|
|
1578
|
|
|
1579 SUB M
|
|
|
1580 PRINT
|
|
|
1581 PRINT
|
|
|
1582 COLOR 5
|
|
|
1583 PRINT "Hausschlssel"
|
|
|
1584 PRINT "200 Schilling"
|
|
|
1585 IF tlampe% = 1 THEN PRINT "Taschenlampe"
|
|
|
1586 IF schluessel% = 1 THEN PRINT "Schlssel"
|
|
|
1587 IF messer% = 1 THEN PRINT "Messer"
|
|
|
1588 IF kerzenst% = 1 THEN PRINT "Kerzenst„nder"
|
|
|
1589 IF seil% = 1 THEN PRINT "Seil"
|
|
|
1590
|
|
|
1591
|
|
|
1592
|
|
|
1593 END SUB
|
|
|
1594
|
