'============================================================================'
'                                                                            '
'                                                                            '
'  M             M                                                           '
'  MM           MM        I               D               D                  '
'  M M         M M        I               D               D                  '
'  M  M       M  M                        D               D                  '
'  M   M     M   M                        D               D                  '
'  M    M   M    M        I         DDDDD D         DDDDD D         SSSSS    '
'  M     M M     M        I        D     DD        D     DD        S     S   '
'  M      M      M        I       D       D       D       D       S          '
'  M             M        I       D       D       D       D        S         '
'  M             M        I       D       D       D       D         SSSS     '
'  M             M        I       D       D       D       D             S    '
'  M             M        I       D       D       D       D              S   '
'  M             M        I        D     DD        D     DD       S     S    '
'  M             M        I         DDDDD D         DDDDD D        SSSSS     '
'                                                                            '
'                                                                            '
'============================================================================'



'Midds'


CLS
LOCATE 13, 6
COLOR 15
PRINT "*** Mord in der Dorfstrasse ***"
'LINE (20, 60)-(300, 140), 2, B
LOCATE 24, 2
COLOR 7
PRINT "(c) Copyright 1999 Elefant Software"
do
loop until inkey <> ""


name1$ = "John Howell"



CLS
COLOR 6
PRINT "Dies ist ein Kriminalspiel,"
PRINT "das die grauen Zellen fordert."
do
loop until inkey <> ""



CLS
GOSUB befehle
do
loop until inkey <> ""



CLS
COLOR 6
PRINT
PRINT "Druecke 'q' um das Spiel zu beenden."
PRINT
PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
PRINT
PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
do
loop until inkey <> ""


X:
CLS
PRINT ""
LOCATE 13, 6
COLOR 6
PRINT "So jetzt geht's endlich los!!!"
do
loop until inkey <> ""
CLS
GOTO 1





1 :
'''''''''' Vor dem Haus '''''''''
zuege = 0
a1:
CLS
PRINT ""
COLOR 2
PRINT "Du heisst "; name1$; " und bist"
PRINT "Privatdetektiv. Du wurdest von "
PRINT "Herr Fisch angerufen um einen Mord"
PRINT "aufzuklaeren."
PRINT "Natuerlich bist du sofort in deinen"
PRINT "Renault 19 gestiegen und losgefahren."
PRINT "Jetzt stehst du vor Haus Nummer 6"
PRINT "in der Dorfstrasse."
PRINT
COLOR 7
INPUT "(Vor dem Haus) Was machst du? ", B$
zuege% = zuege% + 1
IF B$ = "benutzen Klingel" GOTO 2
IF B$ = "oeffnen Tuer" THEN PRINT "Du kannst doch nicht einfach fremde  Haeuser betreten."
IF B$ = "oeffnen Tuer" THEN SLEEP
IF B$ = "oeffnen Tuer" GOTO a1
IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde  Haeuser betreten."
IF B$ = "gehen in Haus" THEN SLEEP
IF B$ = "gehen in Haus" GOTO a1
IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
IF B$ = "gehen Heim" GOTO a1
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
PRINT ""
PRINT "Noe!"
PRINT ""
IF zuege% = 5 THEN GOTO a
IF zuege% = 9 THEN GOTO B
IF zuege% = 9 THEN GOTO 2
do
loop until inkey <> ""
GOTO a1

a:
COLOR 4
PRINT "          Tipp: benutzen ..."
SLEEP
GOTO a1

B:
COLOR 4
PRINT "          Loesung: benutzen Klingel"
SLEEP
CLS
GOTO 2







2 :
CLS
COLOR 2
PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
PRINT ""
do
loop until inkey <> ""

CLS
LOCATE 13, 10
COLOR 10
PRINT "Flur"
do
loop until inkey <> ""
zuege% = 0
GOTO 3




3 :
'''''''' Flur '''''''
CLS
IF kerzenst% = 1 GOTO 116
COLOR 2
PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
PRINT
COLOR 7
INPUT "(Flur) Was machst du? ", B$
zuege% = zuege% + 1
IF B$ = "sprechen mit Herr Fisch" GOTO 4
IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
IF B$ = "umschauen" GOTO 117
IF B$ = "untersuchen Flur" GOTO 117
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kueche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
PRINT ""
PRINT "Keine Lust!"
PRINT ""
IF zuege% = 6 THEN GOTO c
do
loop until inkey <> ""
GOTO 3

c:
COLOR 4
PRINT "Tipp: sprechen mit ..."
do
loop until inkey <> ""
CLS
GOTO 3




4 :
CLS
COLOR 9
PRINT "A: Ich heisse "; name1$; "."
PRINT "B: Wo ist die Leiche?"
PRINT "C: Wie heisst der Tote?"
PRINT "D: Ende."
PRINT ""
COLOR 12
INPUT "Was sagst du?", s$
PRINT
COLOR 9
IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
IF s$ = "B" THEN PRINT "Im Schlafzimmer."
IF s$ = "B" THEN SLEEP
IF s$ = "B" GOTO 5
IF s$ = "C" THEN PRINT "Karl Mueller."
IF s$ = "D" THEN END
do
loop until inkey <> ""
GOTO 4





5 :
CLS
COLOR 9
PRINT
PRINT "A: Ich heisse "; name1$; ""
PRINT "B: Wo ist die Leiche?"
PRINT "C: Wie heisst der Tote?"
PRINT "D: Wo ist das Schlafzimmer?"
PRINT "E: Ende"
PRINT ""
PRINT ""
COLOR 12
INPUT "Was sagst du?", s$
PRINT
COLOR 9
IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
IF s$ = "B" THEN PRINT "Im Schlafzimmer."
IF s$ = "C" THEN PRINT "Karl Mueller."
IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
IF s$ = "E" THEN GOTO 6
do
loop until inkey <> ""
GOTO 5





6 :
''''''' Flur ''''''''
CLS
zuege% = 0
LOCATE 13, 10
COLOR 10
PRINT "Flur"
do
loop until inkey <> ""
a6:
CLS
COLOR 7
PRINT
IF kerzenst% = 1 GOTO 116
PRINT
INPUT "(Flur) Was machst du? ", B$
zuege% = zuege% + 1
IF B$ = "sprechen mit Herr Fisch" GOTO 5
IF B$ = "gehen in Schlafzimmer" GOTO 7
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kueche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuss!"
IF B$ = "gehen Heim " GOTO a6
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
PRINT ""
PRINT "Nee!"
IF zuege = 5 GOTO d
GOTO a6


d:
COLOR 4
PRINT "gehen in ..."
do
loop until inkey <> ""
GOTO a6







7 :
CLS
COLOR 2
PRINT "Die Leiche, ein etwa 20 Jahre alter"
PRINT "Mann, liegt mit einem Messer im Ruecken"
PRINT "auf dem Bett. Ich decke die Leiche"
PRINT "als erstes mit einem Tuch ab und rufe"
PRINT "mit meinem Handy Tina an. Tina ist"
PRINT "Spezialistin fuer Fingerabdruecke."
do
loop until inkey <> ""
GOTO 8






8 :
''''''' Schlafzimmer '''''''''
CLS
PRINT
COLOR 7
INPUT "(Schlafzimmer) Was machst du? ", B$
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kueche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "umschauen" GOTO 9
IF B$ = "untersuchen Schlafzimmer" GOTO 9
IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
IF B$ = "oeffnen Aktenschrank" GOTO 101
IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Strasse."
IF B$ = "untersuchen Bett" GOTO 100
IF B$ = "nehmen Taschenlampe" GOTO e
IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
IF B$ = "sprechen mit Tina" THEN PRINT "Die stoere ich lieber nicht bei der Arbeit."
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
PRINT
PRINT "Nein"
PRINT
do
loop until inkey <> ""
GOTO 8




e:
CLS
LOCATE 11, 22
PRINT "Du hast die Taschenlampe genommen"
tlampe% = 1
do
loop until inkey <> ""
CLS
GOTO 8





9 :
CLS
COLOR 2
PRINT "In der Mitte steht das Bett, ueber dem"
PRINT "Bett haengt ein Poster, auf der"
PRINT "linken Seite befindet sich ein Schrank"
PRINT "und an der rechten Wand ist ein Fenster."
IF vvx% = 1 THEN PRINT "Tina sichert gerade"
IF vvx% = 1 THEN PRINT "die Fingerabdruecke."
do
loop until inkey <> ""
GOTO 8





100 :
CLS
COLOR 2
PRINT "Unter dem Bett liegt eine Taschenlampe."
do
loop until inkey <> ""
GOTO 8





101 :
CLS
versuch% = 0
COLOR 2
PRINT "Hinter den Ordnern ist ein Geheimfach"
PRINT "mit einem dreistelligen Zahlenschloss."
do
loop until inkey <> ""
a101:
CLS
versuch% = versuch% + 1
COLOR 5
INPUT "Wie lautet die Kombination?", k$
IF k$ = "000" THEN PRINT "War wohl falsch."
IF k$ = "007" GOTO 102
IF k$ = "q" THEN END
PRINT "Komm streng dich ein bischen an!"
IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
do
loop until inkey <> ""
GOTO a101




102 :
CLS
COLOR 2
PRINT "Bravo, du hast echt gut kombiniert."
PRINT "In dem Geheimfach befindet sich ein Schluessel."
do
loop until inkey <> ""




F:
CLS
PRINT "Du hast den Schluessel genommen"
schluessel% = 1
do
loop until inkey <> ""
CLS
GOTO 114





103 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Flur"
do
loop until inkey <> ""
GOTO 104





104 :
CLS
COLOR 2
PRINT "Links geht es die Treppe zum Schlafzimmer"
PRINT "hinauf, gerade aus geht's ins Esszimmer"
PRINT " und rechts ins Arbeitszimmer."
do
loop until inkey <> ""
GOTO a6





105 :
'''''''' Arbeitszimmer '''''''
CLS
LOCATE 13, 10
COLOR 10
PRINT "Arbeitszimmer"
do
loop until inkey <> ""
a105:
CLS
COLOR 7
INPUT "(Arbeitszimmer) Was machst du? ", B$
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kueche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "umschauen" GOTO 107
IF B$ = "untersuchen Arbeitszimmer" GOTO 107
IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
IF B$ = "untersuchen Buecherregal" GOTO 122
IF B$ = "untersuchen Buch" THEN PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
IF B$ = "nehmen Buch" GOTO 124
IF B$ = "benutzen Schluessel" THEN PRINT "Das Schluesselschloss waere geknackt."
IF B$ = "benutzen Schluessel" THEN sx% = 1
IF B$ = "benutzen Schluessel" GOTO 138
IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
IF B$ = "z" GOTO 125
IF B$ = "i" THEN GOSUB inventar
IF B$ = "q" THEN END
IF B$ = "b" THEN GOSUB befehle
do
loop until inkey <> ""
PRINT "Heute nicht!"
GOTO a105





107 :
CLS
COLOR 2
PRINT "In der Mitte steht ein Schreibtisch,"
PRINT "rechts befindet sich ein Schrank und"
PRINT "links ein Buecherregal."
do
loop until inkey <> ""
GOTO 105





106 :
'''''' Esszimmer ''''''
CLS
LOCATE 13, 10
COLOR 10
PRINT "Esszimmer"
do
loop until inkey <> ""
a106:
CLS
COLOR 7
INPUT "(Esszimmer) Was machst du?", B$
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Kueche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "umschauen" GOTO 108
IF B$ = "untersuchen Esszimmer" GOTO 108
IF B$ = "untersuchen Tisch" GOTO 110
IF B$ = "nehmen Kerzenstaender" GOTO 115
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
do
loop until inkey <> ""
GOTO a106






108 :
CLS
PRINT "In der Mitte steht der Tisch und auf"
PRINT "der rechten Seite ist die Tuer zur Kueche."
do
loop until inkey <> ""
GOTO 106





110 :
CLS
PRINT "Ein schoener eichener Tisch mit einer"
PRINT "gehaekelten Tischdecke und einem"
PRINT "Kerzenstaender in der Mitte."
do
loop until inkey <> ""
GOTO a106





109 :
'''''''' Kueche '''''''
CLS
LOCATE 13, 10
COLOR 10
PRINT "Kueche"
do
loop until inkey <> ""
a109:
CLS
INPUT "(Kueche) Was machst du?", B$
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "umschauen" GOTO 111
IF B$ = "untersuchen Kueche" GOTO 111
IF B$ = "untersuchen Kuechenschrank" GOTO 112
IF B$ = "oeffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
IF B$ = "nehmen Messer" GOTO 113
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
do
loop until inkey <> ""
GOTO a109





111 :
CLS
PRINT "Links ist die Kochzeile, in der Mitte"
PRINT "ein kleiner Tisch mit zwei Stuehlen und"
PRINT "rechts der Kuechenschrank."
do
loop until inkey <> ""
GOTO a109





112 :
CLS
PRINT "Es ist nichts Ausergewoehnliches daran"
PRINT "zu erkennen, nur eine Schublade in der"
PRINT "es bestimmt Interesantes zu entdecken gibt."
do
loop until inkey <> ""
GOTO a109





113 :
CLS
PRINT "Du hast das Messer genommen"
do
loop until inkey <> ""
CLS
messer% = 1
GOTO a109




114 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Schlafzimmer"
do
loop until inkey <> ""
GOTO 8





115 :
CLS
PRINT "Du hast den Kerzenstaender genommen"
do
loop until inkey <> ""
CLS
kerzenst% = 1
GOTO a106






116 :
''''''''' Flur '''''''
CLS
COLOR 7
INPUT "(Flur) Was machst du? ", B$
zuege% = zuege% + 1
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kueche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "sprechen mit Herr Fisch" GOTO 5
IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
IF B$ = "umschauen" GOTO 117
IF B$ = "untersuchen Flur" GOTO 117
IF B$ = "sprechen mit Tina" GOTO 118
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
PRINT ""
PRINT "Keine Lust!"
PRINT ""
do
loop until inkey <> ""
GOTO 116





117 :
CLS
IF kerzenst% = 0 GOTO 121
PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
PRINT "gerade aus geht's ins Esszimmer und rechts ins"
PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
PRINT "gerade klingelt es an der Tuer. Herr Fisch macht"
PRINT "auf und Tina kommt herein."
vvv% = 1
do
loop until inkey <> ""
GOTO 116





118 :
CLS
COLOR 9
PRINT "A: Schoen, dass du so schnell gekommen bist."
PRINT "B: Der Tote liegt im Schlafzimmer."
PRINT "C: Ende."
LOCATE 8, 1
COLOR 12
INPUT "Was sagst du?", s$
PRINT
COLOR 9
IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
IF s$ = "B" GOTO 119
IF s$ = "C" GOTO 116
do
loop until inkey <> ""
GOTO 118





119 :
CLS
COLOR 9
PRINT "Okay, aber wo ist das Schlafzimmer?"
do
loop until inkey <> ""
GOTO 120





120 :
CLS
COLOR 12
PRINT "Welchen Weg beschreibst du ihr?"
PRINT
PRINT "a: Links die Treppe hinauf."
PRINT "b: Rechts die Treppe hinunter."
PRINT "c: Die Treppe hinauf, dann links."
PRINT
INPUT "a, b oder c?", w$
PRINT
COLOR 2
IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
IF w$ = "c" THEN cheat1 = 1
IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
vvx% = 1
do
loop until inkey <> ""
GOTO 116






121 :
CLS
COLOR 2
PRINT "Links geht es die Treppe zum Schlafzimmer"
PRINT "hinauf, gerade aus geht's ins Esszimmer und"
PRINT "rechts ins Arbeitszimmer. Im Flur steht"
PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
do
loop until inkey <> ""
GOTO 116





122 :
CLS
COLOR 2
IF vvx% = 1 GOTO 123
PRINT "Ich sehe nichts Besonderes."
do
loop until inkey <> ""
GOTO 105





123 :
CLS
COLOR 2
PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
PRINT "ich mir genauer anschauen."
do
loop until inkey <> ""
GOTO 105





124 :
CLS
COLOR 2
PRINT "Das Buch laesst sich nur halb heraus ziehen."
PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
PRINT "Sie ist durch ein Schluessel- und ein "
PRINT "Zahlenschloss gesichert."
PRINT
COLOR 6
PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
PRINT "die Zahlenkombination eingeben."
do
loop until inkey <> ""
GOTO 105





125 :
zkx% = 0
a125:
CLS
zkx% = zkx% + 1
COLOR 5
INPUT "Wie lautet die Kombination?", zk$
IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
IF zk$ = "123" GOTO 126
IF zk$ = "q" GOTO 105
PRINT "Leider falsch. Probier's noch einmal."
IF zkx% = 5 THEN PRINT "Tipp: Das Buecherregal."
do
loop until inkey <> ""
GOTO a125






126 :
CLS
COLOR 2
PRINT "Die Kombination war richtig."
kx% = 1
IF sx% = 1 GOTO 137
PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
do
loop until inkey <> ""
GOTO 105





137 :
CLS
COLOR 2
PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
PRINT "sich ein Geheimgang."
do
loop until inkey <> ""
GOTO 105






138 :
CLS
COLOR 2
IF kx% = 1 GOTO 137
PRINT "Jetzt musst du nur noch die Kombination knacken."
do
loop until inkey <> ""
GOTO 105






127 :
CLS
COLOR 2
IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
do
loop until inkey <> ""
IF tlampe% = 0 GOTO 105
1000 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Geheimgang"
do
loop until inkey <> ""
CLS
COLOR 2
PRINT "Gut, dass ich eine Taschenlampe dabei habe."
PRINT "Oh, es geht steil bergab .... ich muss schon"
PRINT "mindestens 5 Meter unter der Erdoberflaeche"
PRINT "sein .... Jetzt bin ich schon 10 Minuten"
PRINT "unterwegs ..... da vorne kommt eine Tuer"
PRINT "genau so gesichert wie die hinter dem Regal"
PRINT "gut, dass ich den Schluessel habe und den"
PRINT "Code kenne ..... Wo bin ich denn jetzt?"
PRINT "Sieht aus, wie der Keller eines Hauses"
PRINT "ist aber ganz schoen zerfallen."
do
loop until inkey <> ""
GOTO 130






130 :
'''''''''' Keller '''''''''''''
CLS
LOCATE 13, 10
COLOR 10
PRINT "Keller"
do
loop until inkey <> ""
a130:
CLS
COLOR 7
INPUT "(Keller) Was machst du? ", B$
zuege% = zuege% + 1
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kueche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "sprechen mit Herr Fisch" GOTO 5
IF B$ = "umschauen" GOTO 128
IF B$ = "untersuchen Keller" GOTO 128
IF B$ = "benutzen Treppe" GOTO 132
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
PRINT ""
PRINT "Jetzt nicht."
PRINT
do
loop until inkey <> ""
GOTO a130






128 :
CLS
COLOR 2
PRINT "Ein zerfallener Keller, alles verstaubt."
PRINT "Gerade aus geht eine Treppe nach oben."
PRINT
PRINT ""
do
loop until inkey <> ""
GOTO 130





131 :
CLS
COLOR 2
PRINT "In der Lagerhalle ist alles genau so"
PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
do
loop until inkey <> ""
RETURN






132 :
'''''''' Lagerhalle '''''''''''
CLS
LOCATE 13, 10
COLOR 10
PRINT "Lagerhalle"
do
loop until inkey <> ""
CLS
a132:
CLS
COLOR 7
INPUT "(Lagerhalle) Was machst du? ", B$
zuege% = zuege% + 1
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kueche" GOTO 109
IF B$ = "umschauen" THEN GOSUB 131
IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
IF B$ = "oeffnen Tuer" GOTO 133
IF B$ = "untersuchen Kartons" THEN GOSUB 134
IF B$ = "benutzen Messer" GOTO 136
IF B$ = "q" THEN END
IF B$ = "i" THEN GOSUB inventar
IF B$ = "b" THEN GOSUB befehle
PRINT ""
PRINT "Noe!"
PRINT
do
loop until inkey <> ""
GOTO a132





133 :
CLS
COLOR 2
PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
PRINT "Jetzt ist schnelles Handeln wichtig!"
PRINT
do
loop until inkey <> ""
a133:
COLOR 7
INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
v% = v% + 1
IF v$ = "leerem Karton" GOTO 135
IF v$ = "leerer Karton" GOTO 135
IF v$ = "leere Kartons" GOTO 135
IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
IF v$ = "Geheimgang" THEN PRINT "Dafuer reicht die Zeit nicht."
IF v$ = "Keller" THEN PRINT "Dafuer reicht die Zeit nicht."
IF v$ = "umschauen" THEN GOSUB 131
IF v$ = "untersuchen Lagerhalle" THEN GOSUB 131
IF v$ = "untersuchen Kartons" THEN GOSUB 134
IF v$ = "q" THEN END
IF v% = 9 THEN PRINT "Tipp: l..... K....."
IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
PRINT "Da habe ich zu wenig Zeit dafuer."
do
loop until inkey <> ""
GOTO a133






134 :
CLS
COLOR 2
PRINT "Auf der linken Seite sind die vollen Kartons"
PRINT "gestapelt und rechts liegen die leeren auf"
PRINT "einem Haufen."
do
loop until inkey <> ""
RETURN






135 :
CLS
COLOR 2
PRINT "Das ist eine gute Idee. Ich mache mich"
PRINT "sofort an die Arbeit. Raschel, raschel"
PRINT "... uff ... so ... geich ... jetzt ..."
PRINT "Okay ich hab's geschafft. Jetzt kann"
PRINT "ich nur nichts mehr sehen. Ich sollte"
PRINT "mir ein Loch zum Rausschauen in den"
PRINT "Karton reissen. So ... uff, der ist zu"
PRINT "stabil, da brauche ich ein Werkzeug dazu."
do
loop until inkey <> ""
GOTO 132






136 :
CLS
COLOR 2
IF messer% = 0 THEN
PRINT "Ich habe kein Messer."
PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
PRINT "halben Stunde geht der Typ wieder. Ich"
PRINT "begebe mich sofort zurueck ins Haus. So"
PRINT "schlecht vorbereited begebe ich mich nicht"
PRINT "wieder in Gefahr."
PRINT
do
loop until inkey <> ""
GOTO 105
END IF

PRINT "Gute Idee, das mit dem Messer. Der Typ"
PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
PRINT "Er steigt aus und macht die Hecktueren auf."
PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"
PRINT "schliesst die Tueren, steigt wieder ein und"
PRINT "faehrt hinaus."
PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
PRINT "zurueck ins Haus."
do
loop until inkey <> ""
GOTO 139








139 :
CLS
PRINT "Was machst du?"
PRINT ""
PRINT "a: nach Hause gehen"
PRINT "b: noch da bleiben"
PRINT "c: nochmal in die Lagerhalle gehen"
PRINT ""
INPUT "Und wie entscheidest du dich?", entscheidung$
PRINT
IF entscheidung$ = "a" GOTO 140
IF entscheidung$ = "b" GOTO 105
IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"







140 :
''''''' Zuhause '''''''
CLS
LOCATE 13, 10
COLOR 10
PRINT "Zuhause"
do
loop until inkey <> ""
a140:
CLS
PRINT "Du willst dir gerade einen Tee machen, als"
PRINT "Du einen Schlag an der Tuer hoerst und das"
PRINT "Licht aus geht."
PRINT ""
PRINT "Was machst du?"
PRINT "a: die Tuer oeffnen"
PRINT "b: die Polizei anrufen"
PRINT "c: dich unter dem Bett verstecken"
PRINT ""
INPUT "Und?", w$
PRINT
IF w$ = "a" GOTO 141
IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."
IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
GOTO a140







141 :
CLS
COLOR 2
PRINT
PRINT
PRINT "Du siehst gerade noch ein Auto"
PRINT "wegfahren. "
do
loop until inkey <> ""
CLS
LOCATE 17, 17
COLOR 15
PRINT "KA GR 48"
SLEEP 1
GOTO 142
142 :
CLS
COLOR 2
PRINT "In deiner Tuer steckt ein Messer mit"
PRINT "einer Botschaft. Du liest sie natuerlich"
PRINT "sofort."
do
loop until inkey <> ""
CLS
COLOR 11
LOCATE 10, 10
PRINT "Wenn du dich einmischst"
LOCATE 15, 10
PRINT "dann bist du  T O T !!!"
do
loop until inkey <> ""
CLS
COLOR 2
PRINT ""
PRINT ""
PRINT "Diese Botschaft war ernst gemeint."
PRINT "Aber als Privatdetektiv musst du dich"
PRINT "halt ueber solche Morddrohungen hinweg-"
PRINT "setzen. Deshalb rufst du sofort die"
PRINT "Polizei an."
do
loop until inkey <> ""
GOTO 143
143 :
CLS
COLOR 9
PRINT ""
PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
PRINT "Laenger. Was kann ich fuer Sie tun?"
PRINT
PRINT
COLOR 12
PRINT "a: Ich moechte Anzeige gegen einen Mann"
PRINT "   in einem gruenen Auto erstatten."
PRINT
PRINT "b: Ich moechte eine Pizza essen."
PRINT ""
PRINT "c: Ich moechte, dass Sie einen Mann"
PRINT ""
PRINT "   in einem gruenen Auto verhaften."
LOCATE 20, 1
COLOR 12
INPUT "Was antwortest du? (a,b,c)", a$
IF a$ = "a" THEN GOTO 144
IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
IF a$ = "c" THEN GOTO 144
IF a$ = "q" THEN END
do
loop until inkey <> ""
GOTO 143







144 :
CLS
COLOR 9
PRINT ""
PRINT "Wie heisst der Mann denn?"
PRINT
COLOR 12
PRINT "a: Karl von Burlafingen."
PRINT "b: Regideur Eklansch."
PRINT "c: Ich kenne seinen Namen nicht."
PRINT ""
INPUT "Wie heisst er? (a,b,c)", w$
PRINT ""
IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
IF w$ = "c" GOTO 145
do
loop until inkey <> ""
GOTO 144






145 :
CLS
PRINT ""
COLOR 9
PRINT "Was fuer eine Autonummer hatte er denn?"
PRINT ""
PRINT ""
COLOR 12
PRINT "a: KS ET 26"
PRINT ""
PRINT "b: HS AB 37"
PRINT ""
PRINT "c: KA GR 48"
PRINT ""
PRINT ""
COLOR 12
INPUT "Welche Autonummer hatte er? (a,b,c)", a$
PRINT ""
IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
IF a$ = "c" GOTO 146
do
loop until inkey <> ""
GOTO 145






146 :
CLS
COLOR 2
PRINT ""
PRINT "Der Polizist gab den guten Tip sofort"
PRINT "an seine Kollegen weiter. Er dankte"
PRINT "dir fuer die heisse Spur und du"
PRINT "verabschiedeste dich und giengst nach"
PRINT "Hause."
do
loop until inkey <> ""
CLS
PRINT ""
PRINT "Zwei Tage spaeter kam ein Brief vom"
PRINT "Polizeirevier:"
do
loop until inkey <> ""
CLS
LOCATE 4, 1
COLOR 15
PRINT "Sehrgeehrter Herr "; name1$; ""
PRINT "dank Ihnen konnten wie eine ganze"
PRINT "Bande Waffenschieber dingfest machen."
PRINT ""
PRINT ""
PRINT ""
PRINT "Ausfuehrlicher Bericht auf der naechsten"
PRINT "Seite."
do
loop until inkey <> ""
CLS
PRINT ""
PRINT "Am Montag konnten wir den gruenen Audi"
PRINT "von Schaefer (so heisst der Bersitzer)"
PRINT "in der Karlsruher Innenstadt ausfindig"
PRINT "machen. Wir folgten ihm bis zu seinem"
PRINT "Hause. Dort umstellten wir es"
PRINT "und stuermten. Beim Verhoer gestand"
PRINT "er alles (Auftraggeber und alle"
PRINT "Mitglieder). Am naechsten Tag konnten"
PRINT "wir den Rest der Bande verhaften."
PRINT "Am naechsten Donnerstag wird Mayr, der"
PRINT "Boss der Truppe, wegen Mord an Karl"
PRINT ""
do
loop until inkey <> ""
CLS
PRINT ""
PRINT "Mueller verurteilt. Auch die Anderen"
PRINT "werden wegen Beihilfe zum Mord vor"
PRINT "Gericht gestellt werden."
PRINT ""
PRINT "Ich muss nochmal meinen Dank an Sie"
PRINT "Aussprechen. Denn nur durch Sie konnten"
PRINT "wir diese gefaehrliche Bande stoppen"
PRINT ""
PRINT ""
PRINT ""
PRINT "            Polizeichef Mattias Huber"
do
loop until inkey <> ""
CLS
LOCATE 13, 10
COLOR 13
PRINT "Du hast gewonnen!"
do
loop until inkey <> ""
COLOR 15





END
         










inventar:
CLS
PRINT
PRINT
COLOR 5
PRINT "Hausschluessel"
PRINT "200 Schilling"
IF tlampe% = 1 THEN PRINT "Taschenlampe"
IF schluessel% = 1 THEN PRINT "Schluessel"
IF messer% = 1 THEN PRINT "Messer"
IF kerzenst% = 1 THEN PRINT "Kerzenstaender"
RETURN



befehle:
PRINT ""
PRINT "Moegliche Befehle:"
PRINT ""
COLOR 3
PRINT "umschauen"
PRINT "oeffnen <Objekt>"
PRINT "benutzen <Objekt>"
PRINT "untersuchen <Objekt>"
PRINT "sprechen mit <Person>"
PRINT "gehen (in) <Ort>"
PRINT "nehmen <Objekt>"
RETURN