1.1 --- a/Midds_reco.bas	Mon Sep 03 20:51:10 2007 +0200
     1.2 +++ b/Midds_reco.bas	Tue Sep 04 23:59:39 2007 +0200
     1.3 @@ -127,7 +127,6 @@
     1.4  
     1.5  ort_flur :
     1.6  '''''''' Flur '''''''
     1.7 -'IF kerzenst% = 1 GOTO 116
     1.8  
     1.9  COLOR 7
    1.10  
    1.11 @@ -138,31 +137,59 @@
    1.12    select case B$
    1.13      case "sprechen mit herr fisch"
    1.14        goto gespraech_herrfisch
    1.15 +
    1.16      case "gehen heim"
    1.17        PRINT "  Du Angsthase!"
    1.18 +
    1.19      case "umschauen", "untersuchen flur"
    1.20 -      GOTO 117
    1.21 +      IF tinaangerufen = 1 and tinaistda = 0 then
    1.22 +        COLOR 2
    1.23 +        PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
    1.24 +        PRINT "gerade aus geht's ins Esszimmer und rechts ins"
    1.25 +        PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
    1.26 +        print
    1.27 +        PRINT "... gerade klingelt es an der Tuer. Herr Fisch"
    1.28 +        PRINT "macht auf und Tina kommt herein."
    1.29 +        tinaistda = 1
    1.30 +      else
    1.31 +        COLOR 2
    1.32 +        PRINT "Links geht es die Treppe zum Schlafzimmer"
    1.33 +        PRINT "hinauf, gerade aus geht's ins Esszimmer und"
    1.34 +        PRINT "rechts ins Arbeitszimmer. Im Flur steht"
    1.35 +        PRINT "Herr Fisch und beantwortet gern deine Fragen."
    1.36 +      end if
    1.37 +
    1.38      case "gehen in schlafzimmer"
    1.39        goto ort_schlafzimmer
    1.40 +
    1.41      case "gehen in arbeitszimmer"
    1.42        GOTO ort_arbeitszimmer
    1.43 +
    1.44      case "gehen in esszimmer"
    1.45        GOTO ort_esszimmer
    1.46 +
    1.47      case "gehen in kueche"
    1.48        GOTO ort_kueche
    1.49 +
    1.50      case "gehen in lagerhalle"
    1.51        if kx% = 1 AND sx% = 1 GOTO 132
    1.52 +
    1.53      case "sprechen mit Tina"
    1.54        if tinaistda = 1 then GOTO 118
    1.55 +
    1.56      case "q"
    1.57        END
    1.58 +
    1.59      case "i"
    1.60        GOSUB inventar
    1.61 +
    1.62      case "b"
    1.63        GOSUB befehle
    1.64 +
    1.65      case else
    1.66        PRINT "  Keine Lust!"
    1.67        PRINT
    1.68 +
    1.69    end select
    1.70  
    1.71    zuege% = zuege% + 1
    1.72 @@ -433,7 +460,32 @@
    1.73  
    1.74      case "gehen in Geheimgang"
    1.75        if kx% = 1 AND sx% = 1 then
    1.76 -        goto 127
    1.77 +        COLOR 2
    1.78 +        IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
    1.79 +        do
    1.80 +        loop until inkey <> ""
    1.81 +
    1.82 +        IF tlampe% = 0 GOTO ort_arbeitszimmer
    1.83 +
    1.84 +        COLOR 10
    1.85 +        PRINT "Geheimgang"
    1.86 +        do
    1.87 +        loop until inkey <> ""
    1.88 +
    1.89 +        COLOR 2
    1.90 +        PRINT "Gut, dass ich eine Taschenlampe dabei habe."
    1.91 +        PRINT "Oh, es geht steil bergab .... ich muss schon"
    1.92 +        PRINT "mindestens 5 Meter unter der Erdoberflaeche"
    1.93 +        PRINT "sein .... Jetzt bin ich schon 10 Minuten"
    1.94 +        PRINT "unterwegs ..... da vorne kommt eine Tuer"
    1.95 +        PRINT "genau so gesichert wie die hinter dem Regal"
    1.96 +        PRINT "gut, dass ich den Schluessel habe und den"
    1.97 +        PRINT "Code kenne ..... Wo bin ich denn jetzt?"
    1.98 +        PRINT "Sieht aus, wie der Keller eines Hauses"
    1.99 +        PRINT "ist aber ganz schoen zerfallen."
   1.100 +        do
   1.101 +        loop until inkey <> ""
   1.102 +        GOTO ort_keller
   1.103        end if
   1.104  
   1.105      case "z"
   1.106 @@ -611,29 +663,6 @@
   1.107  
   1.108  
   1.109  
   1.110 -117 :
   1.111 -
   1.112 -IF tinaangerufen = 1 and tinaistda = 0 then
   1.113 -  COLOR 2
   1.114 -  PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
   1.115 -  PRINT "gerade aus geht's ins Esszimmer und rechts ins"
   1.116 -  PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
   1.117 -  print
   1.118 -  PRINT "... gerade klingelt es an der Tuer. Herr Fisch"
   1.119 -  PRINT "macht auf und Tina kommt herein."
   1.120 -  tinaistda = 1
   1.121 -
   1.122 -else
   1.123 -  COLOR 2
   1.124 -  PRINT "Links geht es die Treppe zum Schlafzimmer"
   1.125 -  PRINT "hinauf, gerade aus geht's ins Esszimmer und"
   1.126 -  PRINT "rechts ins Arbeitszimmer. Im Flur steht"
   1.127 -  PRINT "Herr Fisch und beantwortet gern deine Fragen."
   1.128 -end if
   1.129 -
   1.130 -goto ort_flur
   1.131 -
   1.132 -
   1.133  
   1.134  
   1.135  
   1.136 @@ -648,7 +677,30 @@
   1.137  PRINT
   1.138  COLOR 9
   1.139  IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
   1.140 -IF s$ = "B" GOTO 119
   1.141 +IF s$ = "B" then
   1.142 +  COLOR 9
   1.143 +  PRINT "Okay, aber wo ist das Schlafzimmer?"
   1.144 +  print
   1.145 +
   1.146 +  COLOR 12
   1.147 +  PRINT "Welchen Weg beschreibst du ihr?"
   1.148 +  PRINT
   1.149 +  PRINT "a: Links die Treppe hinauf."
   1.150 +  PRINT "b: Rechts die Treppe hinunter."
   1.151 +  PRINT "c: Die Treppe hinauf, dann links."
   1.152 +  PRINT
   1.153 +  INPUT "a, b oder c?", w$
   1.154 +  PRINT
   1.155 +  COLOR 2
   1.156 +  IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
   1.157 +  IF w$ = "c" THEN cheat1 = 1
   1.158 +  IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
   1.159 +  IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
   1.160 +  tinaistimschlafzimmer = 1
   1.161 +  do
   1.162 +  loop until inkey <> ""
   1.163 +  GOTO ort_flur
   1.164 +end if
   1.165  IF s$ = "C" GOTO ort_flur
   1.166  do
   1.167  loop until inkey <> ""
   1.168 @@ -658,40 +710,6 @@
   1.169  
   1.170  
   1.171  
   1.172 -119 :
   1.173 -
   1.174 -COLOR 9
   1.175 -PRINT "Okay, aber wo ist das Schlafzimmer?"
   1.176 -print
   1.177 -
   1.178 -COLOR 12
   1.179 -PRINT "Welchen Weg beschreibst du ihr?"
   1.180 -PRINT
   1.181 -PRINT "a: Links die Treppe hinauf."
   1.182 -PRINT "b: Rechts die Treppe hinunter."
   1.183 -PRINT "c: Die Treppe hinauf, dann links."
   1.184 -PRINT
   1.185 -INPUT "a, b oder c?", w$
   1.186 -PRINT
   1.187 -COLOR 2
   1.188 -IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
   1.189 -IF w$ = "c" THEN cheat1 = 1
   1.190 -IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
   1.191 -IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
   1.192 -tinaistimschlafzimmer = 1
   1.193 -do
   1.194 -loop until inkey <> ""
   1.195 -GOTO ort_flur
   1.196 -
   1.197 -
   1.198 -
   1.199 -
   1.200 -
   1.201 -
   1.202 -
   1.203 -
   1.204 -
   1.205 -
   1.206  
   1.207  
   1.208  
   1.209 @@ -717,42 +735,13 @@
   1.210  
   1.211  
   1.212  
   1.213 -127 :
   1.214  
   1.215 -COLOR 2
   1.216 -IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
   1.217 -do
   1.218 -loop until inkey <> ""
   1.219  
   1.220 -IF tlampe% = 0 GOTO ort_arbeitszimmer
   1.221 -1000 :
   1.222  
   1.223 -COLOR 10
   1.224 -PRINT "Geheimgang"
   1.225 -do
   1.226 -loop until inkey <> ""
   1.227  
   1.228 -COLOR 2
   1.229 -PRINT "Gut, dass ich eine Taschenlampe dabei habe."
   1.230 -PRINT "Oh, es geht steil bergab .... ich muss schon"
   1.231 -PRINT "mindestens 5 Meter unter der Erdoberflaeche"
   1.232 -PRINT "sein .... Jetzt bin ich schon 10 Minuten"
   1.233 -PRINT "unterwegs ..... da vorne kommt eine Tuer"
   1.234 -PRINT "genau so gesichert wie die hinter dem Regal"
   1.235 -PRINT "gut, dass ich den Schluessel habe und den"
   1.236 -PRINT "Code kenne ..... Wo bin ich denn jetzt?"
   1.237 -PRINT "Sieht aus, wie der Keller eines Hauses"
   1.238 -PRINT "ist aber ganz schoen zerfallen."
   1.239 -do
   1.240 -loop until inkey <> ""
   1.241 -GOTO 130
   1.242  
   1.243  
   1.244 -
   1.245 -
   1.246 -
   1.247 -
   1.248 -130 :
   1.249 +ort_keller :
   1.250  '''''''''' Keller '''''''''''''
   1.251  
   1.252  COLOR 2
   1.253 @@ -814,15 +803,6 @@
   1.254  
   1.255  
   1.256  
   1.257 -131 :
   1.258 -
   1.259 -COLOR 2
   1.260 -PRINT "In der Lagerhalle ist alles genau so"
   1.261 -PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
   1.262 -PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
   1.263 -do
   1.264 -loop until inkey <> ""
   1.265 -RETURN
   1.266  
   1.267  
   1.268  
   1.269 @@ -832,36 +812,59 @@
   1.270  132 :
   1.271  '''''''' Lagerhalle '''''''''''
   1.272  
   1.273 -'LOCATE 13, 10
   1.274 -COLOR 10
   1.275 -PRINT "Lagerhalle"
   1.276 +COLOR 2
   1.277 +PRINT "Du bist in der Lagerhalle."
   1.278 +print
   1.279 +
   1.280 +
   1.281  do
   1.282 +  COLOR 7
   1.283 +  INPUT "(Lagerhalle) Was machst du? ", B$
   1.284 +  B$ = lcase(B$)
   1.285 +  select case B$
   1.286 +    case "gehen in Schlafzimmer"
   1.287 +      goto ort_schlafzimmer
   1.288 +
   1.289 +    case "gehen in Arbeitszimmer"
   1.290 +      goto ort_arbeitszimmer
   1.291 +
   1.292 +    case "gehen in Esszimmer"
   1.293 +      goto ort_esszimmer
   1.294 +
   1.295 +    case "gehen in Kueche"
   1.296 +      goto ort_kueche
   1.297 +
   1.298 +    case "umschauen", "untersuchen Lagerhalle"
   1.299 +      COLOR 2
   1.300 +      PRINT "In der Lagerhalle ist alles genau so"
   1.301 +      PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
   1.302 +      PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
   1.303 +      print
   1.304 +
   1.305 +    case "oeffnen Tuer"
   1.306 +      goto 133
   1.307 +
   1.308 +    case "untersuchen Kartons"
   1.309 +      GOSUB 134
   1.310 +
   1.311 +    case "benutzen Messer"
   1.312 +      goto 136
   1.313 +
   1.314 +    case "q"
   1.315 +      END
   1.316 +
   1.317 +    case "i"
   1.318 +      GOSUB inventar
   1.319 +
   1.320 +    case "b"
   1.321 +      GOSUB befehle
   1.322 +
   1.323 +    case else
   1.324 +      PRINT "Nee!"
   1.325 +
   1.326 +  end select
   1.327  loop until inkey <> ""
   1.328  
   1.329 -a132:
   1.330 -
   1.331 -COLOR 7
   1.332 -INPUT "(Lagerhalle) Was machst du? ", B$
   1.333 -zuege% = zuege% + 1
   1.334 -IF B$ = "gehen in Schlafzimmer" goto ort_schlafzimmer
   1.335 -IF B$ = "gehen in Arbeitszimmer" GOTO ort_arbeitszimmer
   1.336 -IF B$ = "gehen in Esszimmer" GOTO ort_esszimmer
   1.337 -IF B$ = "gehen in Kueche" GOTO ort_kueche
   1.338 -IF B$ = "umschauen" THEN GOSUB 131
   1.339 -IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
   1.340 -IF B$ = "oeffnen Tuer" GOTO 133
   1.341 -IF B$ = "untersuchen Kartons" THEN GOSUB 134
   1.342 -IF B$ = "benutzen Messer" GOTO 136
   1.343 -IF B$ = "q" THEN END
   1.344 -IF B$ = "i" THEN GOSUB inventar
   1.345 -IF B$ = "b" THEN GOSUB befehle
   1.346 -PRINT ""
   1.347 -PRINT "Nee!"
   1.348 -PRINT
   1.349 -do
   1.350 -loop until inkey <> ""
   1.351 -GOTO a132
   1.352 -
   1.353  
   1.354  
   1.355  
   1.356 @@ -876,28 +879,56 @@
   1.357  PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
   1.358  PRINT "Jetzt ist schnelles Handeln wichtig!"
   1.359  PRINT
   1.360 +v% = 0
   1.361  do
   1.362 +  COLOR 7
   1.363 +  INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
   1.364 +  v$ = lcase(v$)
   1.365 +  select case v$
   1.366 +    case "leerem karton", "leerer karton", "leere kartons"
   1.367 +      COLOR 2
   1.368 +      PRINT "Das ist eine gute Idee. Ich mache mich"
   1.369 +      PRINT "sofort an die Arbeit. Raschel, raschel"
   1.370 +      PRINT "... uff ... so ... geich ... jetzt ..."
   1.371 +      PRINT "Okay ich hab's geschafft. Jetzt kann"
   1.372 +      PRINT "ich nur nichts mehr sehen. Ich sollte"
   1.373 +      PRINT "mir ein Loch zum Rausschauen in den"
   1.374 +      PRINT "Karton reissen. So ... uff, der ist zu"
   1.375 +      PRINT "stabil, da brauche ich ein Werkzeug dazu."
   1.376 +      print
   1.377 +      GOTO 132
   1.378 +
   1.379 +    case "kartons"
   1.380 +      PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
   1.381 +
   1.382 +    case "geheimgang"
   1.383 +      PRINT "Dafuer reicht die Zeit nicht."
   1.384 +
   1.385 +    case "keller"
   1.386 +      PRINT "Dafuer reicht die Zeit nicht."
   1.387 +
   1.388 +    case "umschauen", "untersuchen lagerhalle"
   1.389 +      COLOR 2
   1.390 +      PRINT "In der Lagerhalle ist alles genau so"
   1.391 +      PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
   1.392 +      PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
   1.393 +      print
   1.394 +
   1.395 +    case "untersuchen kartons"
   1.396 +      GOSUB 134
   1.397 +
   1.398 +    case "q"
   1.399 +      END
   1.400 +
   1.401 +    case else
   1.402 +      PRINT "Da habe ich zu wenig Zeit dafuer."
   1.403 +
   1.404 +  end select
   1.405 +
   1.406 +  v% = v% + 1
   1.407 +  IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
   1.408 +  IF v% > 8 THEN PRINT "Tipp: l..... K....."
   1.409  loop until inkey <> ""
   1.410 -a133:
   1.411 -COLOR 7
   1.412 -INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
   1.413 -v% = v% + 1
   1.414 -IF v$ = "leerem Karton" GOTO 135
   1.415 -IF v$ = "leerer Karton" GOTO 135
   1.416 -IF v$ = "leere Kartons" GOTO 135
   1.417 -IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
   1.418 -IF v$ = "Geheimgang" THEN PRINT "Dafuer reicht die Zeit nicht."
   1.419 -IF v$ = "Keller" THEN PRINT "Dafuer reicht die Zeit nicht."
   1.420 -IF v$ = "umschauen" THEN GOSUB 131
   1.421 -IF v$ = "untersuchen Lagerhalle" THEN GOSUB 131
   1.422 -IF v$ = "untersuchen Kartons" THEN GOSUB 134
   1.423 -IF v$ = "q" THEN END
   1.424 -IF v% = 9 THEN PRINT "Tipp: l..... K....."
   1.425 -IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
   1.426 -PRINT "Da habe ich zu wenig Zeit dafuer."
   1.427 -do
   1.428 -loop until inkey <> ""
   1.429 -GOTO a133
   1.430  
   1.431  
   1.432  
   1.433 @@ -919,20 +950,6 @@
   1.434  
   1.435  
   1.436  
   1.437 -135 :
   1.438 -
   1.439 -COLOR 2
   1.440 -PRINT "Das ist eine gute Idee. Ich mache mich"
   1.441 -PRINT "sofort an die Arbeit. Raschel, raschel"
   1.442 -PRINT "... uff ... so ... geich ... jetzt ..."
   1.443 -PRINT "Okay ich hab's geschafft. Jetzt kann"
   1.444 -PRINT "ich nur nichts mehr sehen. Ich sollte"
   1.445 -PRINT "mir ein Loch zum Rausschauen in den"
   1.446 -PRINT "Karton reissen. So ... uff, der ist zu"
   1.447 -PRINT "stabil, da brauche ich ein Werkzeug dazu."
   1.448 -do
   1.449 -loop until inkey <> ""
   1.450 -GOTO 132
   1.451  
   1.452  
   1.453  
   1.454 @@ -1058,31 +1075,29 @@
   1.455  loop until inkey <> ""
   1.456  
   1.457  
   1.458 -143 :
   1.459  
   1.460 -COLOR 9
   1.461 -PRINT ""
   1.462 -PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
   1.463 -PRINT "Laenger. Was kann ich fuer Sie tun?"
   1.464 -PRINT
   1.465 -PRINT
   1.466 -COLOR 12
   1.467 -PRINT "a: Ich moechte Anzeige gegen einen Mann"
   1.468 -PRINT "   in einem gruenen Auto erstatten."
   1.469 -PRINT
   1.470 -PRINT "b: Ich moechte eine Pizza essen."
   1.471 -PRINT
   1.472 -PRINT "c: Ich moechte, dass Sie einen Mann"
   1.473 -PRINT "   in einem gruenen Auto verhaften."
   1.474 -COLOR 12
   1.475 -INPUT "Was antwortest du? (a,b,c)", a$
   1.476 -IF a$ = "a" THEN GOTO 144
   1.477 -IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
   1.478 -IF a$ = "c" THEN GOTO 144
   1.479 -IF a$ = "q" THEN END
   1.480  do
   1.481 +  COLOR 9
   1.482 +  PRINT ""
   1.483 +  PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
   1.484 +  PRINT "Laenger. Was kann ich fuer Sie tun?"
   1.485 +  PRINT
   1.486 +  PRINT
   1.487 +  COLOR 12
   1.488 +  PRINT "a: Ich moechte Anzeige gegen einen Mann"
   1.489 +  PRINT "   in einem gruenen Auto erstatten."
   1.490 +  PRINT
   1.491 +  PRINT "b: Ich moechte eine Pizza essen."
   1.492 +  PRINT
   1.493 +  PRINT "c: Ich moechte, dass Sie einen Mann"
   1.494 +  PRINT "   in einem gruenen Auto verhaften."
   1.495 +  COLOR 12
   1.496 +  INPUT "Was antwortest du? (a,b,c)", a$
   1.497 +  IF a$ = "a" THEN GOTO 144
   1.498 +  IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
   1.499 +  IF a$ = "c" THEN GOTO 144
   1.500 +  IF a$ = "q" THEN END
   1.501  loop until inkey <> ""
   1.502 -GOTO 143
   1.503  
   1.504  
   1.505  
   1.506 @@ -1092,23 +1107,22 @@
   1.507  
   1.508  144 :
   1.509  
   1.510 -COLOR 9
   1.511 -PRINT ""
   1.512 -PRINT "Wie heisst der Mann denn?"
   1.513 -PRINT
   1.514 -COLOR 12
   1.515 -PRINT "a: Karl von Burlafingen."
   1.516 -PRINT "b: Regideur Eklansch."
   1.517 -PRINT "c: Ich kenne seinen Namen nicht."
   1.518 -PRINT ""
   1.519 -INPUT "Wie heisst er? (a,b,c)", w$
   1.520 -PRINT ""
   1.521 -IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
   1.522 -IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
   1.523 -IF w$ = "c" GOTO 145
   1.524  do
   1.525 +  COLOR 9
   1.526 +  PRINT ""
   1.527 +  PRINT "Wie heisst der Mann denn?"
   1.528 +  PRINT
   1.529 +  COLOR 12
   1.530 +  PRINT "a: Karl von Burlafingen."
   1.531 +  PRINT "b: Regideur Eklansch."
   1.532 +  PRINT "c: Ich kenne seinen Namen nicht."
   1.533 +  PRINT ""
   1.534 +  INPUT "Wie heisst er? (a,b,c)", w$
   1.535 +  PRINT ""
   1.536 +  IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
   1.537 +  IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
   1.538 +  IF w$ = "c" GOTO 145
   1.539  loop until inkey <> ""
   1.540 -GOTO 144
   1.541  
   1.542  
   1.543  
   1.544 @@ -1117,28 +1131,27 @@
   1.545  
   1.546  145 :
   1.547  
   1.548 -PRINT
   1.549 -COLOR 9
   1.550 -PRINT "Was fuer eine Autonummer hatte er denn?"
   1.551 -PRINT
   1.552 -PRINT
   1.553 -COLOR 12
   1.554 -PRINT "a: KS ET 26"
   1.555 -PRINT
   1.556 -PRINT "b: HS AB 37"
   1.557 -PRINT
   1.558 -PRINT "c: KA GR 48"
   1.559 -PRINT
   1.560 -PRINT
   1.561 -COLOR 12
   1.562 -INPUT "Welche Autonummer hatte er? (a,b,c)", a$
   1.563 -PRINT
   1.564 -IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
   1.565 -IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
   1.566 -IF a$ = "c" GOTO 146
   1.567  do
   1.568 +  PRINT
   1.569 +  COLOR 9
   1.570 +  PRINT "Was fuer eine Autonummer hatte er denn?"
   1.571 +  PRINT
   1.572 +  PRINT
   1.573 +  COLOR 12
   1.574 +  PRINT "a: KS ET 26"
   1.575 +  PRINT
   1.576 +  PRINT "b: HS AB 37"
   1.577 +  PRINT
   1.578 +  PRINT "c: KA GR 48"
   1.579 +  PRINT
   1.580 +  PRINT
   1.581 +  COLOR 12
   1.582 +  INPUT "Welche Autonummer hatte er? (a,b,c)", a$
   1.583 +  PRINT
   1.584 +  IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
   1.585 +  IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
   1.586 +  IF a$ = "c" GOTO 146
   1.587  loop until inkey <> ""
   1.588 -GOTO 145
   1.589  
   1.590  
   1.591  
   1.592 @@ -1243,6 +1256,7 @@
   1.593  IF kerzenst% = 1 THEN   PRINT "|  Kerzenstaender       |"
   1.594  PRINT "|                       |"
   1.595  PRINT "+-----------------------+"
   1.596 +color 7
   1.597  RETURN
   1.598  
   1.599  
   1.600 @@ -1258,5 +1272,6 @@
   1.601  PRINT "sprechen mit <Person>"
   1.602  PRINT "gehen (in) <Ort>"
   1.603  PRINT "nehmen <Objekt>"
   1.604 +color 7
   1.605  RETURN
   1.606