midds
diff Midds_reco.bas @ 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 |
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>"