Mercurial > midds

changeset 2:53d9408c7cdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lots of refactoring in reco-version
author meillo@marmaro.de
date Mon, 03 Sep 2007 20:51:10 +0200
parents 130ab9a4fd83
children e98ade2107de
files Midds_reco.bas
diffstat 1 files changed, 609 insertions(+), 815 deletions(-) [+]
line wrap: on
line diff
--- a/Midds_reco.bas	Mon Sep 03 14:19:39 2007 +0200
+++ b/Midds_reco.bas	Mon Sep 03 20:51:10 2007 +0200
@@ -24,13 +24,13 @@
 'Midds'
 
 
-CLS
+cls
 LOCATE 13, 6
 COLOR 15
 PRINT "*** Mord in der Dorfstrasse ***"
+COLOR 7
 'LINE (20, 60)-(300, 140), 2, B
 LOCATE 24, 2
-COLOR 7
 PRINT "(c) Copyright 1999 Elefant Software"
 do
 loop until inkey <> ""
@@ -40,102 +40,84 @@
 
 
 
-CLS
+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
 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."
+COLOR 7
 do
 loop until inkey <> ""
 
 
 X:
-CLS
+cls
 PRINT ""
 LOCATE 13, 6
 COLOR 6
 PRINT "So jetzt geht's endlich los!!!"
+COLOR 7
 do
 loop until inkey <> ""
-CLS
-GOTO 1
 
 
 
 
 
-1 :
+ort_vordemhaus :
 '''''''''' Vor dem Haus '''''''''
-zuege = 0
-a1:
-CLS
-PRINT ""
+cls
 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
+  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
+
+zuege = 0
 do
-loop until inkey <> ""
-GOTO a1
+
+  INPUT "(Vor dem Haus) Was machst du? ", B$
+  B$ = lcase(B$)
 
-a:
-COLOR 4
-PRINT "          Tipp: benutzen ..."
-SLEEP
-GOTO a1
+  select case B$
+    case "benutzen klingel"
+      COLOR 2
+      PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
+      PRINT
+      COLOR 7
+      goto ort_flur
+    case "oeffnen tuer"
+      PRINT "  Haustueren kann man von aussen ohne Schluessel nicht oeffnen."
+    case "gehen in haus"
+      PRINT "  Die Tuer ist zu."
+    case "gehen heim"
+      PRINT "  Du Angsthase"
+    case "q"
+      END
+    case "i"
+      GOSUB inventar
+    case "b"
+      GOSUB befehle
+    case else
+      PRINT "  Noe!"
+  end select
 
-B:
-COLOR 4
-PRINT "          Loesung: benutzen Klingel"
-SLEEP
-CLS
-GOTO 2
+  zuege% = zuege% + 1
+  IF zuege% = 5 THEN PRINT "          Tipp: benutzen ..."
+  IF zuege% > 8 THEN PRINT "          Loesung: benutzen Klingel"
+
+loop until inkey <> ""
+
 
 
 
@@ -143,611 +125,531 @@
 
 
 
-2 :
-CLS
-COLOR 2
-PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
-PRINT ""
+ort_flur :
+'''''''' Flur '''''''
+'IF kerzenst% = 1 GOTO 116
+
+COLOR 7
+
+zuege% = 0
 do
+  INPUT "(Flur) Was machst du? ", B$
+  B$ = lcase(B$)
+  select case B$
+    case "sprechen mit herr fisch"
+      goto gespraech_herrfisch
+    case "gehen heim"
+      PRINT "  Du Angsthase!"
+    case "umschauen", "untersuchen flur"
+      GOTO 117
+    case "gehen in schlafzimmer"
+      goto ort_schlafzimmer
+    case "gehen in arbeitszimmer"
+      GOTO ort_arbeitszimmer
+    case "gehen in esszimmer"
+      GOTO ort_esszimmer
+    case "gehen in kueche"
+      GOTO ort_kueche
+    case "gehen in lagerhalle"
+      if kx% = 1 AND sx% = 1 GOTO 132
+    case "sprechen mit Tina"
+      if tinaistda = 1 then GOTO 118
+    case "q"
+      END
+    case "i"
+      GOSUB inventar
+    case "b"
+      GOSUB befehle
+    case else
+      PRINT "  Keine Lust!"
+      PRINT
+  end select
+
+  zuege% = zuege% + 1
+  IF zuege% = 6 THEN PRINT "  Tipp: sprechen mit ..."
 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
+gespraech_herrfisch :
+''''''''' gespraech mit herr fisch ''''''''''
+
+color 2
+print "Du beginnst ein Gespraech mit Herr Fisch."
+print
+
 do
+  COLOR 7
+  PRINT "A: Hallo, ich heisse "; name1$; "."
+  PRINT "B: Wo ist die Leiche?"
+  PRINT "C: Wie heisst der Tote?"
+  if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
+  PRINT "Z: Bis spaeter."
+  COLOR 1
+  INPUT "Was sagst du zu Herr Fisch? ", s$
+  s$ = lcase(s$)
+  COLOR 7
+  print "Er antwortet:"
+  COLOR 4
+  select case s$
+    case "a"
+      PRINT "  Ich heisse Manfred Fisch."
+    case "b"
+      PRINT "  Im Schlafzimmer."
+      woIstDasSchlafzimmer = 1
+    case "c"
+      PRINT "  Karl Mueller."
+    case "d"
+      if woIstDasSchlafzimmer = 1 THEN PRINT "  Die Treppe hinauf dann links."
+    case "z"
+      PRINT "  Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an."
+      print
+      color 2
+      print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten"
+      print
+      goto ort_flur
+    case "q"
+      end
+  end select
+  print
 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."
+ort_schlafzimmer :
+''''''' Schlafzimmer '''''''''
+
+if tinaangerufen = 0 then
+  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."
+  tinaangerufen = 1
+else
+  color 2
+  print "Du bist im Schlafzimmer"
+end if
+
 do
+  PRINT
+  COLOR 7
+  INPUT "(Schlafzimmer) Was machst du? ", B$
+  B$ = lcase(B$)
+  select case B$
+    case "gehen in flur"
+      goto ort_flur
+
+    case "gehen in arbeitszimmer"
+      goto ort_arbeitszimmer
+
+    case "gehen in esszimmer"
+      goto  ort_esszimmer
+
+    case "gehen in kueche"
+      goto ort_kueche
+
+    case "gehen in lagerhalle"
+      if kx% = 1 AND sx% = 1 goto 132
+
+    case "umschauen", "untersuchen schlafzimmer"
+      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 tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke."
+
+    case "untersuchen schrank"
+      PRINT "Ein alter Aktenschrank."
+
+    case "oeffnen aktenschrank"
+      versuch% = 0
+      COLOR 2
+      PRINT "Hinter den Ordnern ist ein Geheimfach"
+      PRINT "mit einem dreistelligen Zahlenschloss."
+      geheimfachgefunden = 1
+
+      do
+        versuch% = versuch% + 1
+        COLOR 5
+        INPUT "Wie lautet die Kombination?", k$
+        IF k$ = "000" THEN PRINT "War wohl falsch."
+        IF k$ = "007" then
+          PRINT "Bravo, du hast echt gut kombiniert."
+          geheimfachoffen = 1
+        end if
+        IF k$ = "q" goto ort_schlafzimmer
+        PRINT "Komm streng dich ein bisschen an!"
+        IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
+        IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
+      loop until inkey <> ""
+
+    case "untersuchen fenster"
+      PRINT "Wenn man hinaus schaut, sieht man die Strasse."
+
+    case "untersuchen bett"
+      COLOR 2
+      PRINT "Unter dem Bett liegt eine Taschenlampe."
+
+    case "nehmen taschenlampe"
+      PRINT "Du hast die Taschenlampe genommen"
+      tlampe% = 1
+
+    case "untersuchen geheimfach"
+      if geheimfachgefunden = 1 then
+        COLOR 2
+        PRINT "In dem Geheimfach befindet sich ein Schluessel."
+      end if
+
+    case "nehmen schluessel"
+      if geheimfachoffen = 1 then
+        PRINT "Du hast den Schluessel aus dem Geheimfach genommen"
+        schluessel% = 1
+      end if
+
+    case "untersuchen poster"
+      PRINT "Da steht - Sean Connery als James Bond"
+      PRINT "in SAG NIEMALS NIE - drauf."
+
+    case "sprechen mit tina"
+      if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."
+
+    case "q"
+      END
+    case "i"
+      GOSUB inventar
+    case "b"
+      GOSUB befehle
+    case else
+      PRINT "Nein"
+  end select
 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
+ort_arbeitszimmer :
+'''''''' Arbeitszimmer '''''''
 
-
-
-
-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."
+PRINT "Du bist im Arbeitszimmer."
+
 do
-loop until inkey <> ""
-GOTO 8
+  COLOR 7
+  INPUT "(Arbeitszimmer) Was machst du? ", B$
+  B$ = lcase(B$)
+  select case B$
+    case "gehen in Schlafzimmer"
+      goto ort_schlafzimmer
 
+    case "gehen in Flur"
+      goto ort_flur
 
+    case "gehen in Esszimmer"
+      goto ort_esszimmer
 
+    case "gehen in Kueche"
+      goto ort_kueche
+
+    case "gehen in Lagerhalle"
+      if kx% = 1 AND sx% = 1 then goto 132
 
+    case "umschauen", "untersuchen Arbeitszimmer"
+      COLOR 2
+      PRINT "In der Mitte steht ein Schreibtisch,"
+      PRINT "rechts befindet sich ein Schrank und"
+      PRINT "links ein Buecherregal."
 
-100 :
-CLS
-COLOR 2
-PRINT "Unter dem Bett liegt eine Taschenlampe."
-do
-loop until inkey <> ""
-GOTO 8
+    case "untersuchen Schreibtisch"
+      PRINT "Da gibt's nichts Besonderes zu sehen."
 
-
+    case "untersuchen Buecherregal"
+      COLOR 2
+      IF tinaistimschlafzimmer = 0 then
+        PRINT "Ich sehe nichts Besonderes."
+      else
+        PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
+        PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
+        PRINT "ich mir genauer anschauen."
+      end if
 
-
+    case "untersuchen Buch"
+      PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
 
-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
+    case "nehmen Buch"
+      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."
+
+    case "benutzen Schluessel"
+      PRINT "Das Schluesselschloss waere geknackt."
+      sx% = 1
+      COLOR 2
+      IF kx% = 1 GOTO 137
+      PRINT "Jetzt musst du nur noch die Kombination knacken."
+
+    case "gehen in Geheimgang"
+      if kx% = 1 AND sx% = 1 then
+        goto 127
+      end if
 
-
-
+    case "z"
+      do
+        COLOR 5
+        INPUT "Wie lautet die Kombination?", zk$
+        select case zk$
+          case "007"
+            PRINT "So einfach ist es nicht"
+          case "123"
+            COLOR 2
+            PRINT "Die Kombination war richtig."
+            kx% = 1
+            IF sx% = 1 GOTO 137
+            PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
+          case "q"
+            PRINT "Tipp: Das Buecherregal."
+            GOTO ort_arbeitszimmer
+          case else
+            PRINT "Leider falsch. Probier's noch einmal."
+        end select
+      loop until inkey <> ""
 
-102 :
-CLS
-COLOR 2
-PRINT "Bravo, du hast echt gut kombiniert."
-PRINT "In dem Geheimfach befindet sich ein Schluessel."
-do
+    case "i"
+      GOSUB inventar
+    case "q"
+      END
+    case "b"
+      GOSUB befehle
+    case else
+      PRINT "Heute nicht!"
+  end select
 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."
+ort_esszimmer :
+'''''' Esszimmer ''''''
+
+COLOR 2
+print "Du bist im Esszimmer."
 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
+COLOR 7
+print
+INPUT "(Esszimmer) Was machst du? ", B$
+B$ = lcase(b$)
+select case B$
+  case "gehen in schlafzimmer"
+    goto ort_schlafzimmer
 
-
+  case "gehen in flur"
+    GOTO ort_flur
 
+  case "gehen in arbeitszimmer"
+    GOTO ort_arbeitszimmer
 
+  case "gehen in kueche"
+    GOTO ort_kueche
 
-109 :
-'''''''' Kueche '''''''
-CLS
-LOCATE 13, 10
-COLOR 10
-PRINT "Kueche"
-do
+  case "gehen in lagerhalle"
+    if kx% = 1 AND sx% = 1 GOTO 132
+
+  case "umschauen", "untersuchen esszimmer"
+    color 2
+    PRINT "In der Mitte steht der Tisch und auf"
+    PRINT "der rechten Seite ist die Tuer zur Kueche."
+
+  case "untersuchen tisch"
+    color 2
+    PRINT "Ein schoener eichener Tisch mit einer"
+    PRINT "gehaekelten Tischdecke."
+    if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender."
+
+  case "nehmen kerzenstaender"
+    kerzenst% = 1
+    color 2
+    PRINT "Du hast den Kerzenstaender genommen"
+
+  case "q"
+    END
+  case "i"
+    GOSUB inventar
+  case "b"
+    GOSUB befehle
+end select
 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 ""
+ort_kueche :
+'''''''' Kueche '''''''
+
+COLOR 2
+PRINT "Du bist in der Kueche."
+
 do
+  color 7
+  INPUT "(Kueche) Was machst du?", B$
+  B$ = lcase(B$)
+  select case B$
+    case "gehen in schlafzimmer"
+      goto ort_schlafzimmer
+
+    case "gehen in flur"
+      goto ort_flur
+
+    case "gehen in arbeitszimmer"
+      goto ort_arbeitszimmer
+
+    case "gehen in esszimmer"
+      goto ort_esszimmer
+
+    case "gehen in lagerhalle"
+      if kx% = 1 AND sx% = 1 then goto 132
+
+    case "umschauen", "untersuchen kueche"
+      PRINT "Links ist die Kochzeile, in der Mitte"
+      PRINT "ein kleiner Tisch mit zwei Stuehlen und"
+      PRINT "rechts der Kuechenschrank."
+
+    case "untersuchen kuechenschrank"
+      PRINT "Es ist nichts Ausergewoehnliches daran"
+      PRINT "zu erkennen, nur eine Schublade in der"
+      PRINT "es bestimmt Interesantes zu entdecken gibt."
+
+    case "oeffnen schublade"
+      PRINT "In der Schublade liegt sich ein Messer."
+
+    case "nehmen messer"
+      PRINT "Du hast das Messer genommen"
+      messer% = 1
+
+    case "q"
+      END
+
+    case "i"
+      GOSUB inventar
+
+    case "b"
+      GOSUB befehle
+
+    case else
+      print "Will ich nicht."
+
+  end select
 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
+
+IF tinaangerufen = 1 and tinaistda = 0 then
+  COLOR 2
+  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
+  PRINT "... gerade klingelt es an der Tuer. Herr Fisch"
+  PRINT "macht auf und Tina kommt herein."
+  tinaistda = 1
+
+else
+  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 deine Fragen."
+end if
+
+goto ort_flur
 
 
 
 
 
 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
+IF s$ = "C" GOTO ort_flur
 do
 loop until inkey <> ""
 GOTO 118
@@ -757,19 +659,11 @@
 
 
 119 :
-CLS
+
 COLOR 9
 PRINT "Okay, aber wo ist das Schlafzimmer?"
-do
-loop until inkey <> ""
-GOTO 120
-
+print
 
-
-
-
-120 :
-CLS
 COLOR 12
 PRINT "Welchen Weg beschreibst du ihr?"
 PRINT
@@ -784,136 +678,39 @@
 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
+tinaistimschlafzimmer = 1
 do
 loop until inkey <> ""
-GOTO 116
+GOTO ort_flur
+
+
+
+
+
+
+
 
 
 
 
 
 
-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
+137 :
 
-
-
-
-
-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
+PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
+PRINT "sich ein Geheimgang."
+geheimgangfrei = 1
+GOTO ort_arbeitszimmer
 
 
 
 
 
 
-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
 
 
 
@@ -921,20 +718,20 @@
 
 
 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
+
+IF tlampe% = 0 GOTO ort_arbeitszimmer
 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"
@@ -957,59 +754,68 @@
 
 130 :
 '''''''''' Keller '''''''''''''
-CLS
-LOCATE 13, 10
-COLOR 10
-PRINT "Keller"
+
+COLOR 2
+PRINT "Du bist im Keller."
+
 do
+  COLOR 7
+  INPUT "(Keller) Was machst du? ", B$
+  B$ = lcase(B$)
+  select case B$
+    case "gehen in flur"
+      goto ort_flur
+
+    case "gehen in schlafzimmer"
+      goto ort_schlafzimmer
+
+    case "gehen in arbeitszimmer"
+      goto ort_arbeitszimmer
+
+    case "gehen in esszimmer"
+      goto ort_esszimmer
+
+    case "gehen in kueche"
+      goto ort_kueche
+
+    case "gehen in lagerhalle"
+      if kx% = 1 AND sx% = 1 then goto 132
+
+    case "umschauen", "untersuchen keller"
+      COLOR 2
+      PRINT "Ein zerfallener Keller, alles verstaubt."
+      PRINT "Gerade aus geht eine Treppe nach oben."
+
+    case "benutzen treppe"
+      goto 132
+
+    case "q"
+      END
+
+    case "i"
+      GOSUB inventar
+
+    case "b"
+      GOSUB befehle
+
+    case else
+      PRINT "Jetzt nicht."
+
+  end select
 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"
@@ -1025,22 +831,22 @@
 
 132 :
 '''''''' Lagerhalle '''''''''''
-CLS
-LOCATE 13, 10
+
+'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$ = "gehen in Schlafzimmer" goto ort_schlafzimmer
+IF B$ = "gehen in Arbeitszimmer" GOTO ort_arbeitszimmer
+IF B$ = "gehen in Esszimmer" GOTO ort_esszimmer
+IF B$ = "gehen in Kueche" GOTO ort_kueche
 IF B$ = "umschauen" THEN GOSUB 131
 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
 IF B$ = "oeffnen Tuer" GOTO 133
@@ -1050,7 +856,7 @@
 IF B$ = "i" THEN GOSUB inventar
 IF B$ = "b" THEN GOSUB befehle
 PRINT ""
-PRINT "Noe!"
+PRINT "Nee!"
 PRINT
 do
 loop until inkey <> ""
@@ -1061,7 +867,7 @@
 
 
 133 :
-CLS
+
 COLOR 2
 PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
 PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
@@ -1099,7 +905,7 @@
 
 
 134 :
-CLS
+
 COLOR 2
 PRINT "Auf der linken Seite sind die vollen Kartons"
 PRINT "gestapelt und rechts liegen die leeren auf"
@@ -1114,7 +920,7 @@
 
 
 135 :
-CLS
+
 COLOR 2
 PRINT "Das ist eine gute Idee. Ich mache mich"
 PRINT "sofort an die Arbeit. Raschel, raschel"
@@ -1134,19 +940,19 @@
 
 
 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
+  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 ort_arbeitszimmer
 END IF
 
 PRINT "Gute Idee, das mit dem Messer. Der Typ"
@@ -1159,17 +965,8 @@
 PRINT "zurueck ins Haus."
 do
 loop until inkey <> ""
-GOTO 139
-
-
-
 
 
-
-
-
-139 :
-CLS
 PRINT "Was machst du?"
 PRINT ""
 PRINT "a: nach Hause gehen"
@@ -1179,7 +976,7 @@
 INPUT "Und wie entscheidest du dich?", entscheidung$
 PRINT
 IF entscheidung$ = "a" GOTO 140
-IF entscheidung$ = "b" GOTO 105
+IF entscheidung$ = "b" GOTO ort_arbeitszimmer
 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
 
 
@@ -1190,14 +987,13 @@
 
 140 :
 ''''''' Zuhause '''''''
-CLS
-LOCATE 13, 10
-COLOR 10
-PRINT "Zuhause"
+
+COLOR 2
+PRINT "Home sweet home - endlich wieder 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."
@@ -1221,7 +1017,7 @@
 
 
 141 :
-CLS
+
 COLOR 2
 PRINT
 PRINT
@@ -1229,29 +1025,27 @@
 PRINT "wegfahren. "
 do
 loop until inkey <> ""
-CLS
+cls
 LOCATE 17, 17
 COLOR 15
 PRINT "KA GR 48"
-SLEEP 1
+SLEEP 500
 GOTO 142
 142 :
-CLS
+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 ""
@@ -1262,9 +1056,10 @@
 PRINT "Polizei an."
 do
 loop until inkey <> ""
-GOTO 143
+
+
 143 :
-CLS
+
 COLOR 9
 PRINT ""
 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
@@ -1276,11 +1071,9 @@
 PRINT "   in einem gruenen Auto erstatten."
 PRINT
 PRINT "b: Ich moechte eine Pizza essen."
-PRINT ""
+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
@@ -1298,7 +1091,7 @@
 
 
 144 :
-CLS
+
 COLOR 9
 PRINT ""
 PRINT "Wie heisst der Mann denn?"
@@ -1323,23 +1116,23 @@
 
 
 145 :
-CLS
-PRINT ""
+
+PRINT
 COLOR 9
 PRINT "Was fuer eine Autonummer hatte er denn?"
-PRINT ""
-PRINT ""
+PRINT
+PRINT
 COLOR 12
 PRINT "a: KS ET 26"
-PRINT ""
+PRINT
 PRINT "b: HS AB 37"
-PRINT ""
+PRINT
 PRINT "c: KA GR 48"
-PRINT ""
-PRINT ""
+PRINT
+PRINT
 COLOR 12
 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
-PRINT ""
+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
@@ -1353,7 +1146,7 @@
 
 
 146 :
-CLS
+
 COLOR 2
 PRINT ""
 PRINT "Der Polizist gab den guten Tip sofort"
@@ -1363,14 +1156,13 @@
 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"
@@ -1382,7 +1174,7 @@
 PRINT "Seite."
 do
 loop until inkey <> ""
-CLS
+
 PRINT ""
 PRINT "Am Montag konnten wir den gruenen Audi"
 PRINT "von Schaefer (so heisst der Bersitzer)"
@@ -1398,7 +1190,7 @@
 PRINT ""
 do
 loop until inkey <> ""
-CLS
+
 PRINT ""
 PRINT "Mueller verurteilt. Auch die Anderen"
 PRINT "werden wegen Beihilfe zum Mord vor"
@@ -1413,13 +1205,15 @@
 PRINT "            Polizeichef Mattias Huber"
 do
 loop until inkey <> ""
-CLS
+
+
+
+cls
 LOCATE 13, 10
 COLOR 13
 PRINT "Du hast gewonnen!"
 do
 loop until inkey <> ""
-COLOR 15
 
 
 
@@ -1438,25 +1232,25 @@
 
 
 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"
+PRINT "+-- Inventar -----------+"
+PRINT "|                       |"
+PRINT "|  Autoschluessel       |"
+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       |"
+PRINT "|                       |"
+PRINT "+-----------------------+"
 RETURN
 
 
 
 befehle:
-PRINT ""
+COLOR 3
 PRINT "Moegliche Befehle:"
 PRINT ""
-COLOR 3
 PRINT "umschauen"
 PRINT "oeffnen <Objekt>"
 PRINT "benutzen <Objekt>"