midds

changeset 2:53d9408c7cdb

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, 663 insertions(+), 869 deletions(-) [+]
line diff
     1.1 --- a/Midds_reco.bas	Mon Sep 03 14:19:39 2007 +0200
     1.2 +++ b/Midds_reco.bas	Mon Sep 03 20:51:10 2007 +0200
     1.3 @@ -24,13 +24,13 @@
     1.4  'Midds'
     1.5  
     1.6  
     1.7 -CLS
     1.8 +cls
     1.9  LOCATE 13, 6
    1.10  COLOR 15
    1.11  PRINT "*** Mord in der Dorfstrasse ***"
    1.12 +COLOR 7
    1.13  'LINE (20, 60)-(300, 140), 2, B
    1.14  LOCATE 24, 2
    1.15 -COLOR 7
    1.16  PRINT "(c) Copyright 1999 Elefant Software"
    1.17  do
    1.18  loop until inkey <> ""
    1.19 @@ -40,714 +40,616 @@
    1.20  
    1.21  
    1.22  
    1.23 -CLS
    1.24 +cls
    1.25  COLOR 6
    1.26  PRINT "Dies ist ein Kriminalspiel,"
    1.27  PRINT "das die grauen Zellen fordert."
    1.28 +print
    1.29 +PRINT
    1.30 +PRINT "Druecke 'q' um das Spiel zu beenden."
    1.31 +PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
    1.32 +PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
    1.33 +COLOR 7
    1.34  do
    1.35  loop until inkey <> ""
    1.36  
    1.37  
    1.38 -
    1.39 -CLS
    1.40 -GOSUB befehle
    1.41 -do
    1.42 -loop until inkey <> ""
    1.43 -
    1.44 -
    1.45 -
    1.46 -CLS
    1.47 -COLOR 6
    1.48 -PRINT
    1.49 -PRINT "Druecke 'q' um das Spiel zu beenden."
    1.50 -PRINT
    1.51 -PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
    1.52 -PRINT
    1.53 -PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
    1.54 -do
    1.55 -loop until inkey <> ""
    1.56 -
    1.57 -
    1.58  X:
    1.59 -CLS
    1.60 +cls
    1.61  PRINT ""
    1.62  LOCATE 13, 6
    1.63  COLOR 6
    1.64  PRINT "So jetzt geht's endlich los!!!"
    1.65 -do
    1.66 -loop until inkey <> ""
    1.67 -CLS
    1.68 -GOTO 1
    1.69 -
    1.70 -
    1.71 -
    1.72 -
    1.73 -
    1.74 -1 :
    1.75 -'''''''''' Vor dem Haus '''''''''
    1.76 -zuege = 0
    1.77 -a1:
    1.78 -CLS
    1.79 -PRINT ""
    1.80 -COLOR 2
    1.81 -PRINT "Du heisst "; name1$; " und bist"
    1.82 -PRINT "Privatdetektiv. Du wurdest von "
    1.83 -PRINT "Herr Fisch angerufen um einen Mord"
    1.84 -PRINT "aufzuklaeren."
    1.85 -PRINT "Natuerlich bist du sofort in deinen"
    1.86 -PRINT "Renault 19 gestiegen und losgefahren."
    1.87 -PRINT "Jetzt stehst du vor Haus Nummer 6"
    1.88 -PRINT "in der Dorfstrasse."
    1.89 -PRINT
    1.90  COLOR 7
    1.91 -INPUT "(Vor dem Haus) Was machst du? ", B$
    1.92 -zuege% = zuege% + 1
    1.93 -IF B$ = "benutzen Klingel" GOTO 2
    1.94 -IF B$ = "oeffnen Tuer" THEN PRINT "Du kannst doch nicht einfach fremde  Haeuser betreten."
    1.95 -IF B$ = "oeffnen Tuer" THEN SLEEP
    1.96 -IF B$ = "oeffnen Tuer" GOTO a1
    1.97 -IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde  Haeuser betreten."
    1.98 -IF B$ = "gehen in Haus" THEN SLEEP
    1.99 -IF B$ = "gehen in Haus" GOTO a1
   1.100 -IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
   1.101 -IF B$ = "gehen Heim" GOTO a1
   1.102 -IF B$ = "q" THEN END
   1.103 -IF B$ = "i" THEN GOSUB inventar
   1.104 -IF B$ = "b" THEN GOSUB befehle
   1.105 -PRINT ""
   1.106 -PRINT "Noe!"
   1.107 -PRINT ""
   1.108 -IF zuege% = 5 THEN GOTO a
   1.109 -IF zuege% = 9 THEN GOTO B
   1.110 -IF zuege% = 9 THEN GOTO 2
   1.111 -do
   1.112 -loop until inkey <> ""
   1.113 -GOTO a1
   1.114 -
   1.115 -a:
   1.116 -COLOR 4
   1.117 -PRINT "          Tipp: benutzen ..."
   1.118 -SLEEP
   1.119 -GOTO a1
   1.120 -
   1.121 -B:
   1.122 -COLOR 4
   1.123 -PRINT "          Loesung: benutzen Klingel"
   1.124 -SLEEP
   1.125 -CLS
   1.126 -GOTO 2
   1.127 -
   1.128 -
   1.129 -
   1.130 -
   1.131 -
   1.132 -
   1.133 -
   1.134 -2 :
   1.135 -CLS
   1.136 -COLOR 2
   1.137 -PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
   1.138 -PRINT ""
   1.139  do
   1.140  loop until inkey <> ""
   1.141  
   1.142 -CLS
   1.143 -LOCATE 13, 10
   1.144 -COLOR 10
   1.145 -PRINT "Flur"
   1.146 +
   1.147 +
   1.148 +
   1.149 +
   1.150 +ort_vordemhaus :
   1.151 +'''''''''' Vor dem Haus '''''''''
   1.152 +cls
   1.153 +COLOR 2
   1.154 +  PRINT "Du heisst "; name1$; " und bist"
   1.155 +  PRINT "Privatdetektiv. Du wurdest von "
   1.156 +  PRINT "Herr Fisch angerufen um einen Mord"
   1.157 +  PRINT "aufzuklaeren."
   1.158 +  PRINT "Natuerlich bist du sofort in deinen"
   1.159 +  PRINT "Renault 19 gestiegen und losgefahren."
   1.160 +  PRINT "Jetzt stehst du vor Haus Nummer 6"
   1.161 +  PRINT "in der Dorfstrasse."
   1.162 +  PRINT
   1.163 +COLOR 7
   1.164 +
   1.165 +zuege = 0
   1.166  do
   1.167 -loop until inkey <> ""
   1.168 -zuege% = 0
   1.169 -GOTO 3
   1.170  
   1.171 +  INPUT "(Vor dem Haus) Was machst du? ", B$
   1.172 +  B$ = lcase(B$)
   1.173  
   1.174 +  select case B$
   1.175 +    case "benutzen klingel"
   1.176 +      COLOR 2
   1.177 +      PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
   1.178 +      PRINT
   1.179 +      COLOR 7
   1.180 +      goto ort_flur
   1.181 +    case "oeffnen tuer"
   1.182 +      PRINT "  Haustueren kann man von aussen ohne Schluessel nicht oeffnen."
   1.183 +    case "gehen in haus"
   1.184 +      PRINT "  Die Tuer ist zu."
   1.185 +    case "gehen heim"
   1.186 +      PRINT "  Du Angsthase"
   1.187 +    case "q"
   1.188 +      END
   1.189 +    case "i"
   1.190 +      GOSUB inventar
   1.191 +    case "b"
   1.192 +      GOSUB befehle
   1.193 +    case else
   1.194 +      PRINT "  Noe!"
   1.195 +  end select
   1.196  
   1.197 +  zuege% = zuege% + 1
   1.198 +  IF zuege% = 5 THEN PRINT "          Tipp: benutzen ..."
   1.199 +  IF zuege% > 8 THEN PRINT "          Loesung: benutzen Klingel"
   1.200  
   1.201 -3 :
   1.202 -'''''''' Flur '''''''
   1.203 -CLS
   1.204 -IF kerzenst% = 1 GOTO 116
   1.205 -COLOR 2
   1.206 -PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
   1.207 -PRINT
   1.208 -COLOR 7
   1.209 -INPUT "(Flur) Was machst du? ", B$
   1.210 -zuege% = zuege% + 1
   1.211 -IF B$ = "sprechen mit Herr Fisch" GOTO 4
   1.212 -IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
   1.213 -IF B$ = "umschauen" GOTO 117
   1.214 -IF B$ = "untersuchen Flur" GOTO 117
   1.215 -IF B$ = "gehen in Schlafzimmer" GOTO 114
   1.216 -IF B$ = "gehen in Arbeitszimmer" GOTO 105
   1.217 -IF B$ = "gehen in Esszimmer" GOTO 106
   1.218 -IF B$ = "gehen in Kueche" GOTO 109
   1.219 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
   1.220 -IF B$ = "q" THEN END
   1.221 -IF B$ = "i" THEN GOSUB inventar
   1.222 -IF B$ = "b" THEN GOSUB befehle
   1.223 -PRINT ""
   1.224 -PRINT "Keine Lust!"
   1.225 -PRINT ""
   1.226 -IF zuege% = 6 THEN GOTO c
   1.227 -do
   1.228 -loop until inkey <> ""
   1.229 -GOTO 3
   1.230 -
   1.231 -c:
   1.232 -COLOR 4
   1.233 -PRINT "Tipp: sprechen mit ..."
   1.234 -do
   1.235 -loop until inkey <> ""
   1.236 -CLS
   1.237 -GOTO 3
   1.238 -
   1.239 -
   1.240 -
   1.241 -
   1.242 -4 :
   1.243 -CLS
   1.244 -COLOR 9
   1.245 -PRINT "A: Ich heisse "; name1$; "."
   1.246 -PRINT "B: Wo ist die Leiche?"
   1.247 -PRINT "C: Wie heisst der Tote?"
   1.248 -PRINT "D: Ende."
   1.249 -PRINT ""
   1.250 -COLOR 12
   1.251 -INPUT "Was sagst du?", s$
   1.252 -PRINT
   1.253 -COLOR 9
   1.254 -IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
   1.255 -IF s$ = "B" THEN PRINT "Im Schlafzimmer."
   1.256 -IF s$ = "B" THEN SLEEP
   1.257 -IF s$ = "B" GOTO 5
   1.258 -IF s$ = "C" THEN PRINT "Karl Mueller."
   1.259 -IF s$ = "D" THEN END
   1.260 -do
   1.261 -loop until inkey <> ""
   1.262 -GOTO 4
   1.263 -
   1.264 -
   1.265 -
   1.266 -
   1.267 -
   1.268 -5 :
   1.269 -CLS
   1.270 -COLOR 9
   1.271 -PRINT
   1.272 -PRINT "A: Ich heisse "; name1$; ""
   1.273 -PRINT "B: Wo ist die Leiche?"
   1.274 -PRINT "C: Wie heisst der Tote?"
   1.275 -PRINT "D: Wo ist das Schlafzimmer?"
   1.276 -PRINT "E: Ende"
   1.277 -PRINT ""
   1.278 -PRINT ""
   1.279 -COLOR 12
   1.280 -INPUT "Was sagst du?", s$
   1.281 -PRINT
   1.282 -COLOR 9
   1.283 -IF s$ = "A" THEN PRINT "Ich heisse Manfred Fisch."
   1.284 -IF s$ = "B" THEN PRINT "Im Schlafzimmer."
   1.285 -IF s$ = "C" THEN PRINT "Karl Mueller."
   1.286 -IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
   1.287 -IF s$ = "E" THEN GOTO 6
   1.288 -do
   1.289 -loop until inkey <> ""
   1.290 -GOTO 5
   1.291 -
   1.292 -
   1.293 -
   1.294 -
   1.295 -
   1.296 -6 :
   1.297 -''''''' Flur ''''''''
   1.298 -CLS
   1.299 -zuege% = 0
   1.300 -LOCATE 13, 10
   1.301 -COLOR 10
   1.302 -PRINT "Flur"
   1.303 -do
   1.304 -loop until inkey <> ""
   1.305 -a6:
   1.306 -CLS
   1.307 -COLOR 7
   1.308 -PRINT
   1.309 -IF kerzenst% = 1 GOTO 116
   1.310 -PRINT
   1.311 -INPUT "(Flur) Was machst du? ", B$
   1.312 -zuege% = zuege% + 1
   1.313 -IF B$ = "sprechen mit Herr Fisch" GOTO 5
   1.314 -IF B$ = "gehen in Schlafzimmer" GOTO 7
   1.315 -IF B$ = "gehen in Arbeitszimmer" GOTO 105
   1.316 -IF B$ = "gehen in Esszimmer" GOTO 106
   1.317 -IF B$ = "gehen in Kueche" GOTO 109
   1.318 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
   1.319 -IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuss!"
   1.320 -IF B$ = "gehen Heim " GOTO a6
   1.321 -IF B$ = "q" THEN END
   1.322 -IF B$ = "i" THEN GOSUB inventar
   1.323 -IF B$ = "b" THEN GOSUB befehle
   1.324 -PRINT ""
   1.325 -PRINT "Nee!"
   1.326 -IF zuege = 5 GOTO d
   1.327 -GOTO a6
   1.328 -
   1.329 -
   1.330 -d:
   1.331 -COLOR 4
   1.332 -PRINT "gehen in ..."
   1.333 -do
   1.334 -loop until inkey <> ""
   1.335 -GOTO a6
   1.336 -
   1.337 -
   1.338 -
   1.339 -
   1.340 -
   1.341 -
   1.342 -
   1.343 -7 :
   1.344 -CLS
   1.345 -COLOR 2
   1.346 -PRINT "Die Leiche, ein etwa 20 Jahre alter"
   1.347 -PRINT "Mann, liegt mit einem Messer im Ruecken"
   1.348 -PRINT "auf dem Bett. Ich decke die Leiche"
   1.349 -PRINT "als erstes mit einem Tuch ab und rufe"
   1.350 -PRINT "mit meinem Handy Tina an. Tina ist"
   1.351 -PRINT "Spezialistin fuer Fingerabdruecke."
   1.352 -do
   1.353 -loop until inkey <> ""
   1.354 -GOTO 8
   1.355 -
   1.356 -
   1.357 -
   1.358 -
   1.359 -
   1.360 -
   1.361 -8 :
   1.362 -''''''' Schlafzimmer '''''''''
   1.363 -CLS
   1.364 -PRINT
   1.365 -COLOR 7
   1.366 -INPUT "(Schlafzimmer) Was machst du? ", B$
   1.367 -IF B$ = "gehen in Flur" GOTO 103
   1.368 -IF B$ = "gehen in Arbeitszimmer" GOTO 105
   1.369 -IF B$ = "gehen in Esszimmer" GOTO 106
   1.370 -IF B$ = "gehen in Kueche" GOTO 109
   1.371 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
   1.372 -IF B$ = "umschauen" GOTO 9
   1.373 -IF B$ = "untersuchen Schlafzimmer" GOTO 9
   1.374 -IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
   1.375 -IF B$ = "oeffnen Aktenschrank" GOTO 101
   1.376 -IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
   1.377 -IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Strasse."
   1.378 -IF B$ = "untersuchen Bett" GOTO 100
   1.379 -IF B$ = "nehmen Taschenlampe" GOTO e
   1.380 -IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
   1.381 -IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
   1.382 -IF B$ = "sprechen mit Tina" THEN PRINT "Die stoere ich lieber nicht bei der Arbeit."
   1.383 -IF B$ = "q" THEN END
   1.384 -IF B$ = "i" THEN GOSUB inventar
   1.385 -IF B$ = "b" THEN GOSUB befehle
   1.386 -PRINT
   1.387 -PRINT "Nein"
   1.388 -PRINT
   1.389 -do
   1.390 -loop until inkey <> ""
   1.391 -GOTO 8
   1.392 -
   1.393 -
   1.394 -
   1.395 -
   1.396 -e:
   1.397 -CLS
   1.398 -LOCATE 11, 22
   1.399 -PRINT "Du hast die Taschenlampe genommen"
   1.400 -tlampe% = 1
   1.401 -do
   1.402 -loop until inkey <> ""
   1.403 -CLS
   1.404 -GOTO 8
   1.405 -
   1.406 -
   1.407 -
   1.408 -
   1.409 -
   1.410 -9 :
   1.411 -CLS
   1.412 -COLOR 2
   1.413 -PRINT "In der Mitte steht das Bett, ueber dem"
   1.414 -PRINT "Bett haengt ein Poster, auf der"
   1.415 -PRINT "linken Seite befindet sich ein Schrank"
   1.416 -PRINT "und an der rechten Wand ist ein Fenster."
   1.417 -IF vvx% = 1 THEN PRINT "Tina sichert gerade"
   1.418 -IF vvx% = 1 THEN PRINT "die Fingerabdruecke."
   1.419 -do
   1.420 -loop until inkey <> ""
   1.421 -GOTO 8
   1.422 -
   1.423 -
   1.424 -
   1.425 -
   1.426 -
   1.427 -100 :
   1.428 -CLS
   1.429 -COLOR 2
   1.430 -PRINT "Unter dem Bett liegt eine Taschenlampe."
   1.431 -do
   1.432 -loop until inkey <> ""
   1.433 -GOTO 8
   1.434 -
   1.435 -
   1.436 -
   1.437 -
   1.438 -
   1.439 -101 :
   1.440 -CLS
   1.441 -versuch% = 0
   1.442 -COLOR 2
   1.443 -PRINT "Hinter den Ordnern ist ein Geheimfach"
   1.444 -PRINT "mit einem dreistelligen Zahlenschloss."
   1.445 -do
   1.446 -loop until inkey <> ""
   1.447 -a101:
   1.448 -CLS
   1.449 -versuch% = versuch% + 1
   1.450 -COLOR 5
   1.451 -INPUT "Wie lautet die Kombination?", k$
   1.452 -IF k$ = "000" THEN PRINT "War wohl falsch."
   1.453 -IF k$ = "007" GOTO 102
   1.454 -IF k$ = "q" THEN END
   1.455 -PRINT "Komm streng dich ein bischen an!"
   1.456 -IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
   1.457 -IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
   1.458 -do
   1.459 -loop until inkey <> ""
   1.460 -GOTO a101
   1.461 -
   1.462 -
   1.463 -
   1.464 -
   1.465 -102 :
   1.466 -CLS
   1.467 -COLOR 2
   1.468 -PRINT "Bravo, du hast echt gut kombiniert."
   1.469 -PRINT "In dem Geheimfach befindet sich ein Schluessel."
   1.470 -do
   1.471  loop until inkey <> ""
   1.472  
   1.473  
   1.474  
   1.475  
   1.476 -F:
   1.477 -CLS
   1.478 -PRINT "Du hast den Schluessel genommen"
   1.479 -schluessel% = 1
   1.480 +
   1.481 +
   1.482 +
   1.483 +
   1.484 +ort_flur :
   1.485 +'''''''' Flur '''''''
   1.486 +'IF kerzenst% = 1 GOTO 116
   1.487 +
   1.488 +COLOR 7
   1.489 +
   1.490 +zuege% = 0
   1.491  do
   1.492 +  INPUT "(Flur) Was machst du? ", B$
   1.493 +  B$ = lcase(B$)
   1.494 +  select case B$
   1.495 +    case "sprechen mit herr fisch"
   1.496 +      goto gespraech_herrfisch
   1.497 +    case "gehen heim"
   1.498 +      PRINT "  Du Angsthase!"
   1.499 +    case "umschauen", "untersuchen flur"
   1.500 +      GOTO 117
   1.501 +    case "gehen in schlafzimmer"
   1.502 +      goto ort_schlafzimmer
   1.503 +    case "gehen in arbeitszimmer"
   1.504 +      GOTO ort_arbeitszimmer
   1.505 +    case "gehen in esszimmer"
   1.506 +      GOTO ort_esszimmer
   1.507 +    case "gehen in kueche"
   1.508 +      GOTO ort_kueche
   1.509 +    case "gehen in lagerhalle"
   1.510 +      if kx% = 1 AND sx% = 1 GOTO 132
   1.511 +    case "sprechen mit Tina"
   1.512 +      if tinaistda = 1 then GOTO 118
   1.513 +    case "q"
   1.514 +      END
   1.515 +    case "i"
   1.516 +      GOSUB inventar
   1.517 +    case "b"
   1.518 +      GOSUB befehle
   1.519 +    case else
   1.520 +      PRINT "  Keine Lust!"
   1.521 +      PRINT
   1.522 +  end select
   1.523 +
   1.524 +  zuege% = zuege% + 1
   1.525 +  IF zuege% = 6 THEN PRINT "  Tipp: sprechen mit ..."
   1.526  loop until inkey <> ""
   1.527 -CLS
   1.528 -GOTO 114
   1.529  
   1.530  
   1.531  
   1.532  
   1.533  
   1.534 -103 :
   1.535 -CLS
   1.536 -LOCATE 13, 10
   1.537 -COLOR 10
   1.538 -PRINT "Flur"
   1.539 +
   1.540 +gespraech_herrfisch :
   1.541 +''''''''' gespraech mit herr fisch ''''''''''
   1.542 +
   1.543 +color 2
   1.544 +print "Du beginnst ein Gespraech mit Herr Fisch."
   1.545 +print
   1.546 +
   1.547  do
   1.548 +  COLOR 7
   1.549 +  PRINT "A: Hallo, ich heisse "; name1$; "."
   1.550 +  PRINT "B: Wo ist die Leiche?"
   1.551 +  PRINT "C: Wie heisst der Tote?"
   1.552 +  if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
   1.553 +  PRINT "Z: Bis spaeter."
   1.554 +  COLOR 1
   1.555 +  INPUT "Was sagst du zu Herr Fisch? ", s$
   1.556 +  s$ = lcase(s$)
   1.557 +  COLOR 7
   1.558 +  print "Er antwortet:"
   1.559 +  COLOR 4
   1.560 +  select case s$
   1.561 +    case "a"
   1.562 +      PRINT "  Ich heisse Manfred Fisch."
   1.563 +    case "b"
   1.564 +      PRINT "  Im Schlafzimmer."
   1.565 +      woIstDasSchlafzimmer = 1
   1.566 +    case "c"
   1.567 +      PRINT "  Karl Mueller."
   1.568 +    case "d"
   1.569 +      if woIstDasSchlafzimmer = 1 THEN PRINT "  Die Treppe hinauf dann links."
   1.570 +    case "z"
   1.571 +      PRINT "  Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an."
   1.572 +      print
   1.573 +      color 2
   1.574 +      print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten"
   1.575 +      print
   1.576 +      goto ort_flur
   1.577 +    case "q"
   1.578 +      end
   1.579 +  end select
   1.580 +  print
   1.581  loop until inkey <> ""
   1.582 -GOTO 104
   1.583  
   1.584  
   1.585  
   1.586  
   1.587  
   1.588 -104 :
   1.589 -CLS
   1.590 +
   1.591 +
   1.592 +
   1.593 +
   1.594 +
   1.595 +
   1.596 +
   1.597 +
   1.598 +ort_schlafzimmer :
   1.599 +''''''' Schlafzimmer '''''''''
   1.600 +
   1.601 +if tinaangerufen = 0 then
   1.602 +  COLOR 2
   1.603 +  PRINT "Die Leiche, ein etwa 20 Jahre alter"
   1.604 +  PRINT "Mann, liegt mit einem Messer im Ruecken"
   1.605 +  PRINT "auf dem Bett. Ich decke die Leiche"
   1.606 +  PRINT "als erstes mit einem Tuch ab und rufe"
   1.607 +  PRINT "mit meinem Handy Tina an. Tina ist"
   1.608 +  PRINT "Spezialistin fuer Fingerabdruecke."
   1.609 +  tinaangerufen = 1
   1.610 +else
   1.611 +  color 2
   1.612 +  print "Du bist im Schlafzimmer"
   1.613 +end if
   1.614 +
   1.615 +do
   1.616 +  PRINT
   1.617 +  COLOR 7
   1.618 +  INPUT "(Schlafzimmer) Was machst du? ", B$
   1.619 +  B$ = lcase(B$)
   1.620 +  select case B$
   1.621 +    case "gehen in flur"
   1.622 +      goto ort_flur
   1.623 +
   1.624 +    case "gehen in arbeitszimmer"
   1.625 +      goto ort_arbeitszimmer
   1.626 +
   1.627 +    case "gehen in esszimmer"
   1.628 +      goto  ort_esszimmer
   1.629 +
   1.630 +    case "gehen in kueche"
   1.631 +      goto ort_kueche
   1.632 +
   1.633 +    case "gehen in lagerhalle"
   1.634 +      if kx% = 1 AND sx% = 1 goto 132
   1.635 +
   1.636 +    case "umschauen", "untersuchen schlafzimmer"
   1.637 +      COLOR 2
   1.638 +      PRINT "In der Mitte steht das Bett, ueber dem"
   1.639 +      PRINT "Bett haengt ein Poster, auf der"
   1.640 +      PRINT "linken Seite befindet sich ein Schrank"
   1.641 +      PRINT "und an der rechten Wand ist ein Fenster."
   1.642 +      IF tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke."
   1.643 +
   1.644 +    case "untersuchen schrank"
   1.645 +      PRINT "Ein alter Aktenschrank."
   1.646 +
   1.647 +    case "oeffnen aktenschrank"
   1.648 +      versuch% = 0
   1.649 +      COLOR 2
   1.650 +      PRINT "Hinter den Ordnern ist ein Geheimfach"
   1.651 +      PRINT "mit einem dreistelligen Zahlenschloss."
   1.652 +      geheimfachgefunden = 1
   1.653 +
   1.654 +      do
   1.655 +        versuch% = versuch% + 1
   1.656 +        COLOR 5
   1.657 +        INPUT "Wie lautet die Kombination?", k$
   1.658 +        IF k$ = "000" THEN PRINT "War wohl falsch."
   1.659 +        IF k$ = "007" then
   1.660 +          PRINT "Bravo, du hast echt gut kombiniert."
   1.661 +          geheimfachoffen = 1
   1.662 +        end if
   1.663 +        IF k$ = "q" goto ort_schlafzimmer
   1.664 +        PRINT "Komm streng dich ein bisschen an!"
   1.665 +        IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
   1.666 +        IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
   1.667 +      loop until inkey <> ""
   1.668 +
   1.669 +    case "untersuchen fenster"
   1.670 +      PRINT "Wenn man hinaus schaut, sieht man die Strasse."
   1.671 +
   1.672 +    case "untersuchen bett"
   1.673 +      COLOR 2
   1.674 +      PRINT "Unter dem Bett liegt eine Taschenlampe."
   1.675 +
   1.676 +    case "nehmen taschenlampe"
   1.677 +      PRINT "Du hast die Taschenlampe genommen"
   1.678 +      tlampe% = 1
   1.679 +
   1.680 +    case "untersuchen geheimfach"
   1.681 +      if geheimfachgefunden = 1 then
   1.682 +        COLOR 2
   1.683 +        PRINT "In dem Geheimfach befindet sich ein Schluessel."
   1.684 +      end if
   1.685 +
   1.686 +    case "nehmen schluessel"
   1.687 +      if geheimfachoffen = 1 then
   1.688 +        PRINT "Du hast den Schluessel aus dem Geheimfach genommen"
   1.689 +        schluessel% = 1
   1.690 +      end if
   1.691 +
   1.692 +    case "untersuchen poster"
   1.693 +      PRINT "Da steht - Sean Connery als James Bond"
   1.694 +      PRINT "in SAG NIEMALS NIE - drauf."
   1.695 +
   1.696 +    case "sprechen mit tina"
   1.697 +      if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."
   1.698 +
   1.699 +    case "q"
   1.700 +      END
   1.701 +    case "i"
   1.702 +      GOSUB inventar
   1.703 +    case "b"
   1.704 +      GOSUB befehle
   1.705 +    case else
   1.706 +      PRINT "Nein"
   1.707 +  end select
   1.708 +loop until inkey <> ""
   1.709 +
   1.710 +
   1.711 +
   1.712 +
   1.713 +
   1.714 +
   1.715 +
   1.716 +
   1.717 +
   1.718 +
   1.719 +
   1.720 +
   1.721 +
   1.722 +
   1.723 +
   1.724 +
   1.725 +
   1.726 +
   1.727 +
   1.728 +
   1.729 +
   1.730 +
   1.731 +
   1.732 +
   1.733 +ort_arbeitszimmer :
   1.734 +'''''''' Arbeitszimmer '''''''
   1.735 +
   1.736  COLOR 2
   1.737 -PRINT "Links geht es die Treppe zum Schlafzimmer"
   1.738 -PRINT "hinauf, gerade aus geht's ins Esszimmer"
   1.739 -PRINT " und rechts ins Arbeitszimmer."
   1.740 +PRINT "Du bist im Arbeitszimmer."
   1.741 +
   1.742  do
   1.743 +  COLOR 7
   1.744 +  INPUT "(Arbeitszimmer) Was machst du? ", B$
   1.745 +  B$ = lcase(B$)
   1.746 +  select case B$
   1.747 +    case "gehen in Schlafzimmer"
   1.748 +      goto ort_schlafzimmer
   1.749 +
   1.750 +    case "gehen in Flur"
   1.751 +      goto ort_flur
   1.752 +
   1.753 +    case "gehen in Esszimmer"
   1.754 +      goto ort_esszimmer
   1.755 +
   1.756 +    case "gehen in Kueche"
   1.757 +      goto ort_kueche
   1.758 +
   1.759 +    case "gehen in Lagerhalle"
   1.760 +      if kx% = 1 AND sx% = 1 then goto 132
   1.761 +
   1.762 +    case "umschauen", "untersuchen Arbeitszimmer"
   1.763 +      COLOR 2
   1.764 +      PRINT "In der Mitte steht ein Schreibtisch,"
   1.765 +      PRINT "rechts befindet sich ein Schrank und"
   1.766 +      PRINT "links ein Buecherregal."
   1.767 +
   1.768 +    case "untersuchen Schreibtisch"
   1.769 +      PRINT "Da gibt's nichts Besonderes zu sehen."
   1.770 +
   1.771 +    case "untersuchen Buecherregal"
   1.772 +      COLOR 2
   1.773 +      IF tinaistimschlafzimmer = 0 then
   1.774 +        PRINT "Ich sehe nichts Besonderes."
   1.775 +      else
   1.776 +        PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
   1.777 +        PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
   1.778 +        PRINT "ich mir genauer anschauen."
   1.779 +      end if
   1.780 +
   1.781 +    case "untersuchen Buch"
   1.782 +      PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
   1.783 +
   1.784 +    case "nehmen Buch"
   1.785 +      COLOR 2
   1.786 +      PRINT "Das Buch laesst sich nur halb heraus ziehen."
   1.787 +      PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
   1.788 +      PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
   1.789 +      PRINT "Sie ist durch ein Schluessel- und ein "
   1.790 +      PRINT "Zahlenschloss gesichert."
   1.791 +      PRINT
   1.792 +      COLOR 6
   1.793 +      PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
   1.794 +      PRINT "die Zahlenkombination eingeben."
   1.795 +
   1.796 +    case "benutzen Schluessel"
   1.797 +      PRINT "Das Schluesselschloss waere geknackt."
   1.798 +      sx% = 1
   1.799 +      COLOR 2
   1.800 +      IF kx% = 1 GOTO 137
   1.801 +      PRINT "Jetzt musst du nur noch die Kombination knacken."
   1.802 +
   1.803 +    case "gehen in Geheimgang"
   1.804 +      if kx% = 1 AND sx% = 1 then
   1.805 +        goto 127
   1.806 +      end if
   1.807 +
   1.808 +    case "z"
   1.809 +      do
   1.810 +        COLOR 5
   1.811 +        INPUT "Wie lautet die Kombination?", zk$
   1.812 +        select case zk$
   1.813 +          case "007"
   1.814 +            PRINT "So einfach ist es nicht"
   1.815 +          case "123"
   1.816 +            COLOR 2
   1.817 +            PRINT "Die Kombination war richtig."
   1.818 +            kx% = 1
   1.819 +            IF sx% = 1 GOTO 137
   1.820 +            PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
   1.821 +          case "q"
   1.822 +            PRINT "Tipp: Das Buecherregal."
   1.823 +            GOTO ort_arbeitszimmer
   1.824 +          case else
   1.825 +            PRINT "Leider falsch. Probier's noch einmal."
   1.826 +        end select
   1.827 +      loop until inkey <> ""
   1.828 +
   1.829 +    case "i"
   1.830 +      GOSUB inventar
   1.831 +    case "q"
   1.832 +      END
   1.833 +    case "b"
   1.834 +      GOSUB befehle
   1.835 +    case else
   1.836 +      PRINT "Heute nicht!"
   1.837 +  end select
   1.838  loop until inkey <> ""
   1.839 -GOTO a6
   1.840  
   1.841  
   1.842  
   1.843  
   1.844  
   1.845 -105 :
   1.846 -'''''''' Arbeitszimmer '''''''
   1.847 -CLS
   1.848 -LOCATE 13, 10
   1.849 -COLOR 10
   1.850 -PRINT "Arbeitszimmer"
   1.851 +
   1.852 +
   1.853 +
   1.854 +
   1.855 +
   1.856 +
   1.857 +
   1.858 +ort_esszimmer :
   1.859 +'''''' Esszimmer ''''''
   1.860 +
   1.861 +COLOR 2
   1.862 +print "Du bist im Esszimmer."
   1.863  do
   1.864 +
   1.865 +COLOR 7
   1.866 +print
   1.867 +INPUT "(Esszimmer) Was machst du? ", B$
   1.868 +B$ = lcase(b$)
   1.869 +select case B$
   1.870 +  case "gehen in schlafzimmer"
   1.871 +    goto ort_schlafzimmer
   1.872 +
   1.873 +  case "gehen in flur"
   1.874 +    GOTO ort_flur
   1.875 +
   1.876 +  case "gehen in arbeitszimmer"
   1.877 +    GOTO ort_arbeitszimmer
   1.878 +
   1.879 +  case "gehen in kueche"
   1.880 +    GOTO ort_kueche
   1.881 +
   1.882 +  case "gehen in lagerhalle"
   1.883 +    if kx% = 1 AND sx% = 1 GOTO 132
   1.884 +
   1.885 +  case "umschauen", "untersuchen esszimmer"
   1.886 +    color 2
   1.887 +    PRINT "In der Mitte steht der Tisch und auf"
   1.888 +    PRINT "der rechten Seite ist die Tuer zur Kueche."
   1.889 +
   1.890 +  case "untersuchen tisch"
   1.891 +    color 2
   1.892 +    PRINT "Ein schoener eichener Tisch mit einer"
   1.893 +    PRINT "gehaekelten Tischdecke."
   1.894 +    if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender."
   1.895 +
   1.896 +  case "nehmen kerzenstaender"
   1.897 +    kerzenst% = 1
   1.898 +    color 2
   1.899 +    PRINT "Du hast den Kerzenstaender genommen"
   1.900 +
   1.901 +  case "q"
   1.902 +    END
   1.903 +  case "i"
   1.904 +    GOSUB inventar
   1.905 +  case "b"
   1.906 +    GOSUB befehle
   1.907 +end select
   1.908  loop until inkey <> ""
   1.909 -a105:
   1.910 -CLS
   1.911 -COLOR 7
   1.912 -INPUT "(Arbeitszimmer) Was machst du? ", B$
   1.913 -IF B$ = "gehen in Schlafzimmer" GOTO 114
   1.914 -IF B$ = "gehen in Flur" GOTO 103
   1.915 -IF B$ = "gehen in Esszimmer" GOTO 106
   1.916 -IF B$ = "gehen in Kueche" GOTO 109
   1.917 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
   1.918 -IF B$ = "umschauen" GOTO 107
   1.919 -IF B$ = "untersuchen Arbeitszimmer" GOTO 107
   1.920 -IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
   1.921 -IF B$ = "untersuchen Buecherregal" GOTO 122
   1.922 -IF B$ = "untersuchen Buch" THEN PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
   1.923 -IF B$ = "nehmen Buch" GOTO 124
   1.924 -IF B$ = "benutzen Schluessel" THEN PRINT "Das Schluesselschloss waere geknackt."
   1.925 -IF B$ = "benutzen Schluessel" THEN sx% = 1
   1.926 -IF B$ = "benutzen Schluessel" GOTO 138
   1.927 -IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
   1.928 -IF B$ = "z" GOTO 125
   1.929 -IF B$ = "i" THEN GOSUB inventar
   1.930 -IF B$ = "q" THEN END
   1.931 -IF B$ = "b" THEN GOSUB befehle
   1.932 +
   1.933 +
   1.934 +
   1.935 +
   1.936 +
   1.937 +
   1.938 +
   1.939 +
   1.940 +
   1.941 +
   1.942 +
   1.943 +
   1.944 +
   1.945 +
   1.946 +
   1.947 +
   1.948 +ort_kueche :
   1.949 +'''''''' Kueche '''''''
   1.950 +
   1.951 +COLOR 2
   1.952 +PRINT "Du bist in der Kueche."
   1.953 +
   1.954  do
   1.955 +  color 7
   1.956 +  INPUT "(Kueche) Was machst du?", B$
   1.957 +  B$ = lcase(B$)
   1.958 +  select case B$
   1.959 +    case "gehen in schlafzimmer"
   1.960 +      goto ort_schlafzimmer
   1.961 +
   1.962 +    case "gehen in flur"
   1.963 +      goto ort_flur
   1.964 +
   1.965 +    case "gehen in arbeitszimmer"
   1.966 +      goto ort_arbeitszimmer
   1.967 +
   1.968 +    case "gehen in esszimmer"
   1.969 +      goto ort_esszimmer
   1.970 +
   1.971 +    case "gehen in lagerhalle"
   1.972 +      if kx% = 1 AND sx% = 1 then goto 132
   1.973 +
   1.974 +    case "umschauen", "untersuchen kueche"
   1.975 +      PRINT "Links ist die Kochzeile, in der Mitte"
   1.976 +      PRINT "ein kleiner Tisch mit zwei Stuehlen und"
   1.977 +      PRINT "rechts der Kuechenschrank."
   1.978 +
   1.979 +    case "untersuchen kuechenschrank"
   1.980 +      PRINT "Es ist nichts Ausergewoehnliches daran"
   1.981 +      PRINT "zu erkennen, nur eine Schublade in der"
   1.982 +      PRINT "es bestimmt Interesantes zu entdecken gibt."
   1.983 +
   1.984 +    case "oeffnen schublade"
   1.985 +      PRINT "In der Schublade liegt sich ein Messer."
   1.986 +
   1.987 +    case "nehmen messer"
   1.988 +      PRINT "Du hast das Messer genommen"
   1.989 +      messer% = 1
   1.990 +
   1.991 +    case "q"
   1.992 +      END
   1.993 +
   1.994 +    case "i"
   1.995 +      GOSUB inventar
   1.996 +
   1.997 +    case "b"
   1.998 +      GOSUB befehle
   1.999 +
  1.1000 +    case else
  1.1001 +      print "Will ich nicht."
  1.1002 +
  1.1003 +  end select
  1.1004  loop until inkey <> ""
  1.1005 -PRINT "Heute nicht!"
  1.1006 -GOTO a105
  1.1007  
  1.1008  
  1.1009  
  1.1010  
  1.1011  
  1.1012 -107 :
  1.1013 -CLS
  1.1014 -COLOR 2
  1.1015 -PRINT "In der Mitte steht ein Schreibtisch,"
  1.1016 -PRINT "rechts befindet sich ein Schrank und"
  1.1017 -PRINT "links ein Buecherregal."
  1.1018 -do
  1.1019 -loop until inkey <> ""
  1.1020 -GOTO 105
  1.1021 -
  1.1022 -
  1.1023 -
  1.1024 -
  1.1025 -
  1.1026 -106 :
  1.1027 -'''''' Esszimmer ''''''
  1.1028 -CLS
  1.1029 -LOCATE 13, 10
  1.1030 -COLOR 10
  1.1031 -PRINT "Esszimmer"
  1.1032 -do
  1.1033 -loop until inkey <> ""
  1.1034 -a106:
  1.1035 -CLS
  1.1036 -COLOR 7
  1.1037 -INPUT "(Esszimmer) Was machst du?", B$
  1.1038 -IF B$ = "gehen in Schlafzimmer" GOTO 114
  1.1039 -IF B$ = "gehen in Flur" GOTO 103
  1.1040 -IF B$ = "gehen in Arbeitszimmer" GOTO 105
  1.1041 -IF B$ = "gehen in Kueche" GOTO 109
  1.1042 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
  1.1043 -IF B$ = "umschauen" GOTO 108
  1.1044 -IF B$ = "untersuchen Esszimmer" GOTO 108
  1.1045 -IF B$ = "untersuchen Tisch" GOTO 110
  1.1046 -IF B$ = "nehmen Kerzenstaender" GOTO 115
  1.1047 -IF B$ = "q" THEN END
  1.1048 -IF B$ = "i" THEN GOSUB inventar
  1.1049 -IF B$ = "b" THEN GOSUB befehle
  1.1050 -do
  1.1051 -loop until inkey <> ""
  1.1052 -GOTO a106
  1.1053 -
  1.1054 -
  1.1055 -
  1.1056 -
  1.1057 -
  1.1058 -
  1.1059 -108 :
  1.1060 -CLS
  1.1061 -PRINT "In der Mitte steht der Tisch und auf"
  1.1062 -PRINT "der rechten Seite ist die Tuer zur Kueche."
  1.1063 -do
  1.1064 -loop until inkey <> ""
  1.1065 -GOTO 106
  1.1066 -
  1.1067 -
  1.1068 -
  1.1069 -
  1.1070 -
  1.1071 -110 :
  1.1072 -CLS
  1.1073 -PRINT "Ein schoener eichener Tisch mit einer"
  1.1074 -PRINT "gehaekelten Tischdecke und einem"
  1.1075 -PRINT "Kerzenstaender in der Mitte."
  1.1076 -do
  1.1077 -loop until inkey <> ""
  1.1078 -GOTO a106
  1.1079 -
  1.1080 -
  1.1081 -
  1.1082 -
  1.1083 -
  1.1084 -109 :
  1.1085 -'''''''' Kueche '''''''
  1.1086 -CLS
  1.1087 -LOCATE 13, 10
  1.1088 -COLOR 10
  1.1089 -PRINT "Kueche"
  1.1090 -do
  1.1091 -loop until inkey <> ""
  1.1092 -a109:
  1.1093 -CLS
  1.1094 -INPUT "(Kueche) Was machst du?", B$
  1.1095 -IF B$ = "gehen in Schlafzimmer" GOTO 114
  1.1096 -IF B$ = "gehen in Flur" GOTO 103
  1.1097 -IF B$ = "gehen in Arbeitszimmer" GOTO 105
  1.1098 -IF B$ = "gehen in Esszimmer" GOTO 106
  1.1099 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
  1.1100 -IF B$ = "umschauen" GOTO 111
  1.1101 -IF B$ = "untersuchen Kueche" GOTO 111
  1.1102 -IF B$ = "untersuchen Kuechenschrank" GOTO 112
  1.1103 -IF B$ = "oeffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
  1.1104 -IF B$ = "nehmen Messer" GOTO 113
  1.1105 -IF B$ = "q" THEN END
  1.1106 -IF B$ = "i" THEN GOSUB inventar
  1.1107 -IF B$ = "b" THEN GOSUB befehle
  1.1108 -do
  1.1109 -loop until inkey <> ""
  1.1110 -GOTO a109
  1.1111 -
  1.1112 -
  1.1113 -
  1.1114 -
  1.1115 -
  1.1116 -111 :
  1.1117 -CLS
  1.1118 -PRINT "Links ist die Kochzeile, in der Mitte"
  1.1119 -PRINT "ein kleiner Tisch mit zwei Stuehlen und"
  1.1120 -PRINT "rechts der Kuechenschrank."
  1.1121 -do
  1.1122 -loop until inkey <> ""
  1.1123 -GOTO a109
  1.1124 -
  1.1125 -
  1.1126 -
  1.1127 -
  1.1128 -
  1.1129 -112 :
  1.1130 -CLS
  1.1131 -PRINT "Es ist nichts Ausergewoehnliches daran"
  1.1132 -PRINT "zu erkennen, nur eine Schublade in der"
  1.1133 -PRINT "es bestimmt Interesantes zu entdecken gibt."
  1.1134 -do
  1.1135 -loop until inkey <> ""
  1.1136 -GOTO a109
  1.1137 -
  1.1138 -
  1.1139 -
  1.1140 -
  1.1141 -
  1.1142 -113 :
  1.1143 -CLS
  1.1144 -PRINT "Du hast das Messer genommen"
  1.1145 -do
  1.1146 -loop until inkey <> ""
  1.1147 -CLS
  1.1148 -messer% = 1
  1.1149 -GOTO a109
  1.1150 -
  1.1151 -
  1.1152 -
  1.1153 -
  1.1154 -114 :
  1.1155 -CLS
  1.1156 -LOCATE 13, 10
  1.1157 -COLOR 10
  1.1158 -PRINT "Schlafzimmer"
  1.1159 -do
  1.1160 -loop until inkey <> ""
  1.1161 -GOTO 8
  1.1162 -
  1.1163 -
  1.1164 -
  1.1165 -
  1.1166 -
  1.1167 -115 :
  1.1168 -CLS
  1.1169 -PRINT "Du hast den Kerzenstaender genommen"
  1.1170 -do
  1.1171 -loop until inkey <> ""
  1.1172 -CLS
  1.1173 -kerzenst% = 1
  1.1174 -GOTO a106
  1.1175 -
  1.1176 -
  1.1177 -
  1.1178 -
  1.1179 -
  1.1180 -
  1.1181 -116 :
  1.1182 -''''''''' Flur '''''''
  1.1183 -CLS
  1.1184 -COLOR 7
  1.1185 -INPUT "(Flur) Was machst du? ", B$
  1.1186 -zuege% = zuege% + 1
  1.1187 -IF B$ = "gehen in Schlafzimmer" GOTO 114
  1.1188 -IF B$ = "gehen in Arbeitszimmer" GOTO 105
  1.1189 -IF B$ = "gehen in Esszimmer" GOTO 106
  1.1190 -IF B$ = "gehen in Kueche" GOTO 109
  1.1191 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
  1.1192 -IF B$ = "sprechen mit Herr Fisch" GOTO 5
  1.1193 -IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
  1.1194 -IF B$ = "umschauen" GOTO 117
  1.1195 -IF B$ = "untersuchen Flur" GOTO 117
  1.1196 -IF B$ = "sprechen mit Tina" GOTO 118
  1.1197 -IF B$ = "q" THEN END
  1.1198 -IF B$ = "i" THEN GOSUB inventar
  1.1199 -IF B$ = "b" THEN GOSUB befehle
  1.1200 -PRINT ""
  1.1201 -PRINT "Keine Lust!"
  1.1202 -PRINT ""
  1.1203 -do
  1.1204 -loop until inkey <> ""
  1.1205 -GOTO 116
  1.1206 -
  1.1207 -
  1.1208  
  1.1209  
  1.1210  
  1.1211  117 :
  1.1212 -CLS
  1.1213 -IF kerzenst% = 0 GOTO 121
  1.1214 -PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
  1.1215 -PRINT "gerade aus geht's ins Esszimmer und rechts ins"
  1.1216 -PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
  1.1217 -PRINT "gerade klingelt es an der Tuer. Herr Fisch macht"
  1.1218 -PRINT "auf und Tina kommt herein."
  1.1219 -vvv% = 1
  1.1220 -do
  1.1221 -loop until inkey <> ""
  1.1222 -GOTO 116
  1.1223 +
  1.1224 +IF tinaangerufen = 1 and tinaistda = 0 then
  1.1225 +  COLOR 2
  1.1226 +  PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
  1.1227 +  PRINT "gerade aus geht's ins Esszimmer und rechts ins"
  1.1228 +  PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
  1.1229 +  print
  1.1230 +  PRINT "... gerade klingelt es an der Tuer. Herr Fisch"
  1.1231 +  PRINT "macht auf und Tina kommt herein."
  1.1232 +  tinaistda = 1
  1.1233 +
  1.1234 +else
  1.1235 +  COLOR 2
  1.1236 +  PRINT "Links geht es die Treppe zum Schlafzimmer"
  1.1237 +  PRINT "hinauf, gerade aus geht's ins Esszimmer und"
  1.1238 +  PRINT "rechts ins Arbeitszimmer. Im Flur steht"
  1.1239 +  PRINT "Herr Fisch und beantwortet gern deine Fragen."
  1.1240 +end if
  1.1241 +
  1.1242 +goto ort_flur
  1.1243  
  1.1244  
  1.1245  
  1.1246  
  1.1247  
  1.1248  118 :
  1.1249 -CLS
  1.1250 +
  1.1251  COLOR 9
  1.1252  PRINT "A: Schoen, dass du so schnell gekommen bist."
  1.1253  PRINT "B: Der Tote liegt im Schlafzimmer."
  1.1254  PRINT "C: Ende."
  1.1255 -LOCATE 8, 1
  1.1256  COLOR 12
  1.1257  INPUT "Was sagst du?", s$
  1.1258  PRINT
  1.1259  COLOR 9
  1.1260  IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
  1.1261  IF s$ = "B" GOTO 119
  1.1262 -IF s$ = "C" GOTO 116
  1.1263 +IF s$ = "C" GOTO ort_flur
  1.1264  do
  1.1265  loop until inkey <> ""
  1.1266  GOTO 118
  1.1267 @@ -757,19 +659,11 @@
  1.1268  
  1.1269  
  1.1270  119 :
  1.1271 -CLS
  1.1272 +
  1.1273  COLOR 9
  1.1274  PRINT "Okay, aber wo ist das Schlafzimmer?"
  1.1275 -do
  1.1276 -loop until inkey <> ""
  1.1277 -GOTO 120
  1.1278 +print
  1.1279  
  1.1280 -
  1.1281 -
  1.1282 -
  1.1283 -
  1.1284 -120 :
  1.1285 -CLS
  1.1286  COLOR 12
  1.1287  PRINT "Welchen Weg beschreibst du ihr?"
  1.1288  PRINT
  1.1289 @@ -784,136 +678,39 @@
  1.1290  IF w$ = "c" THEN cheat1 = 1
  1.1291  IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
  1.1292  IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
  1.1293 -vvx% = 1
  1.1294 +tinaistimschlafzimmer = 1
  1.1295  do
  1.1296  loop until inkey <> ""
  1.1297 -GOTO 116
  1.1298 +GOTO ort_flur
  1.1299  
  1.1300  
  1.1301  
  1.1302  
  1.1303  
  1.1304  
  1.1305 -121 :
  1.1306 -CLS
  1.1307 -COLOR 2
  1.1308 -PRINT "Links geht es die Treppe zum Schlafzimmer"
  1.1309 -PRINT "hinauf, gerade aus geht's ins Esszimmer und"
  1.1310 -PRINT "rechts ins Arbeitszimmer. Im Flur steht"
  1.1311 -PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
  1.1312 -do
  1.1313 -loop until inkey <> ""
  1.1314 -GOTO 116
  1.1315  
  1.1316  
  1.1317  
  1.1318  
  1.1319  
  1.1320 -122 :
  1.1321 -CLS
  1.1322 -COLOR 2
  1.1323 -IF vvx% = 1 GOTO 123
  1.1324 -PRINT "Ich sehe nichts Besonderes."
  1.1325 -do
  1.1326 -loop until inkey <> ""
  1.1327 -GOTO 105
  1.1328 -
  1.1329 -
  1.1330 -
  1.1331 -
  1.1332 -
  1.1333 -123 :
  1.1334 -CLS
  1.1335 -COLOR 2
  1.1336 -PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
  1.1337 -PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
  1.1338 -PRINT "ich mir genauer anschauen."
  1.1339 -do
  1.1340 -loop until inkey <> ""
  1.1341 -GOTO 105
  1.1342 -
  1.1343 -
  1.1344 -
  1.1345 -
  1.1346 -
  1.1347 -124 :
  1.1348 -CLS
  1.1349 -COLOR 2
  1.1350 -PRINT "Das Buch laesst sich nur halb heraus ziehen."
  1.1351 -PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
  1.1352 -PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
  1.1353 -PRINT "Sie ist durch ein Schluessel- und ein "
  1.1354 -PRINT "Zahlenschloss gesichert."
  1.1355 -PRINT
  1.1356 -COLOR 6
  1.1357 -PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
  1.1358 -PRINT "die Zahlenkombination eingeben."
  1.1359 -do
  1.1360 -loop until inkey <> ""
  1.1361 -GOTO 105
  1.1362 -
  1.1363 -
  1.1364 -
  1.1365 -
  1.1366 -
  1.1367 -125 :
  1.1368 -zkx% = 0
  1.1369 -a125:
  1.1370 -CLS
  1.1371 -zkx% = zkx% + 1
  1.1372 -COLOR 5
  1.1373 -INPUT "Wie lautet die Kombination?", zk$
  1.1374 -IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
  1.1375 -IF zk$ = "123" GOTO 126
  1.1376 -IF zk$ = "q" GOTO 105
  1.1377 -PRINT "Leider falsch. Probier's noch einmal."
  1.1378 -IF zkx% = 5 THEN PRINT "Tipp: Das Buecherregal."
  1.1379 -do
  1.1380 -loop until inkey <> ""
  1.1381 -GOTO a125
  1.1382 -
  1.1383 -
  1.1384 -
  1.1385 -
  1.1386 -
  1.1387 -
  1.1388 -126 :
  1.1389 -CLS
  1.1390 -COLOR 2
  1.1391 -PRINT "Die Kombination war richtig."
  1.1392 -kx% = 1
  1.1393 -IF sx% = 1 GOTO 137
  1.1394 -PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
  1.1395 -do
  1.1396 -loop until inkey <> ""
  1.1397 -GOTO 105
  1.1398  
  1.1399  
  1.1400  
  1.1401  
  1.1402  
  1.1403  137 :
  1.1404 -CLS
  1.1405 +
  1.1406  COLOR 2
  1.1407  PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
  1.1408  PRINT "sich ein Geheimgang."
  1.1409 -do
  1.1410 -loop until inkey <> ""
  1.1411 -GOTO 105
  1.1412 +geheimgangfrei = 1
  1.1413 +GOTO ort_arbeitszimmer
  1.1414  
  1.1415  
  1.1416  
  1.1417  
  1.1418  
  1.1419  
  1.1420 -138 :
  1.1421 -CLS
  1.1422 -COLOR 2
  1.1423 -IF kx% = 1 GOTO 137
  1.1424 -PRINT "Jetzt musst du nur noch die Kombination knacken."
  1.1425 -do
  1.1426 -loop until inkey <> ""
  1.1427 -GOTO 105
  1.1428  
  1.1429  
  1.1430  
  1.1431 @@ -921,20 +718,20 @@
  1.1432  
  1.1433  
  1.1434  127 :
  1.1435 -CLS
  1.1436 +
  1.1437  COLOR 2
  1.1438  IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
  1.1439  do
  1.1440  loop until inkey <> ""
  1.1441 -IF tlampe% = 0 GOTO 105
  1.1442 +
  1.1443 +IF tlampe% = 0 GOTO ort_arbeitszimmer
  1.1444  1000 :
  1.1445 -CLS
  1.1446 -LOCATE 13, 10
  1.1447 +
  1.1448  COLOR 10
  1.1449  PRINT "Geheimgang"
  1.1450  do
  1.1451  loop until inkey <> ""
  1.1452 -CLS
  1.1453 +
  1.1454  COLOR 2
  1.1455  PRINT "Gut, dass ich eine Taschenlampe dabei habe."
  1.1456  PRINT "Oh, es geht steil bergab .... ich muss schon"
  1.1457 @@ -957,59 +754,68 @@
  1.1458  
  1.1459  130 :
  1.1460  '''''''''' Keller '''''''''''''
  1.1461 -CLS
  1.1462 -LOCATE 13, 10
  1.1463 -COLOR 10
  1.1464 -PRINT "Keller"
  1.1465 +
  1.1466 +COLOR 2
  1.1467 +PRINT "Du bist im Keller."
  1.1468 +
  1.1469  do
  1.1470 +  COLOR 7
  1.1471 +  INPUT "(Keller) Was machst du? ", B$
  1.1472 +  B$ = lcase(B$)
  1.1473 +  select case B$
  1.1474 +    case "gehen in flur"
  1.1475 +      goto ort_flur
  1.1476 +
  1.1477 +    case "gehen in schlafzimmer"
  1.1478 +      goto ort_schlafzimmer
  1.1479 +
  1.1480 +    case "gehen in arbeitszimmer"
  1.1481 +      goto ort_arbeitszimmer
  1.1482 +
  1.1483 +    case "gehen in esszimmer"
  1.1484 +      goto ort_esszimmer
  1.1485 +
  1.1486 +    case "gehen in kueche"
  1.1487 +      goto ort_kueche
  1.1488 +
  1.1489 +    case "gehen in lagerhalle"
  1.1490 +      if kx% = 1 AND sx% = 1 then goto 132
  1.1491 +
  1.1492 +    case "umschauen", "untersuchen keller"
  1.1493 +      COLOR 2
  1.1494 +      PRINT "Ein zerfallener Keller, alles verstaubt."
  1.1495 +      PRINT "Gerade aus geht eine Treppe nach oben."
  1.1496 +
  1.1497 +    case "benutzen treppe"
  1.1498 +      goto 132
  1.1499 +
  1.1500 +    case "q"
  1.1501 +      END
  1.1502 +
  1.1503 +    case "i"
  1.1504 +      GOSUB inventar
  1.1505 +
  1.1506 +    case "b"
  1.1507 +      GOSUB befehle
  1.1508 +
  1.1509 +    case else
  1.1510 +      PRINT "Jetzt nicht."
  1.1511 +
  1.1512 +  end select
  1.1513  loop until inkey <> ""
  1.1514 -a130:
  1.1515 -CLS
  1.1516 -COLOR 7
  1.1517 -INPUT "(Keller) Was machst du? ", B$
  1.1518 -zuege% = zuege% + 1
  1.1519 -IF B$ = "gehen in Flur" GOTO 103
  1.1520 -IF B$ = "gehen in Schlafzimmer" GOTO 114
  1.1521 -IF B$ = "gehen in Arbeitszimmer" GOTO 105
  1.1522 -IF B$ = "gehen in Esszimmer" GOTO 106
  1.1523 -IF B$ = "gehen in Kueche" GOTO 109
  1.1524 -IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
  1.1525 -IF B$ = "sprechen mit Herr Fisch" GOTO 5
  1.1526 -IF B$ = "umschauen" GOTO 128
  1.1527 -IF B$ = "untersuchen Keller" GOTO 128
  1.1528 -IF B$ = "benutzen Treppe" GOTO 132
  1.1529 -IF B$ = "q" THEN END
  1.1530 -IF B$ = "i" THEN GOSUB inventar
  1.1531 -IF B$ = "b" THEN GOSUB befehle
  1.1532 -PRINT ""
  1.1533 -PRINT "Jetzt nicht."
  1.1534 -PRINT
  1.1535 -do
  1.1536 -loop until inkey <> ""
  1.1537 -GOTO a130
  1.1538  
  1.1539  
  1.1540  
  1.1541  
  1.1542  
  1.1543  
  1.1544 -128 :
  1.1545 -CLS
  1.1546 -COLOR 2
  1.1547 -PRINT "Ein zerfallener Keller, alles verstaubt."
  1.1548 -PRINT "Gerade aus geht eine Treppe nach oben."
  1.1549 -PRINT
  1.1550 -PRINT ""
  1.1551 -do
  1.1552 -loop until inkey <> ""
  1.1553 -GOTO 130
  1.1554  
  1.1555  
  1.1556  
  1.1557  
  1.1558  
  1.1559  131 :
  1.1560 -CLS
  1.1561 +
  1.1562  COLOR 2
  1.1563  PRINT "In der Lagerhalle ist alles genau so"
  1.1564  PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
  1.1565 @@ -1025,22 +831,22 @@
  1.1566  
  1.1567  132 :
  1.1568  '''''''' Lagerhalle '''''''''''
  1.1569 -CLS
  1.1570 -LOCATE 13, 10
  1.1571 +
  1.1572 +'LOCATE 13, 10
  1.1573  COLOR 10
  1.1574  PRINT "Lagerhalle"
  1.1575  do
  1.1576  loop until inkey <> ""
  1.1577 -CLS
  1.1578 +
  1.1579  a132:
  1.1580 -CLS
  1.1581 +
  1.1582  COLOR 7
  1.1583  INPUT "(Lagerhalle) Was machst du? ", B$
  1.1584  zuege% = zuege% + 1
  1.1585 -IF B$ = "gehen in Schlafzimmer" GOTO 114
  1.1586 -IF B$ = "gehen in Arbeitszimmer" GOTO 105
  1.1587 -IF B$ = "gehen in Esszimmer" GOTO 106
  1.1588 -IF B$ = "gehen in Kueche" GOTO 109
  1.1589 +IF B$ = "gehen in Schlafzimmer" goto ort_schlafzimmer
  1.1590 +IF B$ = "gehen in Arbeitszimmer" GOTO ort_arbeitszimmer
  1.1591 +IF B$ = "gehen in Esszimmer" GOTO ort_esszimmer
  1.1592 +IF B$ = "gehen in Kueche" GOTO ort_kueche
  1.1593  IF B$ = "umschauen" THEN GOSUB 131
  1.1594  IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
  1.1595  IF B$ = "oeffnen Tuer" GOTO 133
  1.1596 @@ -1050,7 +856,7 @@
  1.1597  IF B$ = "i" THEN GOSUB inventar
  1.1598  IF B$ = "b" THEN GOSUB befehle
  1.1599  PRINT ""
  1.1600 -PRINT "Noe!"
  1.1601 +PRINT "Nee!"
  1.1602  PRINT
  1.1603  do
  1.1604  loop until inkey <> ""
  1.1605 @@ -1061,7 +867,7 @@
  1.1606  
  1.1607  
  1.1608  133 :
  1.1609 -CLS
  1.1610 +
  1.1611  COLOR 2
  1.1612  PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
  1.1613  PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
  1.1614 @@ -1099,7 +905,7 @@
  1.1615  
  1.1616  
  1.1617  134 :
  1.1618 -CLS
  1.1619 +
  1.1620  COLOR 2
  1.1621  PRINT "Auf der linken Seite sind die vollen Kartons"
  1.1622  PRINT "gestapelt und rechts liegen die leeren auf"
  1.1623 @@ -1114,7 +920,7 @@
  1.1624  
  1.1625  
  1.1626  135 :
  1.1627 -CLS
  1.1628 +
  1.1629  COLOR 2
  1.1630  PRINT "Das ist eine gute Idee. Ich mache mich"
  1.1631  PRINT "sofort an die Arbeit. Raschel, raschel"
  1.1632 @@ -1134,19 +940,19 @@
  1.1633  
  1.1634  
  1.1635  136 :
  1.1636 -CLS
  1.1637 +
  1.1638  COLOR 2
  1.1639  IF messer% = 0 THEN
  1.1640 -PRINT "Ich habe kein Messer."
  1.1641 -PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
  1.1642 -PRINT "halben Stunde geht der Typ wieder. Ich"
  1.1643 -PRINT "begebe mich sofort zurueck ins Haus. So"
  1.1644 -PRINT "schlecht vorbereited begebe ich mich nicht"
  1.1645 -PRINT "wieder in Gefahr."
  1.1646 -PRINT
  1.1647 -do
  1.1648 -loop until inkey <> ""
  1.1649 -GOTO 105
  1.1650 +  PRINT "Ich habe kein Messer."
  1.1651 +  PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
  1.1652 +  PRINT "halben Stunde geht der Typ wieder. Ich"
  1.1653 +  PRINT "begebe mich sofort zurueck ins Haus. So"
  1.1654 +  PRINT "schlecht vorbereited begebe ich mich nicht"
  1.1655 +  PRINT "wieder in Gefahr."
  1.1656 +  PRINT
  1.1657 +  do
  1.1658 +  loop until inkey <> ""
  1.1659 +  GOTO ort_arbeitszimmer
  1.1660  END IF
  1.1661  
  1.1662  PRINT "Gute Idee, das mit dem Messer. Der Typ"
  1.1663 @@ -1159,17 +965,8 @@
  1.1664  PRINT "zurueck ins Haus."
  1.1665  do
  1.1666  loop until inkey <> ""
  1.1667 -GOTO 139
  1.1668  
  1.1669  
  1.1670 -
  1.1671 -
  1.1672 -
  1.1673 -
  1.1674 -
  1.1675 -
  1.1676 -139 :
  1.1677 -CLS
  1.1678  PRINT "Was machst du?"
  1.1679  PRINT ""
  1.1680  PRINT "a: nach Hause gehen"
  1.1681 @@ -1179,7 +976,7 @@
  1.1682  INPUT "Und wie entscheidest du dich?", entscheidung$
  1.1683  PRINT
  1.1684  IF entscheidung$ = "a" GOTO 140
  1.1685 -IF entscheidung$ = "b" GOTO 105
  1.1686 +IF entscheidung$ = "b" GOTO ort_arbeitszimmer
  1.1687  IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
  1.1688  
  1.1689  
  1.1690 @@ -1190,14 +987,13 @@
  1.1691  
  1.1692  140 :
  1.1693  ''''''' Zuhause '''''''
  1.1694 -CLS
  1.1695 -LOCATE 13, 10
  1.1696 -COLOR 10
  1.1697 -PRINT "Zuhause"
  1.1698 +
  1.1699 +COLOR 2
  1.1700 +PRINT "Home sweet home - endlich wieder Zuhause!"
  1.1701  do
  1.1702  loop until inkey <> ""
  1.1703  a140:
  1.1704 -CLS
  1.1705 +
  1.1706  PRINT "Du willst dir gerade einen Tee machen, als"
  1.1707  PRINT "Du einen Schlag an der Tuer hoerst und das"
  1.1708  PRINT "Licht aus geht."
  1.1709 @@ -1221,7 +1017,7 @@
  1.1710  
  1.1711  
  1.1712  141 :
  1.1713 -CLS
  1.1714 +
  1.1715  COLOR 2
  1.1716  PRINT
  1.1717  PRINT
  1.1718 @@ -1229,29 +1025,27 @@
  1.1719  PRINT "wegfahren. "
  1.1720  do
  1.1721  loop until inkey <> ""
  1.1722 -CLS
  1.1723 +cls
  1.1724  LOCATE 17, 17
  1.1725  COLOR 15
  1.1726  PRINT "KA GR 48"
  1.1727 -SLEEP 1
  1.1728 +SLEEP 500
  1.1729  GOTO 142
  1.1730  142 :
  1.1731 -CLS
  1.1732 +cls
  1.1733  COLOR 2
  1.1734  PRINT "In deiner Tuer steckt ein Messer mit"
  1.1735  PRINT "einer Botschaft. Du liest sie natuerlich"
  1.1736  PRINT "sofort."
  1.1737  do
  1.1738  loop until inkey <> ""
  1.1739 -CLS
  1.1740 +
  1.1741  COLOR 11
  1.1742 -LOCATE 10, 10
  1.1743  PRINT "Wenn du dich einmischst"
  1.1744 -LOCATE 15, 10
  1.1745  PRINT "dann bist du  T O T !!!"
  1.1746  do
  1.1747  loop until inkey <> ""
  1.1748 -CLS
  1.1749 +
  1.1750  COLOR 2
  1.1751  PRINT ""
  1.1752  PRINT ""
  1.1753 @@ -1262,9 +1056,10 @@
  1.1754  PRINT "Polizei an."
  1.1755  do
  1.1756  loop until inkey <> ""
  1.1757 -GOTO 143
  1.1758 +
  1.1759 +
  1.1760  143 :
  1.1761 -CLS
  1.1762 +
  1.1763  COLOR 9
  1.1764  PRINT ""
  1.1765  PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
  1.1766 @@ -1276,11 +1071,9 @@
  1.1767  PRINT "   in einem gruenen Auto erstatten."
  1.1768  PRINT
  1.1769  PRINT "b: Ich moechte eine Pizza essen."
  1.1770 -PRINT ""
  1.1771 +PRINT
  1.1772  PRINT "c: Ich moechte, dass Sie einen Mann"
  1.1773 -PRINT ""
  1.1774  PRINT "   in einem gruenen Auto verhaften."
  1.1775 -LOCATE 20, 1
  1.1776  COLOR 12
  1.1777  INPUT "Was antwortest du? (a,b,c)", a$
  1.1778  IF a$ = "a" THEN GOTO 144
  1.1779 @@ -1298,7 +1091,7 @@
  1.1780  
  1.1781  
  1.1782  144 :
  1.1783 -CLS
  1.1784 +
  1.1785  COLOR 9
  1.1786  PRINT ""
  1.1787  PRINT "Wie heisst der Mann denn?"
  1.1788 @@ -1323,23 +1116,23 @@
  1.1789  
  1.1790  
  1.1791  145 :
  1.1792 -CLS
  1.1793 -PRINT ""
  1.1794 +
  1.1795 +PRINT
  1.1796  COLOR 9
  1.1797  PRINT "Was fuer eine Autonummer hatte er denn?"
  1.1798 -PRINT ""
  1.1799 -PRINT ""
  1.1800 +PRINT
  1.1801 +PRINT
  1.1802  COLOR 12
  1.1803  PRINT "a: KS ET 26"
  1.1804 -PRINT ""
  1.1805 +PRINT
  1.1806  PRINT "b: HS AB 37"
  1.1807 -PRINT ""
  1.1808 +PRINT
  1.1809  PRINT "c: KA GR 48"
  1.1810 -PRINT ""
  1.1811 -PRINT ""
  1.1812 +PRINT
  1.1813 +PRINT
  1.1814  COLOR 12
  1.1815  INPUT "Welche Autonummer hatte er? (a,b,c)", a$
  1.1816 -PRINT ""
  1.1817 +PRINT
  1.1818  IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
  1.1819  IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
  1.1820  IF a$ = "c" GOTO 146
  1.1821 @@ -1353,7 +1146,7 @@
  1.1822  
  1.1823  
  1.1824  146 :
  1.1825 -CLS
  1.1826 +
  1.1827  COLOR 2
  1.1828  PRINT ""
  1.1829  PRINT "Der Polizist gab den guten Tip sofort"
  1.1830 @@ -1363,14 +1156,13 @@
  1.1831  PRINT "Hause."
  1.1832  do
  1.1833  loop until inkey <> ""
  1.1834 -CLS
  1.1835 +
  1.1836  PRINT ""
  1.1837  PRINT "Zwei Tage spaeter kam ein Brief vom"
  1.1838  PRINT "Polizeirevier:"
  1.1839  do
  1.1840  loop until inkey <> ""
  1.1841 -CLS
  1.1842 -LOCATE 4, 1
  1.1843 +
  1.1844  COLOR 15
  1.1845  PRINT "Sehrgeehrter Herr "; name1$; ""
  1.1846  PRINT "dank Ihnen konnten wie eine ganze"
  1.1847 @@ -1382,7 +1174,7 @@
  1.1848  PRINT "Seite."
  1.1849  do
  1.1850  loop until inkey <> ""
  1.1851 -CLS
  1.1852 +
  1.1853  PRINT ""
  1.1854  PRINT "Am Montag konnten wir den gruenen Audi"
  1.1855  PRINT "von Schaefer (so heisst der Bersitzer)"
  1.1856 @@ -1398,7 +1190,7 @@
  1.1857  PRINT ""
  1.1858  do
  1.1859  loop until inkey <> ""
  1.1860 -CLS
  1.1861 +
  1.1862  PRINT ""
  1.1863  PRINT "Mueller verurteilt. Auch die Anderen"
  1.1864  PRINT "werden wegen Beihilfe zum Mord vor"
  1.1865 @@ -1413,13 +1205,15 @@
  1.1866  PRINT "            Polizeichef Mattias Huber"
  1.1867  do
  1.1868  loop until inkey <> ""
  1.1869 -CLS
  1.1870 +
  1.1871 +
  1.1872 +
  1.1873 +cls
  1.1874  LOCATE 13, 10
  1.1875  COLOR 13
  1.1876  PRINT "Du hast gewonnen!"
  1.1877  do
  1.1878  loop until inkey <> ""
  1.1879 -COLOR 15
  1.1880  
  1.1881  
  1.1882  
  1.1883 @@ -1438,25 +1232,25 @@
  1.1884  
  1.1885  
  1.1886  inventar:
  1.1887 -CLS
  1.1888 -PRINT
  1.1889 -PRINT
  1.1890  COLOR 5
  1.1891 -PRINT "Hausschluessel"
  1.1892 -PRINT "200 Schilling"
  1.1893 -IF tlampe% = 1 THEN PRINT "Taschenlampe"
  1.1894 -IF schluessel% = 1 THEN PRINT "Schluessel"
  1.1895 -IF messer% = 1 THEN PRINT "Messer"
  1.1896 -IF kerzenst% = 1 THEN PRINT "Kerzenstaender"
  1.1897 +PRINT "+-- Inventar -----------+"
  1.1898 +PRINT "|                       |"
  1.1899 +PRINT "|  Autoschluessel       |"
  1.1900 +PRINT "|  200 Schilling        |"
  1.1901 +IF tlampe% = 1 THEN     PRINT "|  Taschenlampe         |"
  1.1902 +IF schluessel% = 1 THEN PRINT "|  Schluessel           |"
  1.1903 +IF messer% = 1 THEN     PRINT "|  Messer               |"
  1.1904 +IF kerzenst% = 1 THEN   PRINT "|  Kerzenstaender       |"
  1.1905 +PRINT "|                       |"
  1.1906 +PRINT "+-----------------------+"
  1.1907  RETURN
  1.1908  
  1.1909  
  1.1910  
  1.1911  befehle:
  1.1912 -PRINT ""
  1.1913 +COLOR 3
  1.1914  PRINT "Moegliche Befehle:"
  1.1915  PRINT ""
  1.1916 -COLOR 3
  1.1917  PRINT "umschauen"
  1.1918  PRINT "oeffnen <Objekt>"
  1.1919  PRINT "benutzen <Objekt>"