midds
changeset 0:756a5d57522c
the orginal Midds from 1999
| author | meillo@marmaro.de |
|---|---|
| date | Mon, 03 Sep 2007 14:18:48 +0200 |
| parents | |
| children | 130ab9a4fd83 |
| files | Midds_orig.bas Midds_orig_install.bas |
| diffstat | 2 files changed, 1645 insertions(+), 0 deletions(-) [+] |
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/Midds_orig.bas Mon Sep 03 14:18:48 2007 +0200 1.3 @@ -0,0 +1,1594 @@ 1.4 +' ' 1.5 +' ' 1.6 +' M M ' 1.7 +' MM MM I D D ' 1.8 +' M M M M I D D ' 1.9 +' M M M M D D ' 1.10 +' M M M M D D ' 1.11 +' M M M M I DDDDD D DDDDD D SSSSS ' 1.12 +' M M M M I D DD D DD S S ' 1.13 +' M M M I D D D D S ' 1.14 +' M M I D D D D S ' 1.15 +' M M I D D D D SSSS ' 1.16 +' M M I D D D D S ' 1.17 +' M M I D D D D S ' 1.18 +' M M I D DD D DD S S ' 1.19 +' M M I DDDDD D DDDDD D SSSSS ' 1.20 +' ' 1.21 +' ' 1.22 +'============================================================================' 1.23 +' ' 1.24 +' ' 1.25 +' ' 1.26 +' ' 1.27 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.28 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.29 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.30 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.31 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.32 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.33 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.34 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.35 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.36 +' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - ' 1.37 +' ' 1.38 +' ' 1.39 +' ' 1.40 +' ' 1.41 +'============================================================================' 1.42 +' ' 1.43 +' ' 1.44 +' ' 1.45 +' 1.46 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.47 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.48 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.49 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.50 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.51 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.52 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.53 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.54 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.55 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.56 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.57 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.58 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.59 +' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! ' 1.60 +' 1.61 +' 1.62 +'============================================================================' 1.63 +' 1.64 +' 1.65 +'Midds' 1.66 +DECLARE SUB M () 1.67 +SCREEN 13 1.68 + 1.69 + 1.70 +CLS 1.71 +LOCATE 13, 6 1.72 +COLOR 15 1.73 +PRINT "*** Mord in der Dorfstraáe ***" 1.74 +LINE (20, 60)-(300, 140), 2, B 1.75 +LOCATE 24, 2 1.76 +COLOR 7 1.77 +PRINT "c Copyright 1999 Elefant Software" 1.78 +CIRCLE (11, 180), 7, 7 1.79 +SLEEP 1.80 +INPUT "", nzl 1.81 +CLS 1.82 +raum = 0 1.83 +name$ = "John Howell" 1.84 + 1.85 +OPEN "c:midds1.ini" FOR INPUT AS #1 1.86 +INPUT #1, poi 1.87 +CLOSE 1.88 +IF poi = 1 THEN GOTO 999 ELSE PRINT "Bitte installieren sie Midds." 1.89 + 1.90 +999 : 1.91 +CLS 1.92 +LOCATE 5, 1 1.93 +COLOR 4 1.94 +PRINT "Dies ist nicht die endgltige Version" 1.95 +LOCATE 7, 1 1.96 +PRINT " von - MIDDS -" 1.97 +LOCATE 10, 1 1.98 +PRINT " Falls im Programm Fehler auftauchen" 1.99 +LOCATE 12, 1 1.100 +PRINT " sollten wenden Sie sich bitte an" 1.101 +LOCATE 14, 1 1.102 +PRINT " Elefant Software." 1.103 +LOCATE 19, 1 1.104 +PRINT " Elefant Software garantiert nur fr" 1.105 +LOCATE 21, 1 1.106 +PRINT " Fehler in - MIDDS -." 1.107 +SLEEP 1.108 +INPUT "", nzl 1.109 + 1.110 + 1.111 +CLS 1.112 +LOCATE 13, 10 1.113 +COLOR 14 1.114 +INPUT "Cheat: ", c$ 1.115 +IF c$ = "x" GOTO X 1.116 +IF c$ = "t" GOTO 140 1.117 +IF c$ = "q" THEN END 1.118 +IF c$ = "Markus" GOTO xxxxx 1.119 +CLS 1.120 + 1.121 +CLS 1.122 +COLOR 6 1.123 +PRINT "Dies ist ein Kriminalspiel," 1.124 +PRINT "das die grauen Zellen fordert." 1.125 +PRINT "" 1.126 +PRINT "" 1.127 +SLEEP 1.128 +INPUT "", nzl 1.129 +CLS 1.130 + 1.131 +PRINT "" 1.132 +PRINT "M”gliche Befehle:" 1.133 +PRINT "" 1.134 +PRINT "" 1.135 +COLOR 3 1.136 +PRINT "”ffnen" 1.137 +PRINT "" 1.138 +PRINT "benutzen" 1.139 +PRINT "" 1.140 +PRINT "untersuchen" 1.141 +PRINT "" 1.142 +PRINT "sprechen mit" 1.143 +PRINT "" 1.144 +PRINT "gehen (in)" 1.145 +PRINT 1.146 +PRINT "nehmen" 1.147 +SLEEP 1.148 +INPUT "", nzl 1.149 +CLS 1.150 + 1.151 +COLOR 6 1.152 +PRINT 1.153 +PRINT 1.154 +PRINT "Drcke 'q' um das Spiel zu beenden." 1.155 +PRINT 1.156 +PRINT 1.157 +PRINT "Drcke 'm' um zu erfahren, was du alles besitzt." 1.158 +PRINT 1.159 +PRINT 1.160 +PRINT "Drcke 'b' um die Befehle noch einmal zusehen." 1.161 +SLEEP 1.162 +INPUT "", nzl 1.163 + 1.164 + 1.165 +X: 1.166 +CLS 1.167 +PRINT "" 1.168 +LOCATE 13, 6 1.169 +COLOR 6 1.170 +PRINT "So jetzt geht's endlich los!!!" 1.171 +SLEEP 1.172 +INPUT "", nzl 1.173 +CLS 1.174 +GOTO 1 1.175 + 1.176 +1 : 1.177 +zuege = 0 1.178 +a1: 1.179 +CLS 1.180 +PRINT "" 1.181 +COLOR 2 1.182 +PRINT "Du heiát John Howell und bist" 1.183 +PRINT 1.184 +PRINT "Privatdetektiv. Du wurdest von " 1.185 +PRINT 1.186 +PRINT "Herr Fisch angerufen um einen Mord" 1.187 +PRINT 1.188 +PRINT "aufzukl„ren. Natrlich" 1.189 +PRINT 1.190 +PRINT "bist du sofort in deinen Renault 19" 1.191 +PRINT 1.192 +PRINT "gestiegen und losgefahren. Jetzt stehst" 1.193 +PRINT 1.194 +PRINT "du vor Haus Nummer 6 in der" 1.195 +PRINT 1.196 +PRINT "Dorfstraáe." 1.197 +PRINT "" 1.198 +COLOR 7 1.199 +INPUT "Was machst du?", B$ 1.200 +zuege% = zuege% + 1 1.201 +IF B$ = "benutzen Klingel" GOTO 2 1.202 +IF B$ = "”ffnen Tr" THEN PRINT "Du kannst doch nicht einfach fremde H„user betreten." 1.203 +IF B$ = "”ffnen Tr" THEN SLEEP 1.204 +IF B$ = "”ffnen Tr" GOTO a1 1.205 +IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde H„user betreten." 1.206 +IF B$ = "gehen in Haus" THEN SLEEP 1.207 +IF B$ = "gehen in Haus" GOTO a1 1.208 +IF B$ = "gehen Heim" THEN PRINT "Du Angsthase" 1.209 +IF B$ = "gehen Heim" GOTO a1 1.210 +IF B$ = "q" THEN END 1.211 +IF B$ = "m" THEN GOSUB yy 1.212 +IF B$ = "b" THEN GOSUB yx 1.213 +PRINT "" 1.214 +PRINT "N”!" 1.215 +PRINT "" 1.216 +IF zuege% = 5 THEN GOTO a 1.217 +IF zuege% = 9 THEN GOTO B 1.218 +IF zuege% = 9 THEN GOTO 2 1.219 +SLEEP 1.220 +INPUT "", nzl 1.221 +GOTO a1 1.222 + 1.223 +a: 1.224 +COLOR 4 1.225 +PRINT " Tipp: benutzen ..." 1.226 +SLEEP 1.227 +GOTO a1 1.228 + 1.229 +B: 1.230 +COLOR 4 1.231 +PRINT " L”sung: benutzen Klingel" 1.232 +SLEEP 1.233 +CLS 1.234 +GOTO 2 1.235 + 1.236 +2 : 1.237 +CLS 1.238 +COLOR 2 1.239 +PRINT "Herr Fisch ”ffnet die Tr und du stehst im Flur" 1.240 +PRINT "" 1.241 +SLEEP 1.242 +INPUT "", nzl 1.243 +CLS 1.244 +LOCATE 13, 10 1.245 +COLOR 10 1.246 +PRINT "Flur" 1.247 +raum = 1 1.248 +SLEEP 1.249 +INPUT "", nzl 1.250 +zuege% = 0 1.251 +GOTO 3 1.252 + 1.253 +3 : 1.254 +CLS 1.255 +IF kerzenst% = 1 GOTO 116 1.256 +COLOR 2 1.257 +PRINT "Herr Fisch ”ffnet die Tr und du stehst im Flur" 1.258 +PRINT 1.259 +COLOR 7 1.260 +INPUT "Was machst du?", B$ 1.261 +zuege% = zuege% + 1 1.262 +IF B$ = "sprechen mit Herr Fisch" GOTO 4 1.263 +IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!" 1.264 +IF B$ = "untersuchen Flur" GOTO 117 1.265 +IF B$ = "gehen in Schlafzimmer" GOTO 114 1.266 +IF B$ = "gehen in Arbeitszimmer" GOTO 105 1.267 +IF B$ = "gehen in Esszimmer" GOTO 106 1.268 +IF B$ = "gehen in Kche" GOTO 109 1.269 +IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 1.270 +IF B$ = "q" THEN END 1.271 +IF B$ = "m" THEN GOSUB yy 1.272 +IF B$ = "b" THEN GOSUB yx 1.273 +IF B$ = "s" THEN GOSUB speichern 1.274 +PRINT "" 1.275 +PRINT "Keine Lust!" 1.276 +PRINT "" 1.277 +IF zuege% = 6 THEN GOTO c 1.278 +SLEEP 1.279 +INPUT "", nzl 1.280 +GOTO 3 1.281 + 1.282 +c: 1.283 +COLOR 4 1.284 +PRINT "Tipp: sprechen mit ..." 1.285 +SLEEP 1.286 +INPUT "", nzl 1.287 +CLS 1.288 +GOTO 3 1.289 + 1.290 + 1.291 +4 : 1.292 +CLS 1.293 +COLOR 9 1.294 +PRINT "A: Ich heiáe "; name$; "." 1.295 +PRINT "" 1.296 +PRINT "B: Wo ist die Leiche?" 1.297 +PRINT "" 1.298 +PRINT "C: Wie heiát der Tote?" 1.299 +PRINT "" 1.300 +PRINT "D: Ende." 1.301 +PRINT "" 1.302 +COLOR 12 1.303 +INPUT "Was sagst du?", s$ 1.304 +PRINT 1.305 +COLOR 9 1.306 +IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch." 1.307 +IF s$ = "B" THEN PRINT "Im Schlafzimmer." 1.308 +IF s$ = "B" THEN SLEEP 1.309 +IF s$ = "B" GOTO 5 1.310 +IF s$ = "C" THEN PRINT "Karl Mller." 1.311 +IF s$ = "D" THEN END 1.312 +SLEEP 1.313 +INPUT "", nzl 1.314 +GOTO 4 1.315 + 1.316 +5 : 1.317 +CLS 1.318 +COLOR 9 1.319 +PRINT 1.320 +PRINT "A: Ich heiáe "; name$; "" 1.321 +PRINT "" 1.322 +PRINT "B: Wo ist die Leiche?" 1.323 +PRINT "" 1.324 +PRINT "C: Wie heiát der Tote?" 1.325 +PRINT 1.326 +PRINT "D: Wo ist das Schlafzimmer?" 1.327 +PRINT "" 1.328 +PRINT "E: Ende" 1.329 +PRINT "" 1.330 +PRINT "" 1.331 +COLOR 12 1.332 +INPUT "Was sagst du?", s$ 1.333 +PRINT 1.334 +COLOR 9 1.335 +IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch." 1.336 +IF s$ = "B" THEN PRINT "Im Schlafzimmer." 1.337 +IF s$ = "C" THEN PRINT "Karl Mller." 1.338 +IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links." 1.339 +IF s$ = "E" THEN GOTO 6 1.340 +SLEEP 1.341 +INPUT "", nzl 1.342 +GOTO 5 1.343 + 1.344 +6 : 1.345 +CLS 1.346 +zuege% = 0 1.347 +LOCATE 13, 10 1.348 +COLOR 10 1.349 +PRINT "Flur" 1.350 +raum = 2 1.351 +SLEEP 1.352 +INPUT "", nzl 1.353 +a6: 1.354 +CLS 1.355 +COLOR 7 1.356 +PRINT 1.357 +IF kerzenst% = 1 GOTO 116 1.358 +PRINT 1.359 +INPUT "Was machst du?", B$ 1.360 +zuege% = zuege% + 1 1.361 +IF B$ = "sprechen mit Herr Fisch" GOTO 5 1.362 +IF B$ = "gehen in Schlafzimmer" GOTO 7 1.363 +IF B$ = "gehen in Arbeitszimmer" GOTO 105 1.364 +IF B$ = "gehen in Esszimmer" GOTO 106 1.365 +IF B$ = "gehen in Kcher" GOTO 109 1.366 +IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 1.367 +IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuá!" 1.368 +IF B$ = "gehen Heim " GOTO a6 1.369 +IF B$ = "q" THEN END 1.370 +IF B$ = "m" THEN GOSUB yy 1.371 +IF B$ = "b" THEN GOSUB yx 1.372 +IF B$ = "s" THEN GOSUB speichern 1.373 +PRINT "" 1.374 +PRINT "Nee!" 1.375 +IF zuege = 5 GOTO d 1.376 +GOTO a6 1.377 + 1.378 +d: 1.379 +COLOR 4 1.380 +PRINT "gehen in ..." 1.381 +SLEEP 1.382 +INPUT "", nzl 1.383 +GOTO a6 1.384 + 1.385 +7 : 1.386 +CLS 1.387 +raum = 3 1.388 +COLOR 2 1.389 +PRINT "Die Leiche, ein etwa 20 Jahre alter" 1.390 +PRINT 1.391 +PRINT "Mann, liegt mit einem Messer im Rcken" 1.392 +PRINT 1.393 +PRINT "auf dem Bett. Ich decke die Leiche" 1.394 +PRINT 1.395 +PRINT "als erstes mit einem Tuch ab und rufe" 1.396 +PRINT 1.397 +PRINT "mit meinem Handy Tina an. Tina ist" 1.398 +PRINT 1.399 +PRINT "Spezialistin fr Fingerabdrcke." 1.400 +SLEEP 1.401 +INPUT "", nzl 1.402 +GOTO 8 1.403 + 1.404 +8 : 1.405 +CLS 1.406 +PRINT 1.407 +COLOR 7 1.408 +INPUT "Was machst du?", B$ 1.409 +IF B$ = "gehen in Flur" GOTO 103 1.410 +IF B$ = "gehen in Arbeitszimmer" GOTO 105 1.411 +IF B$ = "gehen in Esszimmer" GOTO 106 1.412 +IF B$ = "gehen in Kche" GOTO 109 1.413 +IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 1.414 +IF B$ = "untersuchen Schlafzimmer" GOTO 9 1.415 +IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank." 1.416 +IF B$ = "”ffnen Aktenschrank" GOTO 101 1.417 +IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut," 1.418 +IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Straáe." 1.419 +IF B$ = "untersuchen Bett" GOTO 100 1.420 +IF B$ = "nehmen Taschenlampe" GOTO e 1.421 +IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond" 1.422 +IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf." 1.423 +IF B$ = "sprechen mit Tina" THEN PRINT "Die st”re ich lieber nicht bei der Arbeit." 1.424 +IF B$ = "q" THEN END 1.425 +IF B$ = "m" THEN GOSUB yy 1.426 +IF B$ = "b" THEN GOSUB yx 1.427 +IF B$ = "s" THEN GOSUB speichern 1.428 +PRINT 1.429 +PRINT "Nein" 1.430 +PRINT 1.431 +SLEEP 1.432 +INPUT "", nzl 1.433 +GOTO 8 1.434 + 1.435 +e: 1.436 +CLS 1.437 +PAINT (200, 5), 1 1.438 +LINE (125, 75)-(300, 125), 16, BF 1.439 +CIRCLE (125, 100), 45, 16 1.440 +PAINT (124, 100), 16 1.441 +LINE (80, 63)-(125, 137), 16, BF 1.442 +LINE (80, 63)-(0, 50), 14 1.443 +LINE (80, 137)-(0, 150), 14 1.444 +LOCATE 11, 22 1.445 +PRINT "Mag Lite" 1.446 +tlampe% = 1 1.447 +SLEEP 1.448 +INPUT "", nzl 1.449 +CLS 1.450 +GOTO 8 1.451 + 1.452 +9 : 1.453 +CLS 1.454 +COLOR 2 1.455 +PRINT "In der Mitte steht das Bett, ber dem" 1.456 +PRINT 1.457 +PRINT "Bett h„ngt ein Poster, auf der" 1.458 +PRINT 1.459 +PRINT "linken Seite befindet sich ein Schrank" 1.460 +PRINT 1.461 +PRINT "und an der rechten Wand ist ein Fenster." 1.462 +IF vvx% = 1 THEN PRINT "Tina sichert gerade" 1.463 +IF vvx% = 1 THEN PRINT "die Fingerabdrcke." 1.464 +SLEEP 1.465 +INPUT "", nzl 1.466 +GOTO 8 1.467 + 1.468 +100 : 1.469 +CLS 1.470 +COLOR 2 1.471 +PRINT "Unter dem Bett liegt eine Taschenlampe." 1.472 +SLEEP 1.473 +INPUT "", nzl 1.474 +GOTO 8 1.475 + 1.476 +101 : 1.477 +CLS 1.478 +versuch% = 0 1.479 +COLOR 2 1.480 +PRINT "Hinter den Ordnern ist ein Geheimfach" 1.481 +PRINT 1.482 +PRINT "mit einem dreistelligen Zahlenschloss." 1.483 +SLEEP 1.484 +INPUT "", nzl 1.485 +a101: 1.486 +CLS 1.487 +versuch% = versuch% + 1 1.488 +COLOR 5 1.489 +INPUT "Wie lautet die Kombination?", k$ 1.490 +IF k$ = "000" THEN PRINT "War wohl falsch." 1.491 +IF k$ = "007" GOTO 102 1.492 +IF k$ = "q" THEN END 1.493 +PRINT "Komm streng dich ein bischen an!" 1.494 +IF versuch% = 3 THEN PRINT "Tipp: Karl Mller war Jean Connery Fan." 1.495 +IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster." 1.496 +SLEEP 1.497 +INPUT "", nzl 1.498 +GOTO a101 1.499 + 1.500 +102 : 1.501 +CLS 1.502 +COLOR 2 1.503 +PRINT "Bravo, du hast echt gut kombiniert." 1.504 +PRINT 1.505 +PRINT "In dem Geheimfach befindet sich ein Schlssel." 1.506 +SLEEP 1.507 +INPUT "", nzl 1.508 + 1.509 + 1.510 +F: 1.511 +CLS 1.512 +PAINT (1, 1), 1 1.513 +LINE (50, 80)-(60, 140), 14, BF 1.514 +LINE (60, 80)-(70, 135), 14, BF 1.515 +LINE (50, 80)-(200, 100), 14, BF 1.516 +LINE (90, 80)-(100, 120), 14, BF 1.517 +LINE (100, 80)-(110, 130), 14, BF 1.518 +CIRCLE (240, 90), 50, 14 1.519 +CIRCLE (240, 90), 30, 14 1.520 +PAINT (240, 50), 14 1.521 +schluessel% = 1 1.522 +SLEEP 1.523 +INPUT "", nzl 1.524 +CLS 1.525 +GOTO 114 1.526 + 1.527 +103 : 1.528 +CLS 1.529 +LOCATE 13, 10 1.530 +COLOR 10 1.531 +PRINT "Flur" 1.532 +SLEEP 1.533 +INPUT "", nzl 1.534 +GOTO 104 1.535 + 1.536 +104 : 1.537 +CLS 1.538 +COLOR 2 1.539 +PRINT "Links geht es die Treppe zum Schlafzimmer" 1.540 +PRINT 1.541 +PRINT "hinauf, gerade aus geht's ins Esszimmer" 1.542 +PRINT 1.543 +PRINT " und rechts ins Arbeitszimmer." 1.544 +SLEEP 1.545 +INPUT "", nzl 1.546 +GOTO a6 1.547 + 1.548 +105 : 1.549 +CLS 1.550 +LOCATE 13, 10 1.551 +COLOR 10 1.552 +PRINT "Arbeitszimmer" 1.553 +raum = 5 1.554 +SLEEP 1.555 +INPUT "", nzl 1.556 +a105: 1.557 +CLS 1.558 +COLOR 7 1.559 +INPUT "Was machst du?", B$ 1.560 +IF B$ = "gehen in Schlafzimmer" GOTO 114 1.561 +IF B$ = "gehen in Flur" GOTO 103 1.562 +IF B$ = "gehen in Esszimmer" GOTO 106 1.563 +IF B$ = "gehen in Kche" GOTO 109 1.564 +IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 1.565 +IF B$ = "untersuchen Arbeitszimmer" GOTO 107 1.566 +IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen." 1.567 +IF B$ = "untersuchen Bcherregal" GOTO 122 1.568 +IF B$ = "untersuchen Buch" THEN PRINT "Wenn's noch im Regal ist!?" 1.569 +IF B$ = "nehmen Buch" GOTO 124 1.570 +IF B$ = "benutzen Schlssel" THEN PRINT "Das Schlsselschloss w„re geknackt." 1.571 +IF B$ = "benutzen Schlssel" THEN sx% = 1 1.572 +IF B$ = "benutzen Schlssel" GOTO 138 1.573 +IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127 1.574 +IF B$ = "z" GOTO 125 1.575 +IF B$ = "m" THEN GOSUB yy 1.576 +IF B$ = "q" THEN END 1.577 +IF B$ = "b" THEN GOSUB yx 1.578 +IF B$ = "s" THEN GOSUB speichern 1.579 +SLEEP 1.580 +INPUT "", nzl 1.581 +PRINT "Heute nicht!" 1.582 +GOTO a105 1.583 + 1.584 +107 : 1.585 +CLS 1.586 +COLOR 2 1.587 +PRINT "In der Mitte steht ein Schreibtisch," 1.588 +PRINT 1.589 +PRINT "rechts befindet sich ein Schrank und" 1.590 +PRINT 1.591 +PRINT "links ein Bcherregal." 1.592 +SLEEP 1.593 +INPUT "", nzl 1.594 +GOTO 105 1.595 + 1.596 +106 : 1.597 +CLS 1.598 +LOCATE 13, 10 1.599 +COLOR 10 1.600 +PRINT "Esszimmer" 1.601 +raum = 6 1.602 +SLEEP 1.603 +INPUT "", nzl 1.604 +a106: 1.605 +CLS 1.606 +COLOR 7 1.607 +INPUT "Was machst du?", B$ 1.608 +IF B$ = "gehen in Schlafzimmer" GOTO 114 1.609 +IF B$ = "gehen in Flur" GOTO 103 1.610 +IF B$ = "gehen in Arbeitszimmer" GOTO 105 1.611 +IF B$ = "gehen in Kche" GOTO 109 1.612 +IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 1.613 +IF B$ = "untersuchen Esszimmer" GOTO 108 1.614 +IF B$ = "untersuchen Tisch" GOTO 110 1.615 +IF B$ = "nehmen Kerzenst„nder" GOTO 115 1.616 +IF B$ = "q" THEN END 1.617 +IF B$ = "m" THEN GOSUB yy 1.618 +IF B$ = "b" THEN GOSUB yx 1.619 +IF B$ = "s" THEN GOSUB speichern 1.620 +SLEEP 1.621 +INPUT "", nzl 1.622 +GOTO a106 1.623 + 1.624 +108 : 1.625 +CLS 1.626 +PRINT "In der Mitte steht der Tisch und auf" 1.627 +PRINT 1.628 +PRINT "der rechten Seite ist die Tr zur Kche." 1.629 +SLEEP 1.630 +INPUT "", nzl 1.631 +GOTO 106 1.632 + 1.633 +110 : 1.634 +CLS 1.635 +PRINT "Ein sch”ner eichener Tisch mit einer" 1.636 +PRINT 1.637 +PRINT "geh„kelten Tischdecke und einem" 1.638 +PRINT 1.639 +PRINT "Kerzenst„nder in der Mitte." 1.640 +SLEEP 1.641 +INPUT "", nzl 1.642 +GOTO a106 1.643 + 1.644 +109 : 1.645 +CLS 1.646 +LOCATE 13, 10 1.647 +COLOR 10 1.648 +PRINT "Kche" 1.649 +raum = 7 1.650 +SLEEP 1.651 +INPUT "", nzl 1.652 +a109: 1.653 +CLS 1.654 +INPUT "Was machst du?", B$ 1.655 +IF B$ = "gehen in Schlafzimmer" GOTO 114 1.656 +IF B$ = "gehen in Flur" GOTO 103 1.657 +IF B$ = "gehen in Arbeitszimmer" GOTO 105 1.658 +IF B$ = "gehen in Esszimmer" GOTO 106 1.659 +IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 1.660 +IF B$ = "untersuchen Kche" GOTO 111 1.661 +IF B$ = "untersuchen Kchenschrank" GOTO 112 1.662 +IF B$ = "”ffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer." 1.663 +IF B$ = "nehmen Messer" GOTO 113 1.664 +IF B$ = "q" THEN END 1.665 +IF B$ = "m" THEN GOSUB yy 1.666 +IF B$ = "b" THEN GOSUB yx 1.667 +IF B$ = "s" THEN GOSUB speichern 1.668 +SLEEP 1.669 +INPUT "", nzl 1.670 +GOTO a109 1.671 + 1.672 +111 : 1.673 +CLS 1.674 +PRINT "Links ist die Kochzeile, in der Mitte" 1.675 +PRINT 1.676 +PRINT "ein kleiner Tisch mit zwei Sthlen und" 1.677 +PRINT 1.678 +PRINT "rechts der Kchenschrank." 1.679 +SLEEP 1.680 +INPUT "", nzl 1.681 +GOTO a109 1.682 + 1.683 +112 : 1.684 +CLS 1.685 +PRINT "Es ist nichts Ausergew”hnliches daran" 1.686 +PRINT 1.687 +PRINT "zu erkennen, nur eine Schublade in der" 1.688 +PRINT 1.689 +PRINT "es bestimmt interesantes zu entdecken gibt." 1.690 +SLEEP 1.691 +INPUT "", nzl 1.692 +GOTO a109 1.693 + 1.694 +113 : 1.695 +CLS 1.696 +LINE (90, 70)-(180, 110), 7, BF 1.697 +LINE (50, 70)-(90, 70), 7 1.698 +LINE (50, 70)-(90, 110), 7 1.699 +PAINT (80, 80), 7 1.700 +LINE (180, 40)-(200, 140), 8, BF 1.701 +LINE (201, 70)-(250, 110), 6, BF 1.702 +CIRCLE (250, 90), 24, 6 1.703 +PAINT (260, 80), 6 1.704 +SLEEP 1.705 +INPUT "", nzl 1.706 +CLS 1.707 +messer% = 1 1.708 +GOTO a109 1.709 + 1.710 +114 : 1.711 +CLS 1.712 +LOCATE 13, 10 1.713 +COLOR 10 1.714 +PRINT "Schlafzimmer" 1.715 +raum = 8 1.716 +SLEEP 1.717 +INPUT "", nzl 1.718 +GOTO 8 1.719 + 1.720 +115 : 1.721 +CLS 1.722 +LINE (120, 20)-(200, 20), 7 1.723 +LINE (120, 20)-(140, 40), 7 1.724 +LINE (200, 20)-(180, 40), 7 1.725 +LINE (150, 50)-(170, 130), 7, BF 1.726 +LINE (130, 150)-(190, 180), 7, BF 1.727 +LINE (130, 160)-(100, 190), 7 1.728 +LINE (100, 190)-(220, 190), 7 1.729 +LINE (220, 190)-(190, 160), 7 1.730 +CIRCLE (160, 40), 20, 7 1.731 +CIRCLE (160, 150), 30, 7 1.732 +PAINT (140, 30), 7 1.733 +PAINT (180, 30), 7 1.734 +PAINT (160, 45), 7 1.735 +PAINT (160, 140), 7 1.736 +PAINT (160, 185), 7 1.737 +SLEEP 1.738 +INPUT "", nzl 1.739 +CLS 1.740 +kerzenst% = 1 1.741 +GOTO a106 1.742 + 1.743 +116 : 1.744 +CLS 1.745 +COLOR 7 1.746 +INPUT "Was machst du?", B$ 1.747 +zuege% = zuege% + 1 1.748 +IF B$ = "gehen in Schlafzimmer" GOTO 114 1.749 +IF B$ = "gehen in Arbeitszimmer" GOTO 105 1.750 +IF B$ = "gehen in Esszimmer" GOTO 106 1.751 +IF B$ = "gehen in Kche" GOTO 109 1.752 +IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 1.753 +IF B$ = "sprechen mit Herr Fisch" GOTO 5 1.754 +IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!" 1.755 +IF B$ = "untersuchen Flur" GOTO 117 1.756 +IF B$ = "sprechen mit Tina" GOTO 118 1.757 +IF B$ = "q" THEN END 1.758 +IF B$ = "m" THEN GOSUB yy 1.759 +IF B$ = "b" THEN GOSUB yx 1.760 +PRINT "" 1.761 +PRINT "Keine Lust!" 1.762 +PRINT "" 1.763 +SLEEP 1.764 +INPUT "", nzl 1.765 +GOTO 116 1.766 + 1.767 +117 : 1.768 +CLS 1.769 +IF kerzenst% = 0 GOTO 121 1.770 +PRINT "Links geht es die Treppe zum Schlafzimmer hinauf," 1.771 +PRINT 1.772 +PRINT "gerade aus geht's ins Esszimmer und rechts ins" 1.773 +PRINT 1.774 +PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..." 1.775 +PRINT 1.776 +PRINT "gerade klingelt es an der Tr. Herr Fisch macht" 1.777 +PRINT 1.778 +PRINT "auf und Tina kommt herein." 1.779 +vvv% = 1 1.780 +SLEEP 1.781 +INPUT "", nzl 1.782 +GOTO 116 1.783 + 1.784 +118 : 1.785 +CLS 1.786 +COLOR 9 1.787 +PRINT "A: Sch”n, dass du so schnell gekommen bist." 1.788 +PRINT 1.789 +PRINT "B: Der Tote liegt im Schlafzimmer." 1.790 +PRINT 1.791 +PRINT "C: Ende." 1.792 +LOCATE 8, 1 1.793 +COLOR 12 1.794 +INPUT "Was sagst du?", s$ 1.795 +PRINT 1.796 +COLOR 9 1.797 +IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht." 1.798 +IF s$ = "B" GOTO 119 1.799 +IF s$ = "C" GOTO 116 1.800 +SLEEP 1.801 +INPUT "", nzl 1.802 +GOTO 118 1.803 + 1.804 +119 : 1.805 +CLS 1.806 +COLOR 9 1.807 +PRINT "Okay, aber wo ist das Schlafzimmer?" 1.808 +SLEEP 1.809 +INPUT "", nzl 1.810 +GOTO 120 1.811 + 1.812 +120 : 1.813 +CLS 1.814 +COLOR 12 1.815 +PRINT "Welchen Weg beschreibst du ihr?" 1.816 +PRINT 1.817 +PRINT "a: Links die Treppe hinauf." 1.818 +PRINT 1.819 +PRINT "b: Rechts die Treppe hinunter." 1.820 +PRINT 1.821 +PRINT "c: Die Treppe hinauf, dann links." 1.822 +PRINT 1.823 +INPUT "a, b oder c?", w$ 1.824 +PRINT 1.825 +COLOR 2 1.826 +IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Ged„chtnis!" 1.827 +IF w$ = "c" THEN cheat1 = 1 1.828 +IF w$ = "a" THEN PRINT "Leider falsch.Die richtige L”sung war c." 1.829 +IF w$ = "b" THEN PRINT "Leider falsch.Die richtige L”sung war c." 1.830 +vvx% = 1 1.831 +SLEEP 1.832 +INPUT "", nzl 1.833 +GOTO 116 1.834 + 1.835 +121 : 1.836 +CLS 1.837 +COLOR 2 1.838 +PRINT "Links geht es die Treppe zum Schlafzimmer" 1.839 +PRINT 1.840 +PRINT "hinauf, gerade aus geht's ins Esszimmer und" 1.841 +PRINT 1.842 +PRINT "rechts ins Arbeitszimmer. Im Flur steht" 1.843 +PRINT 1.844 +PRINT "Herr Fisch und beantwortet gern alle deine Fragen." 1.845 +SLEEP 1.846 +INPUT "", nzl 1.847 +GOTO 116 1.848 + 1.849 +122 : 1.850 +CLS 1.851 +COLOR 2 1.852 +IF vvx% = 1 GOTO 123 1.853 +PRINT "Ich sehe nichts Besonderes." 1.854 +SLEEP 1.855 +INPUT "", nzl 1.856 +GOTO 105 1.857 + 1.858 +123 : 1.859 +CLS 1.860 +COLOR 2 1.861 +PRINT "Da hat's ja ein Buch mit 123 Reiseerz„hlungen" 1.862 +PRINT 1.863 +PRINT "von Karl May, meinem Leiblingsautor. Das sollte" 1.864 +PRINT 1.865 +PRINT "ich mir genauer anschauen." 1.866 +SLEEP 1.867 +INPUT "", nzl 1.868 +GOTO 105 1.869 + 1.870 +124 : 1.871 +CLS 1.872 +COLOR 2 1.873 +PRINT "Das Buch l„sst sich nur halb heraus ziehen." 1.874 +PRINT 1.875 +PRINT "Pl”tzlich schwenkt das ganze Bcherregal zur" 1.876 +PRINT 1.877 +PRINT "Seite und dhinter kommt eine Tr zum Vorschein." 1.878 +PRINT 1.879 +PRINT "Sie ist durch ein Schlssel- und ein " 1.880 +PRINT 1.881 +PRINT "Zahlenschloss gesichert." 1.882 +PRINT 1.883 +COLOR 6 1.884 +PRINT "Wenn du im Arbeitszimmer z drckst, kannst du" 1.885 +PRINT 1.886 +PRINT "die Zahlenkombination eingeben." 1.887 +SLEEP 1.888 +INPUT "", nzl 1.889 +GOTO 105 1.890 + 1.891 +125 : 1.892 +zkx% = 0 1.893 +a125: 1.894 +CLS 1.895 +zkx% = zkx% + 1 1.896 +COLOR 5 1.897 +INPUT "Wie lautet die Kombination?", zk$ 1.898 +IF zk$ = "007" THEN PRINT "So einfach ist es nicht" 1.899 +IF zk$ = "123" GOTO 126 1.900 +IF zk$ = "q" GOTO 105 1.901 +PRINT "Leider falsch. Probier's noch einmal." 1.902 +IF zkx% = 5 THEN PRINT "Tipp: Das Bcherregal." 1.903 +SLEEP 1.904 +INPUT "", nzl 1.905 +GOTO a125 1.906 + 1.907 +126 : 1.908 +CLS 1.909 +COLOR 2 1.910 +PRINT "Die Kombination war richtig." 1.911 +kx% = 1 1.912 +IF sx% = 1 GOTO 137 1.913 +PRINT "Jetzt musst du nur noch das Schlsselschloss ”ffnen." 1.914 +SLEEP 1.915 +INPUT "", nzl 1.916 +GOTO 105 1.917 + 1.918 +137 : 1.919 +CLS 1.920 +COLOR 2 1.921 +PRINT "So, die Tr ist jetzt offen. Dahinter befindet" 1.922 +PRINT 1.923 +PRINT "sich ein Geheimgang." 1.924 +SLEEP 1.925 +INPUT "", nzl 1.926 +GOTO 105 1.927 + 1.928 +138 : 1.929 +CLS 1.930 +COLOR 2 1.931 +IF kx% = 1 GOTO 137 1.932 +PRINT "Jetzt musst du nur noch die Kombination knacken." 1.933 +SLEEP 1.934 +INPUT "", nzl 1.935 +GOTO 105 1.936 + 1.937 +127 : 1.938 +CLS 1.939 +COLOR 2 1.940 +IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein." 1.941 +SLEEP 1.942 +INPUT "", nzl 1.943 +IF tlampe% = 0 GOTO 105 1.944 +1000 : 1.945 +CLS 1.946 +LOCATE 13, 10 1.947 +COLOR 10 1.948 +PRINT "Geheimgang" 1.949 +raum = 12 1.950 +SLEEP 1.951 +INPUT "", nzl 1.952 +CLS 1.953 +COLOR 2 1.954 +PRINT "Gut, dass ich eine Taschenlampe dabei habe." 1.955 +PRINT 1.956 +PRINT "Oh, es geht steil bergab .... ich muss schon" 1.957 +PRINT 1.958 +PRINT "mindestens 5 Meter unter der Erdoberfl„che" 1.959 +PRINT 1.960 +PRINT "sein .... Jetzt bin ich schon 10 Minuten" 1.961 +PRINT 1.962 +PRINT "unterwegs ..... da vorne kommt eine Tr" 1.963 +PRINT 1.964 +PRINT "genau so gesichert wie die hinter dem Regal" 1.965 +PRINT 1.966 +PRINT "gut, dass ich den Schlssel habe und den" 1.967 +PRINT 1.968 +PRINT "Code kenne ..... Wo bin ich denn jetzt?" 1.969 +PRINT 1.970 +PRINT "Sieht aus, wie der Keller eines Hauses" 1.971 +PRINT 1.972 +PRINT "ist aber ganz sch”n zerfallen." 1.973 +SLEEP 1.974 +INPUT "", nzl 1.975 +GOTO 130 1.976 + 1.977 +130 : 1.978 +CLS 1.979 +LOCATE 13, 10 1.980 +COLOR 10 1.981 +PRINT "Keller" 1.982 +raum = 9 1.983 +SLEEP 1.984 +INPUT "", nzl 1.985 +a130: 1.986 +CLS 1.987 +COLOR 7 1.988 +INPUT "Was machst du?", B$ 1.989 +zuege% = zuege% + 1 1.990 +IF B$ = "gehen in Flur" GOTO 103 1.991 +IF B$ = "gehen in Schlafzimmer" GOTO 114 1.992 +IF B$ = "gehen in Arbeitszimmer" GOTO 105 1.993 +IF B$ = "gehen in Esszimmer" GOTO 106 1.994 +IF B$ = "gehen in Kche" GOTO 109 1.995 +IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132 1.996 +IF B$ = "sprechen mit Herr Fisch" GOTO 5 1.997 +IF B$ = "untersuchen Keller" GOTO 128 1.998 +IF B$ = "benutzen Treppe" GOTO 132 1.999 +IF B$ = "q" THEN END 1.1000 +IF B$ = "m" THEN GOSUB yy 1.1001 +IF B$ = "b" THEN GOSUB yx 1.1002 +IF B$ = "s" THEN GOSUB speichern 1.1003 +PRINT "" 1.1004 +PRINT "Jetzt nicht." 1.1005 +PRINT 1.1006 +SLEEP 1.1007 +INPUT "", nzl 1.1008 +GOTO a130 1.1009 + 1.1010 +128 : 1.1011 +CLS 1.1012 +COLOR 2 1.1013 +PRINT "Ein zerfallener Keller, alles verstaubt." 1.1014 +PRINT 1.1015 +PRINT "Gerade aus geht eine Treppe nach oben." 1.1016 +PRINT 1.1017 +PRINT "" 1.1018 +SLEEP 1.1019 +INPUT "", nzl 1.1020 +GOTO 130 1.1021 + 1.1022 + 1.1023 +131 : 1.1024 +CLS 1.1025 +COLOR 2 1.1026 +PRINT "In der Lagerhalle ist alles genau so" 1.1027 +PRINT 1.1028 +PRINT "zerfallen, wie im Keller. šberall sind Kartons" 1.1029 +PRINT 1.1030 +PRINT "gestapelt. Gerade aus geht eine Tr ins Freie." 1.1031 +SLEEP 1.1032 +INPUT "", nzl 1.1033 +RETURN 1.1034 + 1.1035 +132 : 1.1036 +CLS 1.1037 +LOCATE 13, 10 1.1038 +COLOR 10 1.1039 +PRINT "Lagerhalle" 1.1040 +raum = 10 1.1041 +SLEEP 1.1042 +INPUT "", nzl 1.1043 +CLS 1.1044 +a132: 1.1045 +CLS 1.1046 +COLOR 7 1.1047 +INPUT "Was machst du?", B$ 1.1048 +zuege% = zuege% + 1 1.1049 +IF B$ = "gehen in Schlafzimmer" GOTO 114 1.1050 +IF B$ = "gehen in Arbeitszimmer" GOTO 105 1.1051 +IF B$ = "gehen in Esszimmer" GOTO 106 1.1052 +IF B$ = "gehen in Kche" GOTO 109 1.1053 +IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131 1.1054 +IF B$ = "”ffnen Tr" GOTO 133 1.1055 +IF B$ = "untersuchen Kartons" THEN GOSUB 134 1.1056 +IF B$ = "benutzen Messer" GOTO 136 1.1057 +IF B$ = "q" THEN END 1.1058 +IF B$ = "m" THEN GOSUB yy 1.1059 +IF B$ = "b" THEN GOSUB yx 1.1060 +IF B$ = "s" THEN GOSUB speichern 1.1061 +PRINT "" 1.1062 +PRINT "N”!" 1.1063 +PRINT 1.1064 +SLEEP 1.1065 +INPUT "", nzl 1.1066 +GOTO a132 1.1067 + 1.1068 +133 : 1.1069 +CLS 1.1070 +COLOR 2 1.1071 +PRINT "Die Tr ist mit einem Zahlenschloss verschlossen," 1.1072 +PRINT 1.1073 +PRINT "aber man kann die Tr einen Spalt weit aufdrcken." 1.1074 +PRINT 1.1075 +PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus" 1.1076 +PRINT 1.1077 +PRINT "auf mich zuf„hrt. Ich kann gerade noch zur Seite" 1.1078 +PRINT 1.1079 +PRINT "hechten ohne, dass mich die Scheinwerfer erreichen." 1.1080 +PRINT 1.1081 +PRINT "Jetzt ist schnelles Handeln wichtig!" 1.1082 +PRINT 1.1083 +SLEEP 1.1084 +INPUT "", nzl 1.1085 +a133: 1.1086 +COLOR 7 1.1087 +INPUT "Wo versteckst du dich? In ", v$ 1.1088 +v% = v% + 1 1.1089 +IF v$ = "leerem Karton" GOTO 135 1.1090 +IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken." 1.1091 +IF v$ = "Geheimgang" THEN PRINT "Dafr reicht die Zeit nicht." 1.1092 +IF v$ = "Keller" THEN PRINT "Dafr reicht die Zeit nicht." 1.1093 +IF v$ = " untersuchen Lagerhalle" THEN GOSUB 131 1.1094 +IF v$ = "untersuchen Kartons" THEN GOSUB 134 1.1095 +IF v$ = "q" THEN END 1.1096 +IF v% = 9 THEN PRINT "Tipp: l..... K....." 1.1097 +IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an." 1.1098 +PRINT "Da habe ich zu wenig Zeit dafr." 1.1099 +SLEEP 1.1100 +INPUT "", nzl 1.1101 +GOTO a133 1.1102 + 1.1103 +134 : 1.1104 +CLS 1.1105 +COLOR 2 1.1106 +PRINT "Auf der linken Seite sind die vollen Kartons" 1.1107 +PRINT 1.1108 +PRINT "gestapelt und rechts liegen die leeren auf" 1.1109 +PRINT 1.1110 +PRINT "einem Haufen." 1.1111 +SLEEP 1.1112 +INPUT "", nzl 1.1113 +RETURN 1.1114 + 1.1115 +135 : 1.1116 +CLS 1.1117 +COLOR 2 1.1118 +PRINT "Das ist eine gute Idee. Ich mache mich" 1.1119 +PRINT 1.1120 +PRINT "sofort an die Arbeit. Raschel, raschel" 1.1121 +PRINT 1.1122 +PRINT "... uff ... so ... geich ... jetzt ..." 1.1123 +PRINT 1.1124 +PRINT "Okay ich hab's geschafft. Jetzt kann" 1.1125 +PRINT 1.1126 +PRINT "ich nur nichts mehr sehen. Ich sollte" 1.1127 +PRINT 1.1128 +PRINT "mir ein Loch zum Rausschauen in den" 1.1129 +PRINT 1.1130 +PRINT "Karton reiáen. So ... uff, der ist zu" 1.1131 +PRINT 1.1132 +PRINT "stabil, da brauche ich ein Werkzeug dazu." 1.1133 +SLEEP 1.1134 +INPUT "", nzl 1.1135 +GOTO 132 1.1136 + 1.1137 +136 : 1.1138 +CLS 1.1139 +COLOR 2 1.1140 +IF messer% = 0 THEN PRINT "Ich habe kein Messer." 1.1141 +IF messer% = 0 THEN PRINT 1.1142 +IF messer% = 0 THEN PRINT "Ich sitze weiterhin im Dunkeln. Nach einer" 1.1143 +IF messer% = 0 THEN PRINT 1.1144 +IF messer% = 0 THEN PRINT "halben Stunde geht der Typ wieder. Ich" 1.1145 +IF messer% = 0 THEN PRINT 1.1146 +IF messer% = 0 THEN PRINT "begebe mich sofort zurck ins Haus. So" 1.1147 +IF messer% = 0 THEN PRINT 1.1148 +IF messer% = 0 THEN PRINT "schlecht vorbereited begebe ich mich nicht" 1.1149 +IF messer% = 0 THEN PRINT 1.1150 +IF messer% = 0 THEN PRINT "wieder in Gefahr." 1.1151 +IF messer% = 0 THEN PRINT 1.1152 +IF messer% = 0 THEN SLEEP 1.1153 +IF messer% = 0 THEN PRINT 1.1154 +IF messer% = 0 THEN INPUT "", nzl 1.1155 +IF messer% = 0 THEN PRINT 1.1156 +IF messer% = 0 GOTO 105 1.1157 +PRINT "Gute Idee, das mit dem Messer. Der Typ" 1.1158 +PRINT 1.1159 +PRINT "f„hrt jetzt mit seinem Kleinbus in die Halle." 1.1160 +PRINT 1.1161 +PRINT "Er steigt aus und macht die Hecktren auf." 1.1162 +PRINT 1.1163 +PRINT "Nun l„d er zwei Kartons in das Gef„hrt, er" 1.1164 +PRINT 1.1165 +PRINT "schlieát die Tren, steigt wieder ein und" 1.1166 +PRINT 1.1167 +PRINT "f„hrt hinaus." 1.1168 +PRINT 1.1169 +PRINT "Uff, das h„tte ich geschafft. Jetzt bloá schnell" 1.1170 +PRINT 1.1171 +PRINT "zurck ins Haus." 1.1172 +SLEEP 1.1173 +INPUT "", nzl 1.1174 +GOTO 139 1.1175 + 1.1176 +139 : 1.1177 +CLS 1.1178 +PRINT "Was machst du?" 1.1179 +PRINT "" 1.1180 +PRINT "a: nach Hause gehen" 1.1181 +PRINT "" 1.1182 +PRINT "b: noch da bleiben" 1.1183 +PRINT "" 1.1184 +PRINT "c: nochmal in die Lagerhalle gehen" 1.1185 +PRINT "" 1.1186 +INPUT "Und wie entscheidest du dich?", entscheidung$ 1.1187 +PRINT 1.1188 +IF entscheidung$ = "a" GOTO 140 1.1189 +IF entscheidung$ = "b" GOTO 105 1.1190 +IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!" 1.1191 + 1.1192 +140 : 1.1193 +CLS 1.1194 +LOCATE 13, 10 1.1195 +COLOR 10 1.1196 +PRINT "Zuhause" 1.1197 +raum = 11 1.1198 +SLEEP 1.1199 +INPUT "", nzl 1.1200 +a140: 1.1201 +CLS 1.1202 +PRINT "Du willst dir gerade einen Tee machen, als" 1.1203 +PRINT "" 1.1204 +PRINT "Du einen Schlag an der Tr h”rst und das" 1.1205 +PRINT "" 1.1206 +PRINT "Licht aus geht." 1.1207 +PRINT "" 1.1208 +PRINT "Was machst du?" 1.1209 +PRINT "" 1.1210 +PRINT "a: die Tr ”ffnen" 1.1211 +PRINT "" 1.1212 +PRINT "b: die Polizei anrufen" 1.1213 +PRINT "" 1.1214 +PRINT "c: dich unter dem Bett verstecken" 1.1215 +PRINT "" 1.1216 +INPUT "Und?", w$ 1.1217 +PRINT 1.1218 +IF w$ = "a" GOTO 141 1.1219 +IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst l”sen." 1.1220 +IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen." 1.1221 +GOTO a140 1.1222 + 1.1223 +141 : 1.1224 +CLS 1.1225 +COLOR 2 1.1226 +PRINT 1.1227 +PRINT 1.1228 +PRINT "Du siehst gerade noch ein Auto" 1.1229 +PRINT 1.1230 +PRINT "wegfahren. " 1.1231 +SLEEP 1.1232 +INPUT "", nzl 1.1233 +CLS 1.1234 +LINE (70, 100)-(250, 150), 2, BF 1.1235 +LINE (70, 100)-(90, 60), 2 1.1236 +LINE (71, 100)-(91, 60), 2 1.1237 +LINE (250, 100)-(230, 60), 2 1.1238 +LINE (249, 100)-(229, 60), 2 1.1239 +CIRCLE (115, 78), 12, 6 1.1240 +PAINT (115, 78), 6 1.1241 +LINE (90, 90)-(140, 99), 1, BF 1.1242 +LINE (90, 90)-(85, 99), 1 1.1243 +LINE (145, 99)-(140, 90), 1 1.1244 +LINE (85, 99)-(90, 99), 1 1.1245 +LINE (145, 99)-(140, 99), 1 1.1246 +PAINT (89, 98), 1 1.1247 +PAINT (141, 98), 1 1.1248 +LINE (230, 60)-(90, 62), 2, BF 1.1249 +LINE (100, 75)-(130, 90), 7, BF 1.1250 +LINE (190, 75)-(220, 90), 7, BF 1.1251 +LINE (90, 95)-(140, 99), 7, BF 1.1252 +LINE (180, 95)-(230, 99), 7, BF 1.1253 +LINE (105, 91)-(105, 94), 8 1.1254 +LINE (125, 91)-(125, 94), 8 1.1255 +LINE (195, 91)-(195, 94), 8 1.1256 +LINE (215, 91)-(215, 94), 8 1.1257 +CIRCLE (80, 110), 7, 4 1.1258 +PAINT (80, 110), 4 1.1259 +CIRCLE (80, 110), 7, 0 1.1260 +CIRCLE (240, 110), 7, 4 1.1261 +PAINT (240, 110), 4 1.1262 +CIRCLE (240, 110), 7, 0 1.1263 +CIRCLE (80, 130), 7, 14 1.1264 +PAINT (80, 130), 14 1.1265 +CIRCLE (80, 130), 7, 0 1.1266 +CIRCLE (240, 130), 7, 14 1.1267 +PAINT (240, 130), 14 1.1268 +CIRCLE (240, 130), 7, 0 1.1269 +LINE (80, 151)-(100, 170), 8, BF 1.1270 +LINE (220, 151)-(240, 170), 8, BF 1.1271 +LINE (125, 126)-(194, 136), 0, BF 1.1272 +LINE (125, 126)-(194, 136), 15, B 1.1273 +LOCATE 17, 17 1.1274 +COLOR 15 1.1275 +PRINT "KA GR 48" 1.1276 +LINE (150, 67)-(170, 72), 7, BF 1.1277 +LINE (149, 66)-(171, 73), 8, B 1.1278 +LINE (159, 63)-(161, 65), 8, BF 1.1279 +LINE (1, 170)-(320, 200), 7, BF 1.1280 +bghbgh = 0 1.1281 +DO 1.1282 +bghbgh = bghbgh + 1 1.1283 +LOOP UNTIL bghbgh = 180000 1.1284 +GOTO 142 1.1285 +142 : 1.1286 +CLS 1.1287 +COLOR 2 1.1288 +PRINT "In deiner Tr steckt ein Messer mit" 1.1289 +PRINT "" 1.1290 +PRINT "einer Botschaft. Du liest sie natrlich" 1.1291 +PRINT 1.1292 +PRINT "sofort." 1.1293 +SLEEP 1.1294 +INPUT "", nzl 1.1295 +CLS 1.1296 +LINE (55, 30)-(275, 170), 11, B 1.1297 +COLOR 11 1.1298 +LOCATE 10, 10 1.1299 +PRINT "Wenn du dich einmischst" 1.1300 +LOCATE 15, 10 1.1301 +PRINT "dann bist du T O T !!!" 1.1302 +SLEEP 1.1303 +INPUT "", nzl 1.1304 +CLS 1.1305 +COLOR 2 1.1306 +PRINT "" 1.1307 +PRINT "" 1.1308 +PRINT "Diese Botschaft war ernst gemeint." 1.1309 +PRINT "" 1.1310 +PRINT "Aber als Privatdetektiv musst du dich" 1.1311 +PRINT "" 1.1312 +PRINT "halt ber solche Morddrohungen hinweg-" 1.1313 +PRINT "" 1.1314 +PRINT "setzen. Deshalb rufst du sofort die" 1.1315 +PRINT "" 1.1316 +PRINT "Polizei an." 1.1317 +SLEEP 1.1318 +INPUT "", nzl 1.1319 +GOTO 143 1.1320 +143 : 1.1321 +CLS 1.1322 +COLOR 9 1.1323 +PRINT "" 1.1324 +PRINT "Ja, hier Polizeirevier Ettlingen, Dieter" 1.1325 +PRINT "" 1.1326 +PRINT "L„nger. Was kann ich fr Sie tun?" 1.1327 +PRINT 1.1328 +PRINT 1.1329 +COLOR 12 1.1330 +PRINT "a: Ich m”chte Anzeige gegen einen Mann" 1.1331 +PRINT 1.1332 +PRINT " in einem grnen Auto erstatten." 1.1333 +PRINT 1.1334 +PRINT "b: Ich m”chte eine Pizza essen." 1.1335 +PRINT "" 1.1336 +PRINT "c: Ich m”chte, dass Sie einen Mann" 1.1337 +PRINT "" 1.1338 +PRINT " in einem grnen Auto verhaften." 1.1339 +LOCATE 20, 1 1.1340 +COLOR 12 1.1341 +INPUT "Was antwortest du? (a,b,c)", a$ 1.1342 +IF a$ = "a" THEN GOTO 144 1.1343 +IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!" 1.1344 +IF a$ = "c" THEN GOTO 144 1.1345 +IF a$ = "q" THEN END 1.1346 +SLEEP 1.1347 +INPUT "", nzl 1.1348 +GOTO 143 1.1349 + 1.1350 +144 : 1.1351 +CLS 1.1352 +COLOR 9 1.1353 +PRINT "" 1.1354 +PRINT "Wie heiát der Mann denn?" 1.1355 +PRINT 1.1356 +COLOR 12 1.1357 +PRINT "a: Karl von Burlafingen." 1.1358 +PRINT "" 1.1359 +PRINT "b: Regidr Eklansch." 1.1360 +PRINT "" 1.1361 +PRINT "c: Ich kenne seinen Namen nicht." 1.1362 +PRINT "" 1.1363 +PRINT "" 1.1364 +INPUT "Wie heiát er? (a,b,c)", w$ 1.1365 +PRINT "" 1.1366 +IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein." 1.1367 +IF w$ = "b" THEN PRINT "Verarsch mich halt!!" 1.1368 +IF w$ = "c" GOTO 145 1.1369 +SLEEP 1.1370 +INPUT "", nzl 1.1371 +GOTO 144 1.1372 + 1.1373 +145 : 1.1374 +CLS 1.1375 +PRINT "" 1.1376 +COLOR 9 1.1377 +PRINT "Was fr eine Autonummer hatte er denn?" 1.1378 +PRINT "" 1.1379 +PRINT "" 1.1380 +COLOR 12 1.1381 +PRINT "a: KS ET 26" 1.1382 +PRINT "" 1.1383 +PRINT "b: HS AB 37" 1.1384 +PRINT "" 1.1385 +PRINT "c: KA GR 48" 1.1386 +PRINT "" 1.1387 +PRINT "" 1.1388 +COLOR 12 1.1389 +INPUT "Welche Autonummer hatte er? (a,b,c)", a$ 1.1390 +PRINT "" 1.1391 +IF a$ = "a" THEN PRINT "Du solltest dein Ged„chtnis verbessern!" 1.1392 +IF a$ = "b" THEN PRINT "Du solltest dein Ged„chtnis verbessern!" 1.1393 +IF a$ = "c" GOTO 146 1.1394 +SLEEP 1.1395 +INPUT "", nzl 1.1396 +GOTO 145 1.1397 + 1.1398 +146 : 1.1399 +CLS 1.1400 +COLOR 2 1.1401 +PRINT "" 1.1402 +PRINT "Der Polizist gab den guten Tip sofort" 1.1403 +PRINT "" 1.1404 +PRINT "an seine Kollegen weiter. Er dankte" 1.1405 +PRINT "" 1.1406 +PRINT "dir fr die heiáe Spur und du" 1.1407 +PRINT "" 1.1408 +PRINT "verabschiedeste dich und giengst nach" 1.1409 +PRINT "" 1.1410 +PRINT "Hause." 1.1411 +SLEEP 1.1412 +INPUT "", nzl 1.1413 +CLS 1.1414 +PRINT "" 1.1415 +PRINT "Zwei Tage sp„ter kam ein Brief vom" 1.1416 +PRINT "" 1.1417 +PRINT "Polizeirevier:" 1.1418 +SLEEP 1.1419 +INPUT "", nzl 1.1420 +CLS 1.1421 +LOCATE 4, 1 1.1422 +COLOR 15 1.1423 +PRINT "Sehrgeehrter Herr "; name$; "" 1.1424 +PRINT "" 1.1425 +PRINT "dank Ihnen konnten wie eine ganze" 1.1426 +PRINT "" 1.1427 +PRINT "Bande Waffenschieber dingfest machen." 1.1428 +PRINT "" 1.1429 +PRINT "" 1.1430 +PRINT "" 1.1431 +PRINT "" 1.1432 +PRINT "" 1.1433 +PRINT "" 1.1434 +PRINT "Ausfhrlicher Bericht auf der n„chsten" 1.1435 +PRINT "" 1.1436 +PRINT "Seite." 1.1437 +SLEEP 1.1438 +INPUT "", nzl 1.1439 +CLS 1.1440 +PRINT "" 1.1441 +PRINT "Am Montag konnten wir den grnen Audi" 1.1442 +PRINT "" 1.1443 +PRINT "von Sch„fer (so heiát der Bersitzer)" 1.1444 +PRINT "" 1.1445 +PRINT "in der Karlsruher Innenstadt ausfindig" 1.1446 +PRINT "" 1.1447 +PRINT "machen. Wir folgten ihm bis zu seinem" 1.1448 +PRINT "" 1.1449 +PRINT "Hause. Dort umstellten wir es" 1.1450 +PRINT "" 1.1451 +PRINT "und strmten. Beim Verh”r gestand" 1.1452 +PRINT "" 1.1453 +PRINT "er alles (Auftraggeber und alle" 1.1454 +PRINT "" 1.1455 +PRINT "Mitglieder). Am n„chsten Tag konnten" 1.1456 +PRINT "" 1.1457 +PRINT "wir den Rest der Bande verhaften." 1.1458 +PRINT "" 1.1459 +PRINT "Am n„chsten Donnerstag wird Mayr, der" 1.1460 +PRINT "" 1.1461 +PRINT "Boss der Truppe, wegen Mord an Karl" 1.1462 +PRINT "" 1.1463 +SLEEP 1.1464 +INPUT "", nzl 1.1465 +CLS 1.1466 +PRINT "" 1.1467 +PRINT "Mller verurteilt. Auch die Anderen" 1.1468 +PRINT "" 1.1469 +PRINT "werden wegen Beihilfe zum Mord vor" 1.1470 +PRINT "" 1.1471 +PRINT "Gericht gestellt werden." 1.1472 +PRINT "" 1.1473 +PRINT "" 1.1474 +PRINT "" 1.1475 +PRINT "Ich muss nochmal meinen Dank an Sie" 1.1476 +PRINT "" 1.1477 +PRINT "Aussprechen. Denn nur durch Sie konnten" 1.1478 +PRINT "" 1.1479 +PRINT "wir diese gef„hrliche Bande stoppen" 1.1480 +PRINT "" 1.1481 +PRINT "" 1.1482 +PRINT "" 1.1483 +PRINT "" 1.1484 +PRINT "" 1.1485 +PRINT " Polizeichef Mattias Huber" 1.1486 +SLEEP 1.1487 +INPUT "", nzl 1.1488 +CLS 1.1489 +LOCATE 13, 10 1.1490 +COLOR 13 1.1491 +PRINT "Sie haben gewonnen!" 1.1492 +SLEEP 1.1493 +INPUT "", nzl 1.1494 +COLOR 15 1.1495 + 1.1496 +GOTO xxxxx 1.1497 + 1.1498 + 1.1499 + 1.1500 + 1.1501 + 1.1502 + 1.1503 + 1.1504 + 1.1505 +END 1.1506 + 1.1507 + 1.1508 + 1.1509 + 1.1510 + 1.1511 + 1.1512 + 1.1513 +yy: 1.1514 +CLS 1.1515 +PRINT 1.1516 +PRINT 1.1517 +COLOR 5 1.1518 +PRINT "Hausschlssel" 1.1519 +PRINT "200 Schilling" 1.1520 +IF tlampe% = 1 THEN PRINT "Taschenlampe" 1.1521 +IF schluessel% = 1 THEN PRINT "Schlssel" 1.1522 +IF messer% = 1 THEN PRINT "Messer" 1.1523 +IF kerzenst% = 1 THEN PRINT "Kerzenst„nder" 1.1524 +IF seil% = 1 THEN PRINT "Seil" 1.1525 +RETURN 1.1526 + 1.1527 +xxxxx: 1.1528 + 1.1529 +v = 4 1.1530 +vv = 1 1.1531 +LOCATE 13, 10 1.1532 +CLS 1.1533 +LINE (79, 40)-(215, 40), v 1.1534 +LINE (79, 40)-(49, 70), v 1.1535 +LINE (245, 70)-(215, 40), v 1.1536 +LINE (245, 70)-(147, 168), v 1.1537 +LINE (49, 70)-(147, 168), v 1.1538 +LINE (80, 39)-(215, 39), v 1.1539 +LINE (79, 39)-(49, 69), v 1.1540 +LINE (246, 70)-(215, 39), v 1.1541 +LINE (246, 70)-(147, 169), v 1.1542 +LINE (48, 70)-(147, 169), v 1.1543 +PAINT (100, 42), vv, v 1.1544 +LOCATE 11, 13 1.1545 +COLOR 14 1.1546 +PRINT "Super Markus" 1.1547 +SLEEP 1.1548 +END 1.1549 + 1.1550 +yx: 1.1551 +PRINT "" 1.1552 +PRINT "M”gliche Befehle:" 1.1553 +PRINT "" 1.1554 +PRINT "" 1.1555 +COLOR 3 1.1556 +PRINT "”ffnen" 1.1557 +PRINT "" 1.1558 +PRINT "benutzen" 1.1559 +PRINT "" 1.1560 +PRINT "untersuchen" 1.1561 +PRINT "" 1.1562 +PRINT "sprechen mit" 1.1563 +PRINT "" 1.1564 +PRINT "gehen (in)" 1.1565 +PRINT 1.1566 +PRINT "nehmen" 1.1567 +RETURN 1.1568 + 1.1569 +n: 1.1570 +CLS 1.1571 +LOCATE 12, 5 1.1572 +COLOR 11 1.1573 +PRINT "Neuer Name fr Held", name$ 1.1574 +OPEN "c:midds1" FOR INPUT AS #1 1.1575 +INPUT #1, name$ 1.1576 +CLOSE 1.1577 +RETURN 1.1578 + 1.1579 +speichern: 1.1580 +RETURN 1.1581 + 1.1582 +SUB M 1.1583 +PRINT 1.1584 +PRINT 1.1585 +COLOR 5 1.1586 +PRINT "Hausschlssel" 1.1587 +PRINT "200 Schilling" 1.1588 +IF tlampe% = 1 THEN PRINT "Taschenlampe" 1.1589 +IF schluessel% = 1 THEN PRINT "Schlssel" 1.1590 +IF messer% = 1 THEN PRINT "Messer" 1.1591 +IF kerzenst% = 1 THEN PRINT "Kerzenst„nder" 1.1592 +IF seil% = 1 THEN PRINT "Seil" 1.1593 + 1.1594 + 1.1595 + 1.1596 +END SUB 1.1597 +
2.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 2.2 +++ b/Midds_orig_install.bas Mon Sep 03 14:18:48 2007 +0200 2.3 @@ -0,0 +1,51 @@ 2.4 +'Installationsprogramm fr Midds' 2.5 +SCREEN 13 2.6 +1 : 2.7 +CLS 2.8 +LOCATE 3, 1 2.9 +COLOR 2 2.10 +PRINT " Dies ist das Installationsprogramm" 2.11 +PRINT "" 2.12 +PRINT " fr Midds " 2.13 +PRINT "" 2.14 +PRINT "" 2.15 +PRINT "" 2.16 +PRINT "" 2.17 +INPUT "Wollen Sie Midds installieren? (j/n) ", jn$ 2.18 +IF jn$ = "j" GOTO install 2.19 +IF jn$ = "n" THEN END 2.20 +GOTO 1 2.21 + 2.22 +install: 2.23 +poi = 1 2.24 +OPEN "c:midds1.ini" FOR OUTPUT AS #1 2.25 +PRINT #1, poi 2.26 +CLOSE 2.27 + 2.28 + 2.29 + 2.30 + 2.31 + 2.32 + 2.33 +i: 2.34 +DO 2.35 +a = a + .01 2.36 +LINE (50, 110)-(270, 130), 15, B 2.37 +LINE (51, 111)-(51 + a, 129), 7, BF 2.38 +LOOP UNTIL a > 218 2.39 +LOCATE 20, 3 2.40 +COLOR 4 2.41 +PRINT "Die Installation ist abgeschlossen." 2.42 +PRINT "" 2.43 +PRINT "" 2.44 +PRINT " Drcke Enter " 2.45 +COLOR 0 2.46 + 2.47 + 2.48 + 2.49 +END 2.50 + 2.51 + 2.52 + 2.53 + 2.54 +