# HG changeset patch
# User meillo@marmaro.de
# Date 1188821979 -7200
# Node ID 130ab9a4fd8394d68c57ae64363fa138cce5564d
# Parent  756a5d57522c380d5d57ddc5aee621658c37f1fe
begin of the recoding of the old Midds

diff -r 756a5d57522c -r 130ab9a4fd83 Midds_reco.bas
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Midds_reco.bas	Mon Sep 03 14:19:39 2007 +0200
@@ -0,0 +1,1468 @@
+'============================================================================'
+'                                                                            '
+'                                                                            '
+'  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
+