|
1
|
1 '============================================================================'
|
|
|
2 ' '
|
|
|
3 ' '
|
|
|
4 ' M M '
|
|
|
5 ' MM MM I D D '
|
|
|
6 ' M M M M I D D '
|
|
|
7 ' M M M M D D '
|
|
|
8 ' M M M M D D '
|
|
|
9 ' M M M M I DDDDD D DDDDD D SSSSS '
|
|
|
10 ' M M M M I D DD D DD S S '
|
|
|
11 ' M M M I D D D D S '
|
|
|
12 ' M M I D D D D S '
|
|
|
13 ' M M I D D D D SSSS '
|
|
|
14 ' M M I D D D D S '
|
|
|
15 ' M M I D D D D S '
|
|
|
16 ' M M I D DD D DD S S '
|
|
|
17 ' M M I DDDDD D DDDDD D SSSSS '
|
|
|
18 ' '
|
|
|
19 ' '
|
|
|
20 '============================================================================'
|
|
|
21
|
|
|
22
|
|
|
23
|
|
|
24 'Midds'
|
|
|
25
|
|
|
26
|
|
2
|
27 cls
|
|
1
|
28 LOCATE 13, 6
|
|
|
29 COLOR 15
|
|
|
30 PRINT "*** Mord in der Dorfstrasse ***"
|
|
2
|
31 COLOR 7
|
|
1
|
32 'LINE (20, 60)-(300, 140), 2, B
|
|
|
33 LOCATE 24, 2
|
|
|
34 PRINT "(c) Copyright 1999 Elefant Software"
|
|
|
35 do
|
|
|
36 loop until inkey <> ""
|
|
|
37
|
|
|
38
|
|
|
39 name1$ = "John Howell"
|
|
|
40
|
|
|
41
|
|
|
42
|
|
2
|
43 cls
|
|
1
|
44 COLOR 6
|
|
|
45 PRINT "Dies ist ein Kriminalspiel,"
|
|
|
46 PRINT "das die grauen Zellen fordert."
|
|
2
|
47 print
|
|
1
|
48 PRINT
|
|
|
49 PRINT "Druecke 'q' um das Spiel zu beenden."
|
|
|
50 PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
|
|
|
51 PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
|
|
2
|
52 COLOR 7
|
|
1
|
53 do
|
|
|
54 loop until inkey <> ""
|
|
|
55
|
|
|
56
|
|
|
57 X:
|
|
2
|
58 cls
|
|
1
|
59 PRINT ""
|
|
|
60 LOCATE 13, 6
|
|
|
61 COLOR 6
|
|
|
62 PRINT "So jetzt geht's endlich los!!!"
|
|
2
|
63 COLOR 7
|
|
1
|
64 do
|
|
|
65 loop until inkey <> ""
|
|
|
66
|
|
|
67
|
|
|
68
|
|
|
69
|
|
|
70
|
|
2
|
71 ort_vordemhaus :
|
|
1
|
72 '''''''''' Vor dem Haus '''''''''
|
|
2
|
73 cls
|
|
1
|
74 COLOR 2
|
|
2
|
75 PRINT "Du heisst "; name1$; " und bist"
|
|
|
76 PRINT "Privatdetektiv. Du wurdest von "
|
|
|
77 PRINT "Herr Fisch angerufen um einen Mord"
|
|
|
78 PRINT "aufzuklaeren."
|
|
|
79 PRINT "Natuerlich bist du sofort in deinen"
|
|
|
80 PRINT "Renault 19 gestiegen und losgefahren."
|
|
|
81 PRINT "Jetzt stehst du vor Haus Nummer 6"
|
|
|
82 PRINT "in der Dorfstrasse."
|
|
|
83 PRINT
|
|
1
|
84 COLOR 7
|
|
2
|
85
|
|
|
86 zuege = 0
|
|
1
|
87 do
|
|
2
|
88
|
|
|
89 INPUT "(Vor dem Haus) Was machst du? ", B$
|
|
|
90 B$ = lcase(B$)
|
|
1
|
91
|
|
2
|
92 select case B$
|
|
|
93 case "benutzen klingel"
|
|
|
94 COLOR 2
|
|
|
95 PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
|
|
|
96 PRINT
|
|
|
97 COLOR 7
|
|
|
98 goto ort_flur
|
|
|
99 case "oeffnen tuer"
|
|
|
100 PRINT " Haustueren kann man von aussen ohne Schluessel nicht oeffnen."
|
|
|
101 case "gehen in haus"
|
|
|
102 PRINT " Die Tuer ist zu."
|
|
|
103 case "gehen heim"
|
|
|
104 PRINT " Du Angsthase"
|
|
|
105 case "q"
|
|
|
106 END
|
|
|
107 case "i"
|
|
|
108 GOSUB inventar
|
|
|
109 case "b"
|
|
|
110 GOSUB befehle
|
|
|
111 case else
|
|
|
112 PRINT " Noe!"
|
|
|
113 end select
|
|
1
|
114
|
|
2
|
115 zuege% = zuege% + 1
|
|
|
116 IF zuege% = 5 THEN PRINT " Tipp: benutzen ..."
|
|
|
117 IF zuege% > 8 THEN PRINT " Loesung: benutzen Klingel"
|
|
|
118
|
|
|
119 loop until inkey <> ""
|
|
|
120
|
|
1
|
121
|
|
|
122
|
|
|
123
|
|
|
124
|
|
|
125
|
|
|
126
|
|
|
127
|
|
2
|
128 ort_flur :
|
|
|
129 '''''''' Flur '''''''
|
|
|
130
|
|
|
131 COLOR 7
|
|
|
132
|
|
|
133 zuege% = 0
|
|
1
|
134 do
|
|
2
|
135 INPUT "(Flur) Was machst du? ", B$
|
|
|
136 B$ = lcase(B$)
|
|
|
137 select case B$
|
|
|
138 case "sprechen mit herr fisch"
|
|
|
139 goto gespraech_herrfisch
|
|
3
|
140
|
|
2
|
141 case "gehen heim"
|
|
|
142 PRINT " Du Angsthase!"
|
|
3
|
143
|
|
2
|
144 case "umschauen", "untersuchen flur"
|
|
3
|
145 IF tinaangerufen = 1 and tinaistda = 0 then
|
|
|
146 COLOR 2
|
|
|
147 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
|
|
|
148 PRINT "gerade aus geht's ins Esszimmer und rechts ins"
|
|
|
149 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
|
|
|
150 print
|
|
|
151 PRINT "... gerade klingelt es an der Tuer. Herr Fisch"
|
|
|
152 PRINT "macht auf und Tina kommt herein."
|
|
|
153 tinaistda = 1
|
|
|
154 else
|
|
|
155 COLOR 2
|
|
|
156 PRINT "Links geht es die Treppe zum Schlafzimmer"
|
|
|
157 PRINT "hinauf, gerade aus geht's ins Esszimmer und"
|
|
|
158 PRINT "rechts ins Arbeitszimmer. Im Flur steht"
|
|
|
159 PRINT "Herr Fisch und beantwortet gern deine Fragen."
|
|
|
160 end if
|
|
|
161
|
|
2
|
162 case "gehen in schlafzimmer"
|
|
|
163 goto ort_schlafzimmer
|
|
3
|
164
|
|
2
|
165 case "gehen in arbeitszimmer"
|
|
|
166 GOTO ort_arbeitszimmer
|
|
3
|
167
|
|
2
|
168 case "gehen in esszimmer"
|
|
|
169 GOTO ort_esszimmer
|
|
3
|
170
|
|
2
|
171 case "gehen in kueche"
|
|
|
172 GOTO ort_kueche
|
|
3
|
173
|
|
2
|
174 case "gehen in lagerhalle"
|
|
|
175 if kx% = 1 AND sx% = 1 GOTO 132
|
|
3
|
176
|
|
2
|
177 case "sprechen mit Tina"
|
|
|
178 if tinaistda = 1 then GOTO 118
|
|
3
|
179
|
|
2
|
180 case "q"
|
|
|
181 END
|
|
3
|
182
|
|
2
|
183 case "i"
|
|
|
184 GOSUB inventar
|
|
3
|
185
|
|
2
|
186 case "b"
|
|
|
187 GOSUB befehle
|
|
3
|
188
|
|
2
|
189 case else
|
|
|
190 PRINT " Keine Lust!"
|
|
|
191 PRINT
|
|
3
|
192
|
|
2
|
193 end select
|
|
|
194
|
|
|
195 zuege% = zuege% + 1
|
|
|
196 IF zuege% = 6 THEN PRINT " Tipp: sprechen mit ..."
|
|
1
|
197 loop until inkey <> ""
|
|
|
198
|
|
|
199
|
|
|
200
|
|
|
201
|
|
|
202
|
|
|
203
|
|
2
|
204 gespraech_herrfisch :
|
|
|
205 ''''''''' gespraech mit herr fisch ''''''''''
|
|
|
206
|
|
|
207 color 2
|
|
|
208 print "Du beginnst ein Gespraech mit Herr Fisch."
|
|
|
209 print
|
|
|
210
|
|
1
|
211 do
|
|
2
|
212 COLOR 7
|
|
|
213 PRINT "A: Hallo, ich heisse "; name1$; "."
|
|
|
214 PRINT "B: Wo ist die Leiche?"
|
|
|
215 PRINT "C: Wie heisst der Tote?"
|
|
|
216 if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
|
|
|
217 PRINT "Z: Bis spaeter."
|
|
|
218 COLOR 1
|
|
|
219 INPUT "Was sagst du zu Herr Fisch? ", s$
|
|
|
220 s$ = lcase(s$)
|
|
|
221 COLOR 7
|
|
|
222 print "Er antwortet:"
|
|
|
223 COLOR 4
|
|
|
224 select case s$
|
|
|
225 case "a"
|
|
|
226 PRINT " Ich heisse Manfred Fisch."
|
|
|
227 case "b"
|
|
|
228 PRINT " Im Schlafzimmer."
|
|
|
229 woIstDasSchlafzimmer = 1
|
|
|
230 case "c"
|
|
|
231 PRINT " Karl Mueller."
|
|
|
232 case "d"
|
|
|
233 if woIstDasSchlafzimmer = 1 THEN PRINT " Die Treppe hinauf dann links."
|
|
|
234 case "z"
|
|
|
235 PRINT " Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an."
|
|
|
236 print
|
|
|
237 color 2
|
|
|
238 print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten"
|
|
|
239 print
|
|
|
240 goto ort_flur
|
|
|
241 case "q"
|
|
|
242 end
|
|
|
243 end select
|
|
|
244 print
|
|
1
|
245 loop until inkey <> ""
|
|
|
246
|
|
|
247
|
|
|
248
|
|
|
249
|
|
|
250
|
|
|
251
|
|
|
252
|
|
|
253
|
|
|
254
|
|
|
255
|
|
|
256
|
|
|
257
|
|
|
258
|
|
2
|
259 ort_schlafzimmer :
|
|
|
260 ''''''' Schlafzimmer '''''''''
|
|
|
261
|
|
|
262 if tinaangerufen = 0 then
|
|
|
263 COLOR 2
|
|
|
264 PRINT "Die Leiche, ein etwa 20 Jahre alter"
|
|
|
265 PRINT "Mann, liegt mit einem Messer im Ruecken"
|
|
|
266 PRINT "auf dem Bett. Ich decke die Leiche"
|
|
|
267 PRINT "als erstes mit einem Tuch ab und rufe"
|
|
|
268 PRINT "mit meinem Handy Tina an. Tina ist"
|
|
|
269 PRINT "Spezialistin fuer Fingerabdruecke."
|
|
|
270 tinaangerufen = 1
|
|
|
271 else
|
|
|
272 color 2
|
|
|
273 print "Du bist im Schlafzimmer"
|
|
|
274 end if
|
|
|
275
|
|
1
|
276 do
|
|
2
|
277 PRINT
|
|
|
278 COLOR 7
|
|
|
279 INPUT "(Schlafzimmer) Was machst du? ", B$
|
|
|
280 B$ = lcase(B$)
|
|
|
281 select case B$
|
|
|
282 case "gehen in flur"
|
|
|
283 goto ort_flur
|
|
|
284
|
|
|
285 case "gehen in arbeitszimmer"
|
|
|
286 goto ort_arbeitszimmer
|
|
|
287
|
|
|
288 case "gehen in esszimmer"
|
|
|
289 goto ort_esszimmer
|
|
|
290
|
|
|
291 case "gehen in kueche"
|
|
|
292 goto ort_kueche
|
|
|
293
|
|
|
294 case "gehen in lagerhalle"
|
|
|
295 if kx% = 1 AND sx% = 1 goto 132
|
|
|
296
|
|
|
297 case "umschauen", "untersuchen schlafzimmer"
|
|
|
298 COLOR 2
|
|
|
299 PRINT "In der Mitte steht das Bett, ueber dem"
|
|
|
300 PRINT "Bett haengt ein Poster, auf der"
|
|
|
301 PRINT "linken Seite befindet sich ein Schrank"
|
|
|
302 PRINT "und an der rechten Wand ist ein Fenster."
|
|
|
303 IF tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke."
|
|
|
304
|
|
|
305 case "untersuchen schrank"
|
|
|
306 PRINT "Ein alter Aktenschrank."
|
|
|
307
|
|
|
308 case "oeffnen aktenschrank"
|
|
|
309 versuch% = 0
|
|
|
310 COLOR 2
|
|
|
311 PRINT "Hinter den Ordnern ist ein Geheimfach"
|
|
|
312 PRINT "mit einem dreistelligen Zahlenschloss."
|
|
|
313 geheimfachgefunden = 1
|
|
|
314
|
|
|
315 do
|
|
|
316 versuch% = versuch% + 1
|
|
|
317 COLOR 5
|
|
|
318 INPUT "Wie lautet die Kombination?", k$
|
|
|
319 IF k$ = "000" THEN PRINT "War wohl falsch."
|
|
|
320 IF k$ = "007" then
|
|
|
321 PRINT "Bravo, du hast echt gut kombiniert."
|
|
|
322 geheimfachoffen = 1
|
|
|
323 end if
|
|
|
324 IF k$ = "q" goto ort_schlafzimmer
|
|
|
325 PRINT "Komm streng dich ein bisschen an!"
|
|
|
326 IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
|
|
|
327 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
|
|
|
328 loop until inkey <> ""
|
|
|
329
|
|
|
330 case "untersuchen fenster"
|
|
|
331 PRINT "Wenn man hinaus schaut, sieht man die Strasse."
|
|
|
332
|
|
|
333 case "untersuchen bett"
|
|
|
334 COLOR 2
|
|
|
335 PRINT "Unter dem Bett liegt eine Taschenlampe."
|
|
|
336
|
|
|
337 case "nehmen taschenlampe"
|
|
|
338 PRINT "Du hast die Taschenlampe genommen"
|
|
|
339 tlampe% = 1
|
|
|
340
|
|
|
341 case "untersuchen geheimfach"
|
|
|
342 if geheimfachgefunden = 1 then
|
|
|
343 COLOR 2
|
|
|
344 PRINT "In dem Geheimfach befindet sich ein Schluessel."
|
|
|
345 end if
|
|
|
346
|
|
|
347 case "nehmen schluessel"
|
|
|
348 if geheimfachoffen = 1 then
|
|
|
349 PRINT "Du hast den Schluessel aus dem Geheimfach genommen"
|
|
|
350 schluessel% = 1
|
|
|
351 end if
|
|
|
352
|
|
|
353 case "untersuchen poster"
|
|
|
354 PRINT "Da steht - Sean Connery als James Bond"
|
|
|
355 PRINT "in SAG NIEMALS NIE - drauf."
|
|
|
356
|
|
|
357 case "sprechen mit tina"
|
|
|
358 if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."
|
|
|
359
|
|
|
360 case "q"
|
|
|
361 END
|
|
|
362 case "i"
|
|
|
363 GOSUB inventar
|
|
|
364 case "b"
|
|
|
365 GOSUB befehle
|
|
|
366 case else
|
|
|
367 PRINT "Nein"
|
|
|
368 end select
|
|
1
|
369 loop until inkey <> ""
|
|
2
|
370
|
|
|
371
|
|
|
372
|
|
|
373
|
|
|
374
|
|
|
375
|
|
|
376
|
|
|
377
|
|
|
378
|
|
|
379
|
|
|
380
|
|
|
381
|
|
|
382
|
|
|
383
|
|
|
384
|
|
|
385
|
|
|
386
|
|
|
387
|
|
1
|
388
|
|
|
389
|
|
|
390
|
|
|
391
|
|
|
392
|
|
|
393
|
|
2
|
394 ort_arbeitszimmer :
|
|
|
395 '''''''' Arbeitszimmer '''''''
|
|
1
|
396
|
|
|
397 COLOR 2
|
|
2
|
398 PRINT "Du bist im Arbeitszimmer."
|
|
|
399
|
|
1
|
400 do
|
|
2
|
401 COLOR 7
|
|
|
402 INPUT "(Arbeitszimmer) Was machst du? ", B$
|
|
|
403 B$ = lcase(B$)
|
|
|
404 select case B$
|
|
|
405 case "gehen in Schlafzimmer"
|
|
|
406 goto ort_schlafzimmer
|
|
1
|
407
|
|
2
|
408 case "gehen in Flur"
|
|
|
409 goto ort_flur
|
|
1
|
410
|
|
2
|
411 case "gehen in Esszimmer"
|
|
|
412 goto ort_esszimmer
|
|
1
|
413
|
|
2
|
414 case "gehen in Kueche"
|
|
|
415 goto ort_kueche
|
|
|
416
|
|
|
417 case "gehen in Lagerhalle"
|
|
|
418 if kx% = 1 AND sx% = 1 then goto 132
|
|
1
|
419
|
|
2
|
420 case "umschauen", "untersuchen Arbeitszimmer"
|
|
|
421 COLOR 2
|
|
|
422 PRINT "In der Mitte steht ein Schreibtisch,"
|
|
|
423 PRINT "rechts befindet sich ein Schrank und"
|
|
|
424 PRINT "links ein Buecherregal."
|
|
1
|
425
|
|
2
|
426 case "untersuchen Schreibtisch"
|
|
|
427 PRINT "Da gibt's nichts Besonderes zu sehen."
|
|
1
|
428
|
|
2
|
429 case "untersuchen Buecherregal"
|
|
|
430 COLOR 2
|
|
|
431 IF tinaistimschlafzimmer = 0 then
|
|
|
432 PRINT "Ich sehe nichts Besonderes."
|
|
|
433 else
|
|
|
434 PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
|
|
|
435 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
|
|
|
436 PRINT "ich mir genauer anschauen."
|
|
|
437 end if
|
|
1
|
438
|
|
2
|
439 case "untersuchen Buch"
|
|
|
440 PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
|
|
1
|
441
|
|
2
|
442 case "nehmen Buch"
|
|
|
443 COLOR 2
|
|
|
444 PRINT "Das Buch laesst sich nur halb heraus ziehen."
|
|
|
445 PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
|
|
|
446 PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
|
|
|
447 PRINT "Sie ist durch ein Schluessel- und ein "
|
|
|
448 PRINT "Zahlenschloss gesichert."
|
|
|
449 PRINT
|
|
|
450 COLOR 6
|
|
|
451 PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
|
|
|
452 PRINT "die Zahlenkombination eingeben."
|
|
|
453
|
|
|
454 case "benutzen Schluessel"
|
|
|
455 PRINT "Das Schluesselschloss waere geknackt."
|
|
|
456 sx% = 1
|
|
|
457 COLOR 2
|
|
|
458 IF kx% = 1 GOTO 137
|
|
|
459 PRINT "Jetzt musst du nur noch die Kombination knacken."
|
|
|
460
|
|
|
461 case "gehen in Geheimgang"
|
|
|
462 if kx% = 1 AND sx% = 1 then
|
|
3
|
463 COLOR 2
|
|
|
464 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
|
|
|
465 do
|
|
|
466 loop until inkey <> ""
|
|
|
467
|
|
|
468 IF tlampe% = 0 GOTO ort_arbeitszimmer
|
|
|
469
|
|
|
470 COLOR 10
|
|
|
471 PRINT "Geheimgang"
|
|
|
472 do
|
|
|
473 loop until inkey <> ""
|
|
|
474
|
|
|
475 COLOR 2
|
|
|
476 PRINT "Gut, dass ich eine Taschenlampe dabei habe."
|
|
|
477 PRINT "Oh, es geht steil bergab .... ich muss schon"
|
|
|
478 PRINT "mindestens 5 Meter unter der Erdoberflaeche"
|
|
|
479 PRINT "sein .... Jetzt bin ich schon 10 Minuten"
|
|
|
480 PRINT "unterwegs ..... da vorne kommt eine Tuer"
|
|
|
481 PRINT "genau so gesichert wie die hinter dem Regal"
|
|
|
482 PRINT "gut, dass ich den Schluessel habe und den"
|
|
|
483 PRINT "Code kenne ..... Wo bin ich denn jetzt?"
|
|
|
484 PRINT "Sieht aus, wie der Keller eines Hauses"
|
|
|
485 PRINT "ist aber ganz schoen zerfallen."
|
|
|
486 do
|
|
|
487 loop until inkey <> ""
|
|
|
488 GOTO ort_keller
|
|
2
|
489 end if
|
|
1
|
490
|
|
2
|
491 case "z"
|
|
|
492 do
|
|
|
493 COLOR 5
|
|
|
494 INPUT "Wie lautet die Kombination?", zk$
|
|
|
495 select case zk$
|
|
|
496 case "007"
|
|
|
497 PRINT "So einfach ist es nicht"
|
|
|
498 case "123"
|
|
|
499 COLOR 2
|
|
|
500 PRINT "Die Kombination war richtig."
|
|
|
501 kx% = 1
|
|
|
502 IF sx% = 1 GOTO 137
|
|
|
503 PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
|
|
|
504 case "q"
|
|
|
505 PRINT "Tipp: Das Buecherregal."
|
|
|
506 GOTO ort_arbeitszimmer
|
|
|
507 case else
|
|
|
508 PRINT "Leider falsch. Probier's noch einmal."
|
|
|
509 end select
|
|
|
510 loop until inkey <> ""
|
|
1
|
511
|
|
2
|
512 case "i"
|
|
|
513 GOSUB inventar
|
|
|
514 case "q"
|
|
|
515 END
|
|
|
516 case "b"
|
|
|
517 GOSUB befehle
|
|
|
518 case else
|
|
|
519 PRINT "Heute nicht!"
|
|
|
520 end select
|
|
1
|
521 loop until inkey <> ""
|
|
|
522
|
|
|
523
|
|
|
524
|
|
|
525
|
|
|
526
|
|
|
527
|
|
|
528
|
|
|
529
|
|
|
530
|
|
|
531
|
|
|
532
|
|
|
533
|
|
2
|
534 ort_esszimmer :
|
|
|
535 '''''' Esszimmer ''''''
|
|
|
536
|
|
|
537 COLOR 2
|
|
|
538 print "Du bist im Esszimmer."
|
|
1
|
539 do
|
|
|
540
|
|
2
|
541 COLOR 7
|
|
|
542 print
|
|
|
543 INPUT "(Esszimmer) Was machst du? ", B$
|
|
|
544 B$ = lcase(b$)
|
|
|
545 select case B$
|
|
|
546 case "gehen in schlafzimmer"
|
|
|
547 goto ort_schlafzimmer
|
|
1
|
548
|
|
2
|
549 case "gehen in flur"
|
|
|
550 GOTO ort_flur
|
|
1
|
551
|
|
2
|
552 case "gehen in arbeitszimmer"
|
|
|
553 GOTO ort_arbeitszimmer
|
|
1
|
554
|
|
2
|
555 case "gehen in kueche"
|
|
|
556 GOTO ort_kueche
|
|
1
|
557
|
|
2
|
558 case "gehen in lagerhalle"
|
|
|
559 if kx% = 1 AND sx% = 1 GOTO 132
|
|
|
560
|
|
|
561 case "umschauen", "untersuchen esszimmer"
|
|
|
562 color 2
|
|
|
563 PRINT "In der Mitte steht der Tisch und auf"
|
|
|
564 PRINT "der rechten Seite ist die Tuer zur Kueche."
|
|
|
565
|
|
|
566 case "untersuchen tisch"
|
|
|
567 color 2
|
|
|
568 PRINT "Ein schoener eichener Tisch mit einer"
|
|
|
569 PRINT "gehaekelten Tischdecke."
|
|
|
570 if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender."
|
|
|
571
|
|
|
572 case "nehmen kerzenstaender"
|
|
|
573 kerzenst% = 1
|
|
|
574 color 2
|
|
|
575 PRINT "Du hast den Kerzenstaender genommen"
|
|
|
576
|
|
|
577 case "q"
|
|
|
578 END
|
|
|
579 case "i"
|
|
|
580 GOSUB inventar
|
|
|
581 case "b"
|
|
|
582 GOSUB befehle
|
|
|
583 end select
|
|
1
|
584 loop until inkey <> ""
|
|
|
585
|
|
|
586
|
|
|
587
|
|
|
588
|
|
|
589
|
|
|
590
|
|
|
591
|
|
|
592
|
|
|
593
|
|
|
594
|
|
|
595
|
|
|
596
|
|
|
597
|
|
|
598
|
|
|
599
|
|
|
600
|
|
2
|
601 ort_kueche :
|
|
|
602 '''''''' Kueche '''''''
|
|
|
603
|
|
|
604 COLOR 2
|
|
|
605 PRINT "Du bist in der Kueche."
|
|
|
606
|
|
1
|
607 do
|
|
2
|
608 color 7
|
|
|
609 INPUT "(Kueche) Was machst du?", B$
|
|
|
610 B$ = lcase(B$)
|
|
|
611 select case B$
|
|
|
612 case "gehen in schlafzimmer"
|
|
|
613 goto ort_schlafzimmer
|
|
|
614
|
|
|
615 case "gehen in flur"
|
|
|
616 goto ort_flur
|
|
|
617
|
|
|
618 case "gehen in arbeitszimmer"
|
|
|
619 goto ort_arbeitszimmer
|
|
|
620
|
|
|
621 case "gehen in esszimmer"
|
|
|
622 goto ort_esszimmer
|
|
|
623
|
|
|
624 case "gehen in lagerhalle"
|
|
|
625 if kx% = 1 AND sx% = 1 then goto 132
|
|
|
626
|
|
|
627 case "umschauen", "untersuchen kueche"
|
|
|
628 PRINT "Links ist die Kochzeile, in der Mitte"
|
|
|
629 PRINT "ein kleiner Tisch mit zwei Stuehlen und"
|
|
|
630 PRINT "rechts der Kuechenschrank."
|
|
|
631
|
|
|
632 case "untersuchen kuechenschrank"
|
|
|
633 PRINT "Es ist nichts Ausergewoehnliches daran"
|
|
|
634 PRINT "zu erkennen, nur eine Schublade in der"
|
|
|
635 PRINT "es bestimmt Interesantes zu entdecken gibt."
|
|
|
636
|
|
|
637 case "oeffnen schublade"
|
|
|
638 PRINT "In der Schublade liegt sich ein Messer."
|
|
|
639
|
|
|
640 case "nehmen messer"
|
|
|
641 PRINT "Du hast das Messer genommen"
|
|
|
642 messer% = 1
|
|
|
643
|
|
|
644 case "q"
|
|
|
645 END
|
|
|
646
|
|
|
647 case "i"
|
|
|
648 GOSUB inventar
|
|
|
649
|
|
|
650 case "b"
|
|
|
651 GOSUB befehle
|
|
|
652
|
|
|
653 case else
|
|
|
654 print "Will ich nicht."
|
|
|
655
|
|
|
656 end select
|
|
1
|
657 loop until inkey <> ""
|
|
2
|
658
|
|
|
659
|
|
|
660
|
|
1
|
661
|
|
|
662
|
|
|
663
|
|
|
664
|
|
|
665
|
|
|
666
|
|
|
667
|
|
|
668
|
|
|
669 118 :
|
|
2
|
670
|
|
1
|
671 COLOR 9
|
|
|
672 PRINT "A: Schoen, dass du so schnell gekommen bist."
|
|
|
673 PRINT "B: Der Tote liegt im Schlafzimmer."
|
|
|
674 PRINT "C: Ende."
|
|
|
675 COLOR 12
|
|
|
676 INPUT "Was sagst du?", s$
|
|
|
677 PRINT
|
|
|
678 COLOR 9
|
|
|
679 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
|
|
3
|
680 IF s$ = "B" then
|
|
|
681 COLOR 9
|
|
|
682 PRINT "Okay, aber wo ist das Schlafzimmer?"
|
|
|
683 print
|
|
|
684
|
|
|
685 COLOR 12
|
|
|
686 PRINT "Welchen Weg beschreibst du ihr?"
|
|
|
687 PRINT
|
|
|
688 PRINT "a: Links die Treppe hinauf."
|
|
|
689 PRINT "b: Rechts die Treppe hinunter."
|
|
|
690 PRINT "c: Die Treppe hinauf, dann links."
|
|
|
691 PRINT
|
|
|
692 INPUT "a, b oder c?", w$
|
|
|
693 PRINT
|
|
|
694 COLOR 2
|
|
|
695 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
|
|
|
696 IF w$ = "c" THEN cheat1 = 1
|
|
|
697 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
|
|
|
698 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
|
|
|
699 tinaistimschlafzimmer = 1
|
|
|
700 do
|
|
|
701 loop until inkey <> ""
|
|
|
702 GOTO ort_flur
|
|
|
703 end if
|
|
2
|
704 IF s$ = "C" GOTO ort_flur
|
|
1
|
705 do
|
|
|
706 loop until inkey <> ""
|
|
|
707 GOTO 118
|
|
|
708
|
|
|
709
|
|
|
710
|
|
|
711
|
|
|
712
|
|
|
713
|
|
|
714
|
|
|
715
|
|
|
716
|
|
|
717
|
|
|
718
|
|
2
|
719 137 :
|
|
1
|
720
|
|
|
721 COLOR 2
|
|
2
|
722 PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
|
|
|
723 PRINT "sich ein Geheimgang."
|
|
|
724 geheimgangfrei = 1
|
|
|
725 GOTO ort_arbeitszimmer
|
|
1
|
726
|
|
|
727
|
|
|
728
|
|
|
729
|
|
|
730
|
|
|
731
|
|
|
732
|
|
|
733
|
|
|
734
|
|
|
735
|
|
|
736
|
|
|
737
|
|
|
738
|
|
|
739
|
|
|
740
|
|
|
741
|
|
|
742
|
|
|
743
|
|
3
|
744 ort_keller :
|
|
1
|
745 '''''''''' Keller '''''''''''''
|
|
2
|
746
|
|
|
747 COLOR 2
|
|
|
748 PRINT "Du bist im Keller."
|
|
|
749
|
|
1
|
750 do
|
|
2
|
751 COLOR 7
|
|
|
752 INPUT "(Keller) Was machst du? ", B$
|
|
|
753 B$ = lcase(B$)
|
|
|
754 select case B$
|
|
|
755 case "gehen in flur"
|
|
|
756 goto ort_flur
|
|
|
757
|
|
|
758 case "gehen in schlafzimmer"
|
|
|
759 goto ort_schlafzimmer
|
|
|
760
|
|
|
761 case "gehen in arbeitszimmer"
|
|
|
762 goto ort_arbeitszimmer
|
|
|
763
|
|
|
764 case "gehen in esszimmer"
|
|
|
765 goto ort_esszimmer
|
|
|
766
|
|
|
767 case "gehen in kueche"
|
|
|
768 goto ort_kueche
|
|
|
769
|
|
|
770 case "gehen in lagerhalle"
|
|
|
771 if kx% = 1 AND sx% = 1 then goto 132
|
|
|
772
|
|
|
773 case "umschauen", "untersuchen keller"
|
|
|
774 COLOR 2
|
|
|
775 PRINT "Ein zerfallener Keller, alles verstaubt."
|
|
|
776 PRINT "Gerade aus geht eine Treppe nach oben."
|
|
|
777
|
|
|
778 case "benutzen treppe"
|
|
|
779 goto 132
|
|
|
780
|
|
|
781 case "q"
|
|
|
782 END
|
|
|
783
|
|
|
784 case "i"
|
|
|
785 GOSUB inventar
|
|
|
786
|
|
|
787 case "b"
|
|
|
788 GOSUB befehle
|
|
|
789
|
|
|
790 case else
|
|
|
791 PRINT "Jetzt nicht."
|
|
|
792
|
|
|
793 end select
|
|
1
|
794 loop until inkey <> ""
|
|
|
795
|
|
|
796
|
|
|
797
|
|
|
798
|
|
|
799
|
|
|
800
|
|
|
801
|
|
|
802
|
|
|
803
|
|
|
804
|
|
|
805
|
|
|
806
|
|
|
807
|
|
|
808
|
|
|
809
|
|
|
810
|
|
|
811
|
|
|
812 132 :
|
|
|
813 '''''''' Lagerhalle '''''''''''
|
|
2
|
814
|
|
3
|
815 COLOR 2
|
|
|
816 PRINT "Du bist in der Lagerhalle."
|
|
|
817 print
|
|
|
818
|
|
|
819
|
|
1
|
820 do
|
|
3
|
821 COLOR 7
|
|
|
822 INPUT "(Lagerhalle) Was machst du? ", B$
|
|
|
823 B$ = lcase(B$)
|
|
|
824 select case B$
|
|
|
825 case "gehen in Schlafzimmer"
|
|
|
826 goto ort_schlafzimmer
|
|
2
|
827
|
|
3
|
828 case "gehen in Arbeitszimmer"
|
|
|
829 goto ort_arbeitszimmer
|
|
|
830
|
|
|
831 case "gehen in Esszimmer"
|
|
|
832 goto ort_esszimmer
|
|
|
833
|
|
|
834 case "gehen in Kueche"
|
|
|
835 goto ort_kueche
|
|
2
|
836
|
|
3
|
837 case "umschauen", "untersuchen Lagerhalle"
|
|
|
838 COLOR 2
|
|
|
839 PRINT "In der Lagerhalle ist alles genau so"
|
|
|
840 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
|
|
|
841 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
|
|
|
842 print
|
|
|
843
|
|
|
844 case "oeffnen Tuer"
|
|
|
845 goto 133
|
|
|
846
|
|
|
847 case "untersuchen Kartons"
|
|
|
848 GOSUB 134
|
|
|
849
|
|
|
850 case "benutzen Messer"
|
|
|
851 goto 136
|
|
|
852
|
|
|
853 case "q"
|
|
|
854 END
|
|
|
855
|
|
|
856 case "i"
|
|
|
857 GOSUB inventar
|
|
|
858
|
|
|
859 case "b"
|
|
|
860 GOSUB befehle
|
|
|
861
|
|
|
862 case else
|
|
|
863 PRINT "Nee!"
|
|
|
864
|
|
|
865 end select
|
|
1
|
866 loop until inkey <> ""
|
|
|
867
|
|
|
868
|
|
|
869
|
|
|
870
|
|
|
871
|
|
|
872 133 :
|
|
2
|
873
|
|
1
|
874 COLOR 2
|
|
|
875 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
|
|
|
876 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
|
|
|
877 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
|
|
|
878 PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
|
|
|
879 PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
|
|
|
880 PRINT "Jetzt ist schnelles Handeln wichtig!"
|
|
|
881 PRINT
|
|
3
|
882 v% = 0
|
|
1
|
883 do
|
|
3
|
884 COLOR 7
|
|
|
885 INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
|
|
|
886 v$ = lcase(v$)
|
|
|
887 select case v$
|
|
|
888 case "leerem karton", "leerer karton", "leere kartons"
|
|
|
889 COLOR 2
|
|
|
890 PRINT "Das ist eine gute Idee. Ich mache mich"
|
|
|
891 PRINT "sofort an die Arbeit. Raschel, raschel"
|
|
|
892 PRINT "... uff ... so ... geich ... jetzt ..."
|
|
|
893 PRINT "Okay ich hab's geschafft. Jetzt kann"
|
|
|
894 PRINT "ich nur nichts mehr sehen. Ich sollte"
|
|
|
895 PRINT "mir ein Loch zum Rausschauen in den"
|
|
|
896 PRINT "Karton reissen. So ... uff, der ist zu"
|
|
|
897 PRINT "stabil, da brauche ich ein Werkzeug dazu."
|
|
|
898 print
|
|
|
899 GOTO 132
|
|
|
900
|
|
|
901 case "kartons"
|
|
|
902 PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
|
|
|
903
|
|
|
904 case "geheimgang"
|
|
|
905 PRINT "Dafuer reicht die Zeit nicht."
|
|
|
906
|
|
|
907 case "keller"
|
|
|
908 PRINT "Dafuer reicht die Zeit nicht."
|
|
|
909
|
|
|
910 case "umschauen", "untersuchen lagerhalle"
|
|
|
911 COLOR 2
|
|
|
912 PRINT "In der Lagerhalle ist alles genau so"
|
|
|
913 PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
|
|
|
914 PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
|
|
|
915 print
|
|
|
916
|
|
|
917 case "untersuchen kartons"
|
|
|
918 GOSUB 134
|
|
|
919
|
|
|
920 case "q"
|
|
|
921 END
|
|
|
922
|
|
|
923 case else
|
|
|
924 PRINT "Da habe ich zu wenig Zeit dafuer."
|
|
|
925
|
|
|
926 end select
|
|
|
927
|
|
|
928 v% = v% + 1
|
|
|
929 IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
|
|
|
930 IF v% > 8 THEN PRINT "Tipp: l..... K....."
|
|
1
|
931 loop until inkey <> ""
|
|
|
932
|
|
|
933
|
|
|
934
|
|
|
935
|
|
|
936
|
|
|
937
|
|
|
938 134 :
|
|
2
|
939
|
|
1
|
940 COLOR 2
|
|
|
941 PRINT "Auf der linken Seite sind die vollen Kartons"
|
|
|
942 PRINT "gestapelt und rechts liegen die leeren auf"
|
|
|
943 PRINT "einem Haufen."
|
|
|
944 do
|
|
|
945 loop until inkey <> ""
|
|
|
946 RETURN
|
|
|
947
|
|
|
948
|
|
|
949
|
|
|
950
|
|
|
951
|
|
|
952
|
|
|
953
|
|
|
954
|
|
|
955
|
|
|
956
|
|
|
957
|
|
|
958
|
|
|
959 136 :
|
|
2
|
960
|
|
1
|
961 COLOR 2
|
|
|
962 IF messer% = 0 THEN
|
|
2
|
963 PRINT "Ich habe kein Messer."
|
|
|
964 PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
|
|
|
965 PRINT "halben Stunde geht der Typ wieder. Ich"
|
|
|
966 PRINT "begebe mich sofort zurueck ins Haus. So"
|
|
|
967 PRINT "schlecht vorbereited begebe ich mich nicht"
|
|
|
968 PRINT "wieder in Gefahr."
|
|
|
969 PRINT
|
|
|
970 do
|
|
|
971 loop until inkey <> ""
|
|
|
972 GOTO ort_arbeitszimmer
|
|
1
|
973 END IF
|
|
|
974
|
|
|
975 PRINT "Gute Idee, das mit dem Messer. Der Typ"
|
|
|
976 PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
|
|
|
977 PRINT "Er steigt aus und macht die Hecktueren auf."
|
|
|
978 PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"
|
|
|
979 PRINT "schliesst die Tueren, steigt wieder ein und"
|
|
|
980 PRINT "faehrt hinaus."
|
|
|
981 PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
|
|
|
982 PRINT "zurueck ins Haus."
|
|
|
983 do
|
|
|
984 loop until inkey <> ""
|
|
|
985
|
|
|
986
|
|
|
987 PRINT "Was machst du?"
|
|
|
988 PRINT ""
|
|
|
989 PRINT "a: nach Hause gehen"
|
|
|
990 PRINT "b: noch da bleiben"
|
|
|
991 PRINT "c: nochmal in die Lagerhalle gehen"
|
|
|
992 PRINT ""
|
|
|
993 INPUT "Und wie entscheidest du dich?", entscheidung$
|
|
|
994 PRINT
|
|
|
995 IF entscheidung$ = "a" GOTO 140
|
|
2
|
996 IF entscheidung$ = "b" GOTO ort_arbeitszimmer
|
|
1
|
997 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
|
|
|
998
|
|
|
999
|
|
|
1000
|
|
|
1001
|
|
|
1002
|
|
|
1003
|
|
|
1004
|
|
|
1005 140 :
|
|
|
1006 ''''''' Zuhause '''''''
|
|
2
|
1007
|
|
|
1008 COLOR 2
|
|
|
1009 PRINT "Home sweet home - endlich wieder Zuhause!"
|
|
1
|
1010 do
|
|
|
1011 loop until inkey <> ""
|
|
|
1012 a140:
|
|
2
|
1013
|
|
1
|
1014 PRINT "Du willst dir gerade einen Tee machen, als"
|
|
|
1015 PRINT "Du einen Schlag an der Tuer hoerst und das"
|
|
|
1016 PRINT "Licht aus geht."
|
|
|
1017 PRINT ""
|
|
|
1018 PRINT "Was machst du?"
|
|
|
1019 PRINT "a: die Tuer oeffnen"
|
|
|
1020 PRINT "b: die Polizei anrufen"
|
|
|
1021 PRINT "c: dich unter dem Bett verstecken"
|
|
|
1022 PRINT ""
|
|
|
1023 INPUT "Und?", w$
|
|
|
1024 PRINT
|
|
|
1025 IF w$ = "a" GOTO 141
|
|
|
1026 IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."
|
|
|
1027 IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
|
|
|
1028 GOTO a140
|
|
|
1029
|
|
|
1030
|
|
|
1031
|
|
|
1032
|
|
|
1033
|
|
|
1034
|
|
|
1035
|
|
|
1036 141 :
|
|
2
|
1037
|
|
1
|
1038 COLOR 2
|
|
|
1039 PRINT
|
|
|
1040 PRINT
|
|
|
1041 PRINT "Du siehst gerade noch ein Auto"
|
|
|
1042 PRINT "wegfahren. "
|
|
|
1043 do
|
|
|
1044 loop until inkey <> ""
|
|
2
|
1045 cls
|
|
1
|
1046 LOCATE 17, 17
|
|
|
1047 COLOR 15
|
|
|
1048 PRINT "KA GR 48"
|
|
2
|
1049 SLEEP 500
|
|
1
|
1050 GOTO 142
|
|
|
1051 142 :
|
|
2
|
1052 cls
|
|
1
|
1053 COLOR 2
|
|
|
1054 PRINT "In deiner Tuer steckt ein Messer mit"
|
|
|
1055 PRINT "einer Botschaft. Du liest sie natuerlich"
|
|
|
1056 PRINT "sofort."
|
|
|
1057 do
|
|
|
1058 loop until inkey <> ""
|
|
2
|
1059
|
|
1
|
1060 COLOR 11
|
|
|
1061 PRINT "Wenn du dich einmischst"
|
|
|
1062 PRINT "dann bist du T O T !!!"
|
|
|
1063 do
|
|
|
1064 loop until inkey <> ""
|
|
2
|
1065
|
|
1
|
1066 COLOR 2
|
|
|
1067 PRINT ""
|
|
|
1068 PRINT ""
|
|
|
1069 PRINT "Diese Botschaft war ernst gemeint."
|
|
|
1070 PRINT "Aber als Privatdetektiv musst du dich"
|
|
|
1071 PRINT "halt ueber solche Morddrohungen hinweg-"
|
|
|
1072 PRINT "setzen. Deshalb rufst du sofort die"
|
|
|
1073 PRINT "Polizei an."
|
|
|
1074 do
|
|
|
1075 loop until inkey <> ""
|
|
2
|
1076
|
|
|
1077
|
|
|
1078
|
|
1
|
1079 do
|
|
3
|
1080 COLOR 9
|
|
|
1081 PRINT ""
|
|
|
1082 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
|
|
|
1083 PRINT "Laenger. Was kann ich fuer Sie tun?"
|
|
|
1084 PRINT
|
|
|
1085 PRINT
|
|
|
1086 COLOR 12
|
|
|
1087 PRINT "a: Ich moechte Anzeige gegen einen Mann"
|
|
|
1088 PRINT " in einem gruenen Auto erstatten."
|
|
|
1089 PRINT
|
|
|
1090 PRINT "b: Ich moechte eine Pizza essen."
|
|
|
1091 PRINT
|
|
|
1092 PRINT "c: Ich moechte, dass Sie einen Mann"
|
|
|
1093 PRINT " in einem gruenen Auto verhaften."
|
|
|
1094 COLOR 12
|
|
|
1095 INPUT "Was antwortest du? (a,b,c)", a$
|
|
|
1096 IF a$ = "a" THEN GOTO 144
|
|
|
1097 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
|
|
|
1098 IF a$ = "c" THEN GOTO 144
|
|
|
1099 IF a$ = "q" THEN END
|
|
1
|
1100 loop until inkey <> ""
|
|
|
1101
|
|
|
1102
|
|
|
1103
|
|
|
1104
|
|
|
1105
|
|
|
1106
|
|
|
1107
|
|
|
1108 144 :
|
|
2
|
1109
|
|
1
|
1110 do
|
|
3
|
1111 COLOR 9
|
|
|
1112 PRINT ""
|
|
|
1113 PRINT "Wie heisst der Mann denn?"
|
|
|
1114 PRINT
|
|
|
1115 COLOR 12
|
|
|
1116 PRINT "a: Karl von Burlafingen."
|
|
|
1117 PRINT "b: Regideur Eklansch."
|
|
|
1118 PRINT "c: Ich kenne seinen Namen nicht."
|
|
|
1119 PRINT ""
|
|
|
1120 INPUT "Wie heisst er? (a,b,c)", w$
|
|
|
1121 PRINT ""
|
|
|
1122 IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
|
|
|
1123 IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
|
|
|
1124 IF w$ = "c" GOTO 145
|
|
1
|
1125 loop until inkey <> ""
|
|
|
1126
|
|
|
1127
|
|
|
1128
|
|
|
1129
|
|
|
1130
|
|
|
1131
|
|
|
1132 145 :
|
|
2
|
1133
|
|
1
|
1134 do
|
|
3
|
1135 PRINT
|
|
|
1136 COLOR 9
|
|
|
1137 PRINT "Was fuer eine Autonummer hatte er denn?"
|
|
|
1138 PRINT
|
|
|
1139 PRINT
|
|
|
1140 COLOR 12
|
|
|
1141 PRINT "a: KS ET 26"
|
|
|
1142 PRINT
|
|
|
1143 PRINT "b: HS AB 37"
|
|
|
1144 PRINT
|
|
|
1145 PRINT "c: KA GR 48"
|
|
|
1146 PRINT
|
|
|
1147 PRINT
|
|
|
1148 COLOR 12
|
|
|
1149 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
|
|
|
1150 PRINT
|
|
|
1151 IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
|
|
|
1152 IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
|
|
|
1153 IF a$ = "c" GOTO 146
|
|
1
|
1154 loop until inkey <> ""
|
|
|
1155
|
|
|
1156
|
|
|
1157
|
|
|
1158
|
|
|
1159
|
|
|
1160
|
|
|
1161 146 :
|
|
2
|
1162
|
|
1
|
1163 COLOR 2
|
|
|
1164 PRINT ""
|
|
|
1165 PRINT "Der Polizist gab den guten Tip sofort"
|
|
|
1166 PRINT "an seine Kollegen weiter. Er dankte"
|
|
|
1167 PRINT "dir fuer die heisse Spur und du"
|
|
|
1168 PRINT "verabschiedeste dich und giengst nach"
|
|
|
1169 PRINT "Hause."
|
|
|
1170 do
|
|
|
1171 loop until inkey <> ""
|
|
2
|
1172
|
|
1
|
1173 PRINT ""
|
|
|
1174 PRINT "Zwei Tage spaeter kam ein Brief vom"
|
|
|
1175 PRINT "Polizeirevier:"
|
|
|
1176 do
|
|
|
1177 loop until inkey <> ""
|
|
2
|
1178
|
|
1
|
1179 COLOR 15
|
|
|
1180 PRINT "Sehrgeehrter Herr "; name1$; ""
|
|
|
1181 PRINT "dank Ihnen konnten wie eine ganze"
|
|
|
1182 PRINT "Bande Waffenschieber dingfest machen."
|
|
|
1183 PRINT ""
|
|
|
1184 PRINT ""
|
|
|
1185 PRINT ""
|
|
|
1186 PRINT "Ausfuehrlicher Bericht auf der naechsten"
|
|
|
1187 PRINT "Seite."
|
|
|
1188 do
|
|
|
1189 loop until inkey <> ""
|
|
2
|
1190
|
|
1
|
1191 PRINT ""
|
|
|
1192 PRINT "Am Montag konnten wir den gruenen Audi"
|
|
|
1193 PRINT "von Schaefer (so heisst der Bersitzer)"
|
|
|
1194 PRINT "in der Karlsruher Innenstadt ausfindig"
|
|
|
1195 PRINT "machen. Wir folgten ihm bis zu seinem"
|
|
|
1196 PRINT "Hause. Dort umstellten wir es"
|
|
|
1197 PRINT "und stuermten. Beim Verhoer gestand"
|
|
|
1198 PRINT "er alles (Auftraggeber und alle"
|
|
|
1199 PRINT "Mitglieder). Am naechsten Tag konnten"
|
|
|
1200 PRINT "wir den Rest der Bande verhaften."
|
|
|
1201 PRINT "Am naechsten Donnerstag wird Mayr, der"
|
|
|
1202 PRINT "Boss der Truppe, wegen Mord an Karl"
|
|
|
1203 PRINT ""
|
|
|
1204 do
|
|
|
1205 loop until inkey <> ""
|
|
2
|
1206
|
|
1
|
1207 PRINT ""
|
|
|
1208 PRINT "Mueller verurteilt. Auch die Anderen"
|
|
|
1209 PRINT "werden wegen Beihilfe zum Mord vor"
|
|
|
1210 PRINT "Gericht gestellt werden."
|
|
|
1211 PRINT ""
|
|
|
1212 PRINT "Ich muss nochmal meinen Dank an Sie"
|
|
|
1213 PRINT "Aussprechen. Denn nur durch Sie konnten"
|
|
|
1214 PRINT "wir diese gefaehrliche Bande stoppen"
|
|
|
1215 PRINT ""
|
|
|
1216 PRINT ""
|
|
|
1217 PRINT ""
|
|
|
1218 PRINT " Polizeichef Mattias Huber"
|
|
|
1219 do
|
|
|
1220 loop until inkey <> ""
|
|
2
|
1221
|
|
|
1222
|
|
|
1223
|
|
|
1224 cls
|
|
1
|
1225 LOCATE 13, 10
|
|
|
1226 COLOR 13
|
|
|
1227 PRINT "Du hast gewonnen!"
|
|
|
1228 do
|
|
|
1229 loop until inkey <> ""
|
|
|
1230
|
|
|
1231
|
|
|
1232
|
|
|
1233
|
|
|
1234
|
|
|
1235 END
|
|
|
1236
|
|
|
1237
|
|
|
1238
|
|
|
1239
|
|
|
1240
|
|
|
1241
|
|
|
1242
|
|
|
1243
|
|
|
1244
|
|
|
1245
|
|
|
1246
|
|
|
1247 inventar:
|
|
|
1248 COLOR 5
|
|
2
|
1249 PRINT "+-- Inventar -----------+"
|
|
|
1250 PRINT "| |"
|
|
|
1251 PRINT "| Autoschluessel |"
|
|
|
1252 PRINT "| 200 Schilling |"
|
|
|
1253 IF tlampe% = 1 THEN PRINT "| Taschenlampe |"
|
|
|
1254 IF schluessel% = 1 THEN PRINT "| Schluessel |"
|
|
|
1255 IF messer% = 1 THEN PRINT "| Messer |"
|
|
|
1256 IF kerzenst% = 1 THEN PRINT "| Kerzenstaender |"
|
|
|
1257 PRINT "| |"
|
|
|
1258 PRINT "+-----------------------+"
|
|
3
|
1259 color 7
|
|
1
|
1260 RETURN
|
|
|
1261
|
|
|
1262
|
|
|
1263
|
|
|
1264 befehle:
|
|
2
|
1265 COLOR 3
|
|
1
|
1266 PRINT "Moegliche Befehle:"
|
|
|
1267 PRINT ""
|
|
|
1268 PRINT "umschauen"
|
|
|
1269 PRINT "oeffnen <Objekt>"
|
|
|
1270 PRINT "benutzen <Objekt>"
|
|
|
1271 PRINT "untersuchen <Objekt>"
|
|
|
1272 PRINT "sprechen mit <Person>"
|
|
|
1273 PRINT "gehen (in) <Ort>"
|
|
|
1274 PRINT "nehmen <Objekt>"
|
|
3
|
1275 color 7
|
|
1
|
1276 RETURN
|
|
|
1277
|
