meillo@1: '============================================================================'
meillo@1: '                                                                            '
meillo@1: '                                                                            '
meillo@1: '  M             M                                                           '
meillo@1: '  MM           MM        I               D               D                  '
meillo@1: '  M M         M M        I               D               D                  '
meillo@1: '  M  M       M  M                        D               D                  '
meillo@1: '  M   M     M   M                        D               D                  '
meillo@1: '  M    M   M    M        I         DDDDD D         DDDDD D         SSSSS    '
meillo@1: '  M     M M     M        I        D     DD        D     DD        S     S   '
meillo@1: '  M      M      M        I       D       D       D       D       S          '
meillo@1: '  M             M        I       D       D       D       D        S         '
meillo@1: '  M             M        I       D       D       D       D         SSSS     '
meillo@1: '  M             M        I       D       D       D       D             S    '
meillo@1: '  M             M        I       D       D       D       D              S   '
meillo@1: '  M             M        I        D     DD        D     DD       S     S    '
meillo@1: '  M             M        I         DDDDD D         DDDDD D        SSSSS     '
meillo@1: '                                                                            '
meillo@1: '                                                                            '
meillo@1: '============================================================================'
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 'Midds'
meillo@1: 
meillo@1: 
meillo@1: CLS
meillo@1: LOCATE 13, 6
meillo@1: COLOR 15
meillo@1: PRINT "*** Mord in der Dorfstrasse ***"
meillo@1: 'LINE (20, 60)-(300, 140), 2, B
meillo@1: LOCATE 24, 2
meillo@1: COLOR 7
meillo@1: PRINT "(c) Copyright 1999 Elefant Software"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: name1$ = "John Howell"
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: CLS
meillo@1: COLOR 6
meillo@1: PRINT "Dies ist ein Kriminalspiel,"
meillo@1: PRINT "das die grauen Zellen fordert."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: CLS
meillo@1: GOSUB befehle
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: CLS
meillo@1: COLOR 6
meillo@1: PRINT
meillo@1: PRINT "Druecke 'q' um das Spiel zu beenden."
meillo@1: PRINT
meillo@1: PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
meillo@1: PRINT
meillo@1: PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: X:
meillo@1: CLS
meillo@1: PRINT ""
meillo@1: LOCATE 13, 6
meillo@1: COLOR 6
meillo@1: PRINT "So jetzt geht's endlich los!!!"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: GOTO 1
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 1 :
meillo@1: '''''''''' Vor dem Haus '''''''''
meillo@1: zuege = 0
meillo@1: a1:
meillo@1: CLS
meillo@1: PRINT ""
meillo@1: COLOR 2
meillo@1: PRINT "Du heisst "; name1$; " und bist"
meillo@1: PRINT "Privatdetektiv. Du wurdest von "
meillo@1: PRINT "Herr Fisch angerufen um einen Mord"
meillo@1: PRINT "aufzuklaeren."
meillo@1: PRINT "Natuerlich bist du sofort in deinen"
meillo@1: PRINT "Renault 19 gestiegen und losgefahren."
meillo@1: PRINT "Jetzt stehst du vor Haus Nummer 6"
meillo@1: PRINT "in der Dorfstrasse."
meillo@1: PRINT
meillo@1: COLOR 7
meillo@1: INPUT "(Vor dem Haus) Was machst du? ", B$
meillo@1: zuege% = zuege% + 1
meillo@1: IF B$ = "benutzen Klingel" GOTO 2
meillo@1: IF B$ = "oeffnen Tuer" THEN PRINT "Du kannst doch nicht einfach fremde  Haeuser betreten."
meillo@1: IF B$ = "oeffnen Tuer" THEN SLEEP
meillo@1: IF B$ = "oeffnen Tuer" GOTO a1
meillo@1: IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde  Haeuser betreten."
meillo@1: IF B$ = "gehen in Haus" THEN SLEEP
meillo@1: IF B$ = "gehen in Haus" GOTO a1
meillo@1: IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
meillo@1: IF B$ = "gehen Heim" GOTO a1
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: PRINT ""
meillo@1: PRINT "Noe!"
meillo@1: PRINT ""
meillo@1: IF zuege% = 5 THEN GOTO a
meillo@1: IF zuege% = 9 THEN GOTO B
meillo@1: IF zuege% = 9 THEN GOTO 2
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a1
meillo@1: 
meillo@1: a:
meillo@1: COLOR 4
meillo@1: PRINT "          Tipp: benutzen ..."
meillo@1: SLEEP
meillo@1: GOTO a1
meillo@1: 
meillo@1: B:
meillo@1: COLOR 4
meillo@1: PRINT "          Loesung: benutzen Klingel"
meillo@1: SLEEP
meillo@1: CLS
meillo@1: GOTO 2
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 2 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
meillo@1: PRINT ""
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Flur"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: zuege% = 0
meillo@1: GOTO 3
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 3 :
meillo@1: '''''''' Flur '''''''
meillo@1: CLS
meillo@1: IF kerzenst% = 1 GOTO 116
meillo@1: COLOR 2
meillo@1: PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
meillo@1: PRINT
meillo@1: COLOR 7
meillo@1: INPUT "(Flur) Was machst du? ", B$
meillo@1: zuege% = zuege% + 1
meillo@1: IF B$ = "sprechen mit Herr Fisch" GOTO 4
meillo@1: IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
meillo@1: IF B$ = "umschauen" GOTO 117
meillo@1: IF B$ = "untersuchen Flur" GOTO 117
meillo@1: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@1: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@1: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@1: IF B$ = "gehen in Kueche" GOTO 109
meillo@1: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: PRINT ""
meillo@1: PRINT "Keine Lust!"
meillo@1: PRINT ""
meillo@1: IF zuege% = 6 THEN GOTO c
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 3
meillo@1: 
meillo@1: c:
meillo@1: COLOR 4
meillo@1: PRINT "Tipp: sprechen mit ..."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: GOTO 3
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 4 :
meillo@1: CLS
meillo@1: COLOR 9
meillo@1: PRINT "A: Ich heisse "; name1$; "."
meillo@1: PRINT "B: Wo ist die Leiche?"
meillo@1: PRINT "C: Wie heisst der Tote?"
meillo@1: PRINT "D: Ende."
meillo@1: PRINT ""
meillo@1: COLOR 12
meillo@1: INPUT "Was sagst du?", s$
meillo@1: PRINT
meillo@1: COLOR 9
meillo@1: IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
meillo@1: IF s$ = "B" THEN PRINT "Im Schlafzimmer."
meillo@1: IF s$ = "B" THEN SLEEP
meillo@1: IF s$ = "B" GOTO 5
meillo@1: IF s$ = "C" THEN PRINT "Karl Mueller."
meillo@1: IF s$ = "D" THEN END
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 4
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 5 :
meillo@1: CLS
meillo@1: COLOR 9
meillo@1: PRINT
meillo@1: PRINT "A: Ich heisse "; name1$; ""
meillo@1: PRINT "B: Wo ist die Leiche?"
meillo@1: PRINT "C: Wie heisst der Tote?"
meillo@1: PRINT "D: Wo ist das Schlafzimmer?"
meillo@1: PRINT "E: Ende"
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: COLOR 12
meillo@1: INPUT "Was sagst du?", s$
meillo@1: PRINT
meillo@1: COLOR 9
meillo@1: IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
meillo@1: IF s$ = "B" THEN PRINT "Im Schlafzimmer."
meillo@1: IF s$ = "C" THEN PRINT "Karl Mueller."
meillo@1: IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
meillo@1: IF s$ = "E" THEN GOTO 6
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 5
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 6 :
meillo@1: ''''''' Flur ''''''''
meillo@1: CLS
meillo@1: zuege% = 0
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Flur"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a6:
meillo@1: CLS
meillo@1: COLOR 7
meillo@1: PRINT
meillo@1: IF kerzenst% = 1 GOTO 116
meillo@1: PRINT
meillo@1: INPUT "(Flur) Was machst du? ", B$
meillo@1: zuege% = zuege% + 1
meillo@1: IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@1: IF B$ = "gehen in Schlafzimmer" GOTO 7
meillo@1: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@1: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@1: IF B$ = "gehen in Kueche" GOTO 109
meillo@1: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@1: IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuss!"
meillo@1: IF B$ = "gehen Heim " GOTO a6
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: PRINT ""
meillo@1: PRINT "Nee!"
meillo@1: IF zuege = 5 GOTO d
meillo@1: GOTO a6
meillo@1: 
meillo@1: 
meillo@1: d:
meillo@1: COLOR 4
meillo@1: PRINT "gehen in ..."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a6
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 7 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Die Leiche, ein etwa 20 Jahre alter"
meillo@1: PRINT "Mann, liegt mit einem Messer im Ruecken"
meillo@1: PRINT "auf dem Bett. Ich decke die Leiche"
meillo@1: PRINT "als erstes mit einem Tuch ab und rufe"
meillo@1: PRINT "mit meinem Handy Tina an. Tina ist"
meillo@1: PRINT "Spezialistin fuer Fingerabdruecke."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 8
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 8 :
meillo@1: ''''''' Schlafzimmer '''''''''
meillo@1: CLS
meillo@1: PRINT
meillo@1: COLOR 7
meillo@1: INPUT "(Schlafzimmer) Was machst du? ", B$
meillo@1: IF B$ = "gehen in Flur" GOTO 103
meillo@1: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@1: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@1: IF B$ = "gehen in Kueche" GOTO 109
meillo@1: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@1: IF B$ = "umschauen" GOTO 9
meillo@1: IF B$ = "untersuchen Schlafzimmer" GOTO 9
meillo@1: IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
meillo@1: IF B$ = "oeffnen Aktenschrank" GOTO 101
meillo@1: IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
meillo@1: IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Strasse."
meillo@1: IF B$ = "untersuchen Bett" GOTO 100
meillo@1: IF B$ = "nehmen Taschenlampe" GOTO e
meillo@1: IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
meillo@1: IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
meillo@1: IF B$ = "sprechen mit Tina" THEN PRINT "Die stoere ich lieber nicht bei der Arbeit."
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: PRINT
meillo@1: PRINT "Nein"
meillo@1: PRINT
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 8
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: e:
meillo@1: CLS
meillo@1: LOCATE 11, 22
meillo@1: PRINT "Du hast die Taschenlampe genommen"
meillo@1: tlampe% = 1
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: GOTO 8
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 9 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "In der Mitte steht das Bett, ueber dem"
meillo@1: PRINT "Bett haengt ein Poster, auf der"
meillo@1: PRINT "linken Seite befindet sich ein Schrank"
meillo@1: PRINT "und an der rechten Wand ist ein Fenster."
meillo@1: IF vvx% = 1 THEN PRINT "Tina sichert gerade"
meillo@1: IF vvx% = 1 THEN PRINT "die Fingerabdruecke."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 8
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 100 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Unter dem Bett liegt eine Taschenlampe."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 8
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 101 :
meillo@1: CLS
meillo@1: versuch% = 0
meillo@1: COLOR 2
meillo@1: PRINT "Hinter den Ordnern ist ein Geheimfach"
meillo@1: PRINT "mit einem dreistelligen Zahlenschloss."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a101:
meillo@1: CLS
meillo@1: versuch% = versuch% + 1
meillo@1: COLOR 5
meillo@1: INPUT "Wie lautet die Kombination?", k$
meillo@1: IF k$ = "000" THEN PRINT "War wohl falsch."
meillo@1: IF k$ = "007" GOTO 102
meillo@1: IF k$ = "q" THEN END
meillo@1: PRINT "Komm streng dich ein bischen an!"
meillo@1: IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
meillo@1: IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a101
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 102 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Bravo, du hast echt gut kombiniert."
meillo@1: PRINT "In dem Geheimfach befindet sich ein Schluessel."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: F:
meillo@1: CLS
meillo@1: PRINT "Du hast den Schluessel genommen"
meillo@1: schluessel% = 1
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: GOTO 114
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 103 :
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Flur"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 104
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 104 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Links geht es die Treppe zum Schlafzimmer"
meillo@1: PRINT "hinauf, gerade aus geht's ins Esszimmer"
meillo@1: PRINT " und rechts ins Arbeitszimmer."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a6
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 105 :
meillo@1: '''''''' Arbeitszimmer '''''''
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Arbeitszimmer"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a105:
meillo@1: CLS
meillo@1: COLOR 7
meillo@1: INPUT "(Arbeitszimmer) Was machst du? ", B$
meillo@1: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@1: IF B$ = "gehen in Flur" GOTO 103
meillo@1: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@1: IF B$ = "gehen in Kueche" GOTO 109
meillo@1: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@1: IF B$ = "umschauen" GOTO 107
meillo@1: IF B$ = "untersuchen Arbeitszimmer" GOTO 107
meillo@1: IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
meillo@1: IF B$ = "untersuchen Buecherregal" GOTO 122
meillo@1: IF B$ = "untersuchen Buch" THEN PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
meillo@1: IF B$ = "nehmen Buch" GOTO 124
meillo@1: IF B$ = "benutzen Schluessel" THEN PRINT "Das Schluesselschloss waere geknackt."
meillo@1: IF B$ = "benutzen Schluessel" THEN sx% = 1
meillo@1: IF B$ = "benutzen Schluessel" GOTO 138
meillo@1: IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
meillo@1: IF B$ = "z" GOTO 125
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: PRINT "Heute nicht!"
meillo@1: GOTO a105
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 107 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "In der Mitte steht ein Schreibtisch,"
meillo@1: PRINT "rechts befindet sich ein Schrank und"
meillo@1: PRINT "links ein Buecherregal."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 105
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 106 :
meillo@1: '''''' Esszimmer ''''''
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Esszimmer"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a106:
meillo@1: CLS
meillo@1: COLOR 7
meillo@1: INPUT "(Esszimmer) Was machst du?", B$
meillo@1: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@1: IF B$ = "gehen in Flur" GOTO 103
meillo@1: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@1: IF B$ = "gehen in Kueche" GOTO 109
meillo@1: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@1: IF B$ = "umschauen" GOTO 108
meillo@1: IF B$ = "untersuchen Esszimmer" GOTO 108
meillo@1: IF B$ = "untersuchen Tisch" GOTO 110
meillo@1: IF B$ = "nehmen Kerzenstaender" GOTO 115
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a106
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 108 :
meillo@1: CLS
meillo@1: PRINT "In der Mitte steht der Tisch und auf"
meillo@1: PRINT "der rechten Seite ist die Tuer zur Kueche."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 106
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 110 :
meillo@1: CLS
meillo@1: PRINT "Ein schoener eichener Tisch mit einer"
meillo@1: PRINT "gehaekelten Tischdecke und einem"
meillo@1: PRINT "Kerzenstaender in der Mitte."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a106
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 109 :
meillo@1: '''''''' Kueche '''''''
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Kueche"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a109:
meillo@1: CLS
meillo@1: INPUT "(Kueche) Was machst du?", B$
meillo@1: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@1: IF B$ = "gehen in Flur" GOTO 103
meillo@1: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@1: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@1: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@1: IF B$ = "umschauen" GOTO 111
meillo@1: IF B$ = "untersuchen Kueche" GOTO 111
meillo@1: IF B$ = "untersuchen Kuechenschrank" GOTO 112
meillo@1: IF B$ = "oeffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
meillo@1: IF B$ = "nehmen Messer" GOTO 113
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a109
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 111 :
meillo@1: CLS
meillo@1: PRINT "Links ist die Kochzeile, in der Mitte"
meillo@1: PRINT "ein kleiner Tisch mit zwei Stuehlen und"
meillo@1: PRINT "rechts der Kuechenschrank."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a109
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 112 :
meillo@1: CLS
meillo@1: PRINT "Es ist nichts Ausergewoehnliches daran"
meillo@1: PRINT "zu erkennen, nur eine Schublade in der"
meillo@1: PRINT "es bestimmt Interesantes zu entdecken gibt."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a109
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 113 :
meillo@1: CLS
meillo@1: PRINT "Du hast das Messer genommen"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: messer% = 1
meillo@1: GOTO a109
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 114 :
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Schlafzimmer"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 8
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 115 :
meillo@1: CLS
meillo@1: PRINT "Du hast den Kerzenstaender genommen"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: kerzenst% = 1
meillo@1: GOTO a106
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 116 :
meillo@1: ''''''''' Flur '''''''
meillo@1: CLS
meillo@1: COLOR 7
meillo@1: INPUT "(Flur) Was machst du? ", B$
meillo@1: zuege% = zuege% + 1
meillo@1: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@1: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@1: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@1: IF B$ = "gehen in Kueche" GOTO 109
meillo@1: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@1: IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@1: IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
meillo@1: IF B$ = "umschauen" GOTO 117
meillo@1: IF B$ = "untersuchen Flur" GOTO 117
meillo@1: IF B$ = "sprechen mit Tina" GOTO 118
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: PRINT ""
meillo@1: PRINT "Keine Lust!"
meillo@1: PRINT ""
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 116
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 117 :
meillo@1: CLS
meillo@1: IF kerzenst% = 0 GOTO 121
meillo@1: PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
meillo@1: PRINT "gerade aus geht's ins Esszimmer und rechts ins"
meillo@1: PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
meillo@1: PRINT "gerade klingelt es an der Tuer. Herr Fisch macht"
meillo@1: PRINT "auf und Tina kommt herein."
meillo@1: vvv% = 1
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 116
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 118 :
meillo@1: CLS
meillo@1: COLOR 9
meillo@1: PRINT "A: Schoen, dass du so schnell gekommen bist."
meillo@1: PRINT "B: Der Tote liegt im Schlafzimmer."
meillo@1: PRINT "C: Ende."
meillo@1: LOCATE 8, 1
meillo@1: COLOR 12
meillo@1: INPUT "Was sagst du?", s$
meillo@1: PRINT
meillo@1: COLOR 9
meillo@1: IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
meillo@1: IF s$ = "B" GOTO 119
meillo@1: IF s$ = "C" GOTO 116
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 118
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 119 :
meillo@1: CLS
meillo@1: COLOR 9
meillo@1: PRINT "Okay, aber wo ist das Schlafzimmer?"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 120
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 120 :
meillo@1: CLS
meillo@1: COLOR 12
meillo@1: PRINT "Welchen Weg beschreibst du ihr?"
meillo@1: PRINT
meillo@1: PRINT "a: Links die Treppe hinauf."
meillo@1: PRINT "b: Rechts die Treppe hinunter."
meillo@1: PRINT "c: Die Treppe hinauf, dann links."
meillo@1: PRINT
meillo@1: INPUT "a, b oder c?", w$
meillo@1: PRINT
meillo@1: COLOR 2
meillo@1: IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
meillo@1: IF w$ = "c" THEN cheat1 = 1
meillo@1: IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
meillo@1: IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
meillo@1: vvx% = 1
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 116
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 121 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Links geht es die Treppe zum Schlafzimmer"
meillo@1: PRINT "hinauf, gerade aus geht's ins Esszimmer und"
meillo@1: PRINT "rechts ins Arbeitszimmer. Im Flur steht"
meillo@1: PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 116
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 122 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: IF vvx% = 1 GOTO 123
meillo@1: PRINT "Ich sehe nichts Besonderes."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 105
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 123 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
meillo@1: PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
meillo@1: PRINT "ich mir genauer anschauen."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 105
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 124 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Das Buch laesst sich nur halb heraus ziehen."
meillo@1: PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
meillo@1: PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
meillo@1: PRINT "Sie ist durch ein Schluessel- und ein "
meillo@1: PRINT "Zahlenschloss gesichert."
meillo@1: PRINT
meillo@1: COLOR 6
meillo@1: PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
meillo@1: PRINT "die Zahlenkombination eingeben."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 105
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 125 :
meillo@1: zkx% = 0
meillo@1: a125:
meillo@1: CLS
meillo@1: zkx% = zkx% + 1
meillo@1: COLOR 5
meillo@1: INPUT "Wie lautet die Kombination?", zk$
meillo@1: IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
meillo@1: IF zk$ = "123" GOTO 126
meillo@1: IF zk$ = "q" GOTO 105
meillo@1: PRINT "Leider falsch. Probier's noch einmal."
meillo@1: IF zkx% = 5 THEN PRINT "Tipp: Das Buecherregal."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a125
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 126 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Die Kombination war richtig."
meillo@1: kx% = 1
meillo@1: IF sx% = 1 GOTO 137
meillo@1: PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 105
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 137 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
meillo@1: PRINT "sich ein Geheimgang."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 105
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 138 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: IF kx% = 1 GOTO 137
meillo@1: PRINT "Jetzt musst du nur noch die Kombination knacken."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 105
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 127 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: IF tlampe% = 0 GOTO 105
meillo@1: 1000 :
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Geheimgang"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Gut, dass ich eine Taschenlampe dabei habe."
meillo@1: PRINT "Oh, es geht steil bergab .... ich muss schon"
meillo@1: PRINT "mindestens 5 Meter unter der Erdoberflaeche"
meillo@1: PRINT "sein .... Jetzt bin ich schon 10 Minuten"
meillo@1: PRINT "unterwegs ..... da vorne kommt eine Tuer"
meillo@1: PRINT "genau so gesichert wie die hinter dem Regal"
meillo@1: PRINT "gut, dass ich den Schluessel habe und den"
meillo@1: PRINT "Code kenne ..... Wo bin ich denn jetzt?"
meillo@1: PRINT "Sieht aus, wie der Keller eines Hauses"
meillo@1: PRINT "ist aber ganz schoen zerfallen."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 130
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 130 :
meillo@1: '''''''''' Keller '''''''''''''
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Keller"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a130:
meillo@1: CLS
meillo@1: COLOR 7
meillo@1: INPUT "(Keller) Was machst du? ", B$
meillo@1: zuege% = zuege% + 1
meillo@1: IF B$ = "gehen in Flur" GOTO 103
meillo@1: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@1: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@1: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@1: IF B$ = "gehen in Kueche" GOTO 109
meillo@1: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@1: IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@1: IF B$ = "umschauen" GOTO 128
meillo@1: IF B$ = "untersuchen Keller" GOTO 128
meillo@1: IF B$ = "benutzen Treppe" GOTO 132
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: PRINT ""
meillo@1: PRINT "Jetzt nicht."
meillo@1: PRINT
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a130
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 128 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Ein zerfallener Keller, alles verstaubt."
meillo@1: PRINT "Gerade aus geht eine Treppe nach oben."
meillo@1: PRINT
meillo@1: PRINT ""
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 130
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 131 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "In der Lagerhalle ist alles genau so"
meillo@1: PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
meillo@1: PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: RETURN
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 132 :
meillo@1: '''''''' Lagerhalle '''''''''''
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Lagerhalle"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: a132:
meillo@1: CLS
meillo@1: COLOR 7
meillo@1: INPUT "(Lagerhalle) Was machst du? ", B$
meillo@1: zuege% = zuege% + 1
meillo@1: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@1: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@1: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@1: IF B$ = "gehen in Kueche" GOTO 109
meillo@1: IF B$ = "umschauen" THEN GOSUB 131
meillo@1: IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
meillo@1: IF B$ = "oeffnen Tuer" GOTO 133
meillo@1: IF B$ = "untersuchen Kartons" THEN GOSUB 134
meillo@1: IF B$ = "benutzen Messer" GOTO 136
meillo@1: IF B$ = "q" THEN END
meillo@1: IF B$ = "i" THEN GOSUB inventar
meillo@1: IF B$ = "b" THEN GOSUB befehle
meillo@1: PRINT ""
meillo@1: PRINT "Noe!"
meillo@1: PRINT
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a132
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 133 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
meillo@1: PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
meillo@1: PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
meillo@1: PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
meillo@1: PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
meillo@1: PRINT "Jetzt ist schnelles Handeln wichtig!"
meillo@1: PRINT
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a133:
meillo@1: COLOR 7
meillo@1: INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
meillo@1: v% = v% + 1
meillo@1: IF v$ = "leerem Karton" GOTO 135
meillo@1: IF v$ = "leerer Karton" GOTO 135
meillo@1: IF v$ = "leere Kartons" GOTO 135
meillo@1: IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
meillo@1: IF v$ = "Geheimgang" THEN PRINT "Dafuer reicht die Zeit nicht."
meillo@1: IF v$ = "Keller" THEN PRINT "Dafuer reicht die Zeit nicht."
meillo@1: IF v$ = "umschauen" THEN GOSUB 131
meillo@1: IF v$ = "untersuchen Lagerhalle" THEN GOSUB 131
meillo@1: IF v$ = "untersuchen Kartons" THEN GOSUB 134
meillo@1: IF v$ = "q" THEN END
meillo@1: IF v% = 9 THEN PRINT "Tipp: l..... K....."
meillo@1: IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
meillo@1: PRINT "Da habe ich zu wenig Zeit dafuer."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO a133
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 134 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Auf der linken Seite sind die vollen Kartons"
meillo@1: PRINT "gestapelt und rechts liegen die leeren auf"
meillo@1: PRINT "einem Haufen."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: RETURN
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 135 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "Das ist eine gute Idee. Ich mache mich"
meillo@1: PRINT "sofort an die Arbeit. Raschel, raschel"
meillo@1: PRINT "... uff ... so ... geich ... jetzt ..."
meillo@1: PRINT "Okay ich hab's geschafft. Jetzt kann"
meillo@1: PRINT "ich nur nichts mehr sehen. Ich sollte"
meillo@1: PRINT "mir ein Loch zum Rausschauen in den"
meillo@1: PRINT "Karton reissen. So ... uff, der ist zu"
meillo@1: PRINT "stabil, da brauche ich ein Werkzeug dazu."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 132
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 136 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: IF messer% = 0 THEN
meillo@1: PRINT "Ich habe kein Messer."
meillo@1: PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
meillo@1: PRINT "halben Stunde geht der Typ wieder. Ich"
meillo@1: PRINT "begebe mich sofort zurueck ins Haus. So"
meillo@1: PRINT "schlecht vorbereited begebe ich mich nicht"
meillo@1: PRINT "wieder in Gefahr."
meillo@1: PRINT
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 105
meillo@1: END IF
meillo@1: 
meillo@1: PRINT "Gute Idee, das mit dem Messer. Der Typ"
meillo@1: PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
meillo@1: PRINT "Er steigt aus und macht die Hecktueren auf."
meillo@1: PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"
meillo@1: PRINT "schliesst die Tueren, steigt wieder ein und"
meillo@1: PRINT "faehrt hinaus."
meillo@1: PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
meillo@1: PRINT "zurueck ins Haus."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 139
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 139 :
meillo@1: CLS
meillo@1: PRINT "Was machst du?"
meillo@1: PRINT ""
meillo@1: PRINT "a: nach Hause gehen"
meillo@1: PRINT "b: noch da bleiben"
meillo@1: PRINT "c: nochmal in die Lagerhalle gehen"
meillo@1: PRINT ""
meillo@1: INPUT "Und wie entscheidest du dich?", entscheidung$
meillo@1: PRINT
meillo@1: IF entscheidung$ = "a" GOTO 140
meillo@1: IF entscheidung$ = "b" GOTO 105
meillo@1: IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 140 :
meillo@1: ''''''' Zuhause '''''''
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 10
meillo@1: PRINT "Zuhause"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a140:
meillo@1: CLS
meillo@1: PRINT "Du willst dir gerade einen Tee machen, als"
meillo@1: PRINT "Du einen Schlag an der Tuer hoerst und das"
meillo@1: PRINT "Licht aus geht."
meillo@1: PRINT ""
meillo@1: PRINT "Was machst du?"
meillo@1: PRINT "a: die Tuer oeffnen"
meillo@1: PRINT "b: die Polizei anrufen"
meillo@1: PRINT "c: dich unter dem Bett verstecken"
meillo@1: PRINT ""
meillo@1: INPUT "Und?", w$
meillo@1: PRINT
meillo@1: IF w$ = "a" GOTO 141
meillo@1: IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."
meillo@1: IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
meillo@1: GOTO a140
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 141 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT
meillo@1: PRINT
meillo@1: PRINT "Du siehst gerade noch ein Auto"
meillo@1: PRINT "wegfahren. "
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: LOCATE 17, 17
meillo@1: COLOR 15
meillo@1: PRINT "KA GR 48"
meillo@1: SLEEP 1
meillo@1: GOTO 142
meillo@1: 142 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT "In deiner Tuer steckt ein Messer mit"
meillo@1: PRINT "einer Botschaft. Du liest sie natuerlich"
meillo@1: PRINT "sofort."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: COLOR 11
meillo@1: LOCATE 10, 10
meillo@1: PRINT "Wenn du dich einmischst"
meillo@1: LOCATE 15, 10
meillo@1: PRINT "dann bist du  T O T !!!"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT "Diese Botschaft war ernst gemeint."
meillo@1: PRINT "Aber als Privatdetektiv musst du dich"
meillo@1: PRINT "halt ueber solche Morddrohungen hinweg-"
meillo@1: PRINT "setzen. Deshalb rufst du sofort die"
meillo@1: PRINT "Polizei an."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 143
meillo@1: 143 :
meillo@1: CLS
meillo@1: COLOR 9
meillo@1: PRINT ""
meillo@1: PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
meillo@1: PRINT "Laenger. Was kann ich fuer Sie tun?"
meillo@1: PRINT
meillo@1: PRINT
meillo@1: COLOR 12
meillo@1: PRINT "a: Ich moechte Anzeige gegen einen Mann"
meillo@1: PRINT "   in einem gruenen Auto erstatten."
meillo@1: PRINT
meillo@1: PRINT "b: Ich moechte eine Pizza essen."
meillo@1: PRINT ""
meillo@1: PRINT "c: Ich moechte, dass Sie einen Mann"
meillo@1: PRINT ""
meillo@1: PRINT "   in einem gruenen Auto verhaften."
meillo@1: LOCATE 20, 1
meillo@1: COLOR 12
meillo@1: INPUT "Was antwortest du? (a,b,c)", a$
meillo@1: IF a$ = "a" THEN GOTO 144
meillo@1: IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
meillo@1: IF a$ = "c" THEN GOTO 144
meillo@1: IF a$ = "q" THEN END
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 143
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 144 :
meillo@1: CLS
meillo@1: COLOR 9
meillo@1: PRINT ""
meillo@1: PRINT "Wie heisst der Mann denn?"
meillo@1: PRINT
meillo@1: COLOR 12
meillo@1: PRINT "a: Karl von Burlafingen."
meillo@1: PRINT "b: Regideur Eklansch."
meillo@1: PRINT "c: Ich kenne seinen Namen nicht."
meillo@1: PRINT ""
meillo@1: INPUT "Wie heisst er? (a,b,c)", w$
meillo@1: PRINT ""
meillo@1: IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
meillo@1: IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
meillo@1: IF w$ = "c" GOTO 145
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 144
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 145 :
meillo@1: CLS
meillo@1: PRINT ""
meillo@1: COLOR 9
meillo@1: PRINT "Was fuer eine Autonummer hatte er denn?"
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: COLOR 12
meillo@1: PRINT "a: KS ET 26"
meillo@1: PRINT ""
meillo@1: PRINT "b: HS AB 37"
meillo@1: PRINT ""
meillo@1: PRINT "c: KA GR 48"
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: COLOR 12
meillo@1: INPUT "Welche Autonummer hatte er? (a,b,c)", a$
meillo@1: PRINT ""
meillo@1: IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
meillo@1: IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
meillo@1: IF a$ = "c" GOTO 146
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 145
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 146 :
meillo@1: CLS
meillo@1: COLOR 2
meillo@1: PRINT ""
meillo@1: PRINT "Der Polizist gab den guten Tip sofort"
meillo@1: PRINT "an seine Kollegen weiter. Er dankte"
meillo@1: PRINT "dir fuer die heisse Spur und du"
meillo@1: PRINT "verabschiedeste dich und giengst nach"
meillo@1: PRINT "Hause."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: PRINT ""
meillo@1: PRINT "Zwei Tage spaeter kam ein Brief vom"
meillo@1: PRINT "Polizeirevier:"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: LOCATE 4, 1
meillo@1: COLOR 15
meillo@1: PRINT "Sehrgeehrter Herr "; name1$; ""
meillo@1: PRINT "dank Ihnen konnten wie eine ganze"
meillo@1: PRINT "Bande Waffenschieber dingfest machen."
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT "Ausfuehrlicher Bericht auf der naechsten"
meillo@1: PRINT "Seite."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: PRINT ""
meillo@1: PRINT "Am Montag konnten wir den gruenen Audi"
meillo@1: PRINT "von Schaefer (so heisst der Bersitzer)"
meillo@1: PRINT "in der Karlsruher Innenstadt ausfindig"
meillo@1: PRINT "machen. Wir folgten ihm bis zu seinem"
meillo@1: PRINT "Hause. Dort umstellten wir es"
meillo@1: PRINT "und stuermten. Beim Verhoer gestand"
meillo@1: PRINT "er alles (Auftraggeber und alle"
meillo@1: PRINT "Mitglieder). Am naechsten Tag konnten"
meillo@1: PRINT "wir den Rest der Bande verhaften."
meillo@1: PRINT "Am naechsten Donnerstag wird Mayr, der"
meillo@1: PRINT "Boss der Truppe, wegen Mord an Karl"
meillo@1: PRINT ""
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: PRINT ""
meillo@1: PRINT "Mueller verurteilt. Auch die Anderen"
meillo@1: PRINT "werden wegen Beihilfe zum Mord vor"
meillo@1: PRINT "Gericht gestellt werden."
meillo@1: PRINT ""
meillo@1: PRINT "Ich muss nochmal meinen Dank an Sie"
meillo@1: PRINT "Aussprechen. Denn nur durch Sie konnten"
meillo@1: PRINT "wir diese gefaehrliche Bande stoppen"
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT "            Polizeichef Mattias Huber"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: CLS
meillo@1: LOCATE 13, 10
meillo@1: COLOR 13
meillo@1: PRINT "Du hast gewonnen!"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: COLOR 15
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: END
meillo@1:          
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: inventar:
meillo@1: CLS
meillo@1: PRINT
meillo@1: PRINT
meillo@1: COLOR 5
meillo@1: PRINT "Hausschluessel"
meillo@1: PRINT "200 Schilling"
meillo@1: IF tlampe% = 1 THEN PRINT "Taschenlampe"
meillo@1: IF schluessel% = 1 THEN PRINT "Schluessel"
meillo@1: IF messer% = 1 THEN PRINT "Messer"
meillo@1: IF kerzenst% = 1 THEN PRINT "Kerzenstaender"
meillo@1: RETURN
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: befehle:
meillo@1: PRINT ""
meillo@1: PRINT "Moegliche Befehle:"
meillo@1: PRINT ""
meillo@1: COLOR 3
meillo@1: PRINT "umschauen"
meillo@1: PRINT "oeffnen <Objekt>"
meillo@1: PRINT "benutzen <Objekt>"
meillo@1: PRINT "untersuchen <Objekt>"
meillo@1: PRINT "sprechen mit <Person>"
meillo@1: PRINT "gehen (in) <Ort>"
meillo@1: PRINT "nehmen <Objekt>"
meillo@1: RETURN
meillo@1: