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 endgltige 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 fr"
   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 "Drcke 'q' um das Spiel zu beenden."
   1.155 +PRINT
   1.156 +PRINT
   1.157 +PRINT "Drcke 'm' um zu erfahren, was du alles besitzt."
   1.158 +PRINT
   1.159 +PRINT
   1.160 +PRINT "Drcke '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. Natrlich"
   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 Tr" THEN PRINT "Du kannst doch nicht einfach fremde  H„user betreten."
   1.203 +IF B$ = "”ffnen Tr" THEN SLEEP
   1.204 +IF B$ = "”ffnen Tr" 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 Tr 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 Tr 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 Kche" 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 Mller."
   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 Mller."
   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 Kcher" 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 Rcken"
   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 fr Fingerabdrcke."
   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 Kche" 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 Fingerabdrcke."
   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 Mller 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 Schlssel."
   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 Kche" 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 Bcherregal" 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 Schlssel" THEN PRINT "Das Schlsselschloss w„re geknackt."
   1.571 +IF B$ = "benutzen Schlssel" THEN sx% = 1
   1.572 +IF B$ = "benutzen Schlssel" 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 Bcherregal."
   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 Kche" 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 Tr zur Kche."
   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 "Kche"
   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 Kche" GOTO 111
   1.661 +IF B$ = "untersuchen Kchenschrank" 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 Sthlen und"
   1.677 +PRINT
   1.678 +PRINT "rechts der Kchenschrank."
   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 Kche" 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 Tr. 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 Bcherregal zur"
   1.876 +PRINT
   1.877 +PRINT "Seite und dhinter kommt eine Tr zum Vorschein."
   1.878 +PRINT
   1.879 +PRINT "Sie ist durch ein Schlssel- 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 drckst, 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 Bcherregal."
   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 Schlsselschloss ”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 Tr 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 Tr"
   1.963 +PRINT
   1.964 +PRINT "genau so gesichert wie die hinter dem Regal"
   1.965 +PRINT
   1.966 +PRINT "gut, dass ich den Schlssel 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 Kche" 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 Tr 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 Kche" GOTO 109
  1.1053 +IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
  1.1054 +IF B$ = "”ffnen Tr" 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 Tr ist mit einem Zahlenschloss verschlossen,"
  1.1072 +PRINT
  1.1073 +PRINT "aber man kann die Tr einen Spalt weit aufdrcken."
  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 "Dafr reicht die Zeit nicht."
  1.1092 +IF v$ = "Keller" THEN PRINT "Dafr 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 dafr."
  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 zurck 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 Hecktren 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 Tren, 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 "zurck 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 Tr 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 Tr ”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 Tr steckt ein Messer mit"
  1.1289 +PRINT ""
  1.1290 +PRINT "einer Botschaft. Du liest sie natrlich"
  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 fr 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 grnen 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 grnen 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: Regidr 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 fr 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 fr 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 "Ausfhrlicher 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 grnen 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 strmten. 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 "Mller 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 "Hausschlssel"
  1.1519 +PRINT "200 Schilling"
  1.1520 +IF tlampe% = 1 THEN PRINT "Taschenlampe"
  1.1521 +IF schluessel% = 1 THEN PRINT "Schlssel"
  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 fr 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 "Hausschlssel"
  1.1587 +PRINT "200 Schilling"
  1.1588 +IF tlampe% = 1 THEN PRINT "Taschenlampe"
  1.1589 +IF schluessel% = 1 THEN PRINT "Schlssel"
  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 fr 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 "              fr 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 "             Drcke Enter "
    2.45 +COLOR 0
    2.46 +
    2.47 +
    2.48 +
    2.49 +END
    2.50 +
    2.51 +
    2.52 +
    2.53 +
    2.54 +