midds
view Midds_orig.bas @ 5:105a509f30d9
simplified lcase; better var names
| author | meillo@marmaro.de |
|---|---|
| date | Wed, 05 Sep 2007 00:15:35 +0200 |
| parents | |
| children |
line source
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
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"
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."
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
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
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
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
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
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
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
220 a:
221 COLOR 4
222 PRINT " Tipp: benutzen ..."
223 SLEEP
224 GOTO a1
226 B:
227 COLOR 4
228 PRINT " L”sung: benutzen Klingel"
229 SLEEP
230 CLS
231 GOTO 2
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
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
279 c:
280 COLOR 4
281 PRINT "Tipp: sprechen mit ..."
282 SLEEP
283 INPUT "", nzl
284 CLS
285 GOTO 3
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
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
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
375 d:
376 COLOR 4
377 PRINT "gehen in ..."
378 SLEEP
379 INPUT "", nzl
380 GOTO a6
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
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
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
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
465 100 :
466 CLS
467 COLOR 2
468 PRINT "Unter dem Bett liegt eine Taschenlampe."
469 SLEEP
470 INPUT "", nzl
471 GOTO 8
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
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
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
524 103 :
525 CLS
526 LOCATE 13, 10
527 COLOR 10
528 PRINT "Flur"
529 SLEEP
530 INPUT "", nzl
531 GOTO 104
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
801 119 :
802 CLS
803 COLOR 9
804 PRINT "Okay, aber wo ist das Schlafzimmer?"
805 SLEEP
806 INPUT "", nzl
807 GOTO 120
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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!"
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
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
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
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
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
1493 GOTO xxxxx
1502 END
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
1524 xxxxx:
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
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
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
1576 speichern:
1577 RETURN
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"
1593 END SUB