midds

annotate Midds_orig.bas @ 2:53d9408c7cdb

find changesets by author, revision, files, or words in the commit message
lots of refactoring in reco-version
author meillo@marmaro.de
date Mon, 03 Sep 2007 20:51:10 +0200
parents
children
rev   line source
meillo@0 1 ' '
meillo@0 2 ' '
meillo@0 3 ' M M '
meillo@0 4 ' MM MM I D D '
meillo@0 5 ' M M M M I D D '
meillo@0 6 ' M M M M D D '
meillo@0 7 ' M M M M D D '
meillo@0 8 ' M M M M I DDDDD D DDDDD D SSSSS '
meillo@0 9 ' M M M M I D DD D DD S S '
meillo@0 10 ' M M M I D D D D S '
meillo@0 11 ' M M I D D D D S '
meillo@0 12 ' M M I D D D D SSSS '
meillo@0 13 ' M M I D D D D S '
meillo@0 14 ' M M I D D D D S '
meillo@0 15 ' M M I D DD D DD S S '
meillo@0 16 ' M M I DDDDD D DDDDD D SSSSS '
meillo@0 17 ' '
meillo@0 18 ' '
meillo@0 19 '============================================================================'
meillo@0 20 ' '
meillo@0 21 ' '
meillo@0 22 ' '
meillo@0 23 ' '
meillo@0 24 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 25 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 26 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 27 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 28 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 29 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 30 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 31 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 32 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 33 ' UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE - SHIFT + F5 - '
meillo@0 34 ' '
meillo@0 35 ' '
meillo@0 36 ' '
meillo@0 37 ' '
meillo@0 38 '============================================================================'
meillo@0 39 ' '
meillo@0 40 ' '
meillo@0 41 ' '
meillo@0 42 '
meillo@0 43 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 44 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 45 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 46 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 47 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 48 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 49 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 50 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 51 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 52 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 53 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 54 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 55 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 56 ' WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0 57 '
meillo@0 58 '
meillo@0 59 '============================================================================'
meillo@0 60 '
meillo@0 61 '
meillo@0 62 'Midds'
meillo@0 63 DECLARE SUB M ()
meillo@0 64 SCREEN 13
meillo@0 65
meillo@0 66
meillo@0 67 CLS
meillo@0 68 LOCATE 13, 6
meillo@0 69 COLOR 15
meillo@0 70 PRINT "*** Mord in der Dorfstraáe ***"
meillo@0 71 LINE (20, 60)-(300, 140), 2, B
meillo@0 72 LOCATE 24, 2
meillo@0 73 COLOR 7
meillo@0 74 PRINT "c Copyright 1999 Elefant Software"
meillo@0 75 CIRCLE (11, 180), 7, 7
meillo@0 76 SLEEP
meillo@0 77 INPUT "", nzl
meillo@0 78 CLS
meillo@0 79 raum = 0
meillo@0 80 name$ = "John Howell"
meillo@0 81
meillo@0 82 OPEN "c:midds1.ini" FOR INPUT AS #1
meillo@0 83 INPUT #1, poi
meillo@0 84 CLOSE
meillo@0 85 IF poi = 1 THEN GOTO 999 ELSE PRINT "Bitte installieren sie Midds."
meillo@0 86
meillo@0 87 999 :
meillo@0 88 CLS
meillo@0 89 LOCATE 5, 1
meillo@0 90 COLOR 4
meillo@0 91 PRINT "Dies ist nicht die endgltige Version"
meillo@0 92 LOCATE 7, 1
meillo@0 93 PRINT " von - MIDDS -"
meillo@0 94 LOCATE 10, 1
meillo@0 95 PRINT " Falls im Programm Fehler auftauchen"
meillo@0 96 LOCATE 12, 1
meillo@0 97 PRINT " sollten wenden Sie sich bitte an"
meillo@0 98 LOCATE 14, 1
meillo@0 99 PRINT " Elefant Software."
meillo@0 100 LOCATE 19, 1
meillo@0 101 PRINT " Elefant Software garantiert nur fr"
meillo@0 102 LOCATE 21, 1
meillo@0 103 PRINT " Fehler in - MIDDS -."
meillo@0 104 SLEEP
meillo@0 105 INPUT "", nzl
meillo@0 106
meillo@0 107
meillo@0 108 CLS
meillo@0 109 LOCATE 13, 10
meillo@0 110 COLOR 14
meillo@0 111 INPUT "Cheat: ", c$
meillo@0 112 IF c$ = "x" GOTO X
meillo@0 113 IF c$ = "t" GOTO 140
meillo@0 114 IF c$ = "q" THEN END
meillo@0 115 IF c$ = "Markus" GOTO xxxxx
meillo@0 116 CLS
meillo@0 117
meillo@0 118 CLS
meillo@0 119 COLOR 6
meillo@0 120 PRINT "Dies ist ein Kriminalspiel,"
meillo@0 121 PRINT "das die grauen Zellen fordert."
meillo@0 122 PRINT ""
meillo@0 123 PRINT ""
meillo@0 124 SLEEP
meillo@0 125 INPUT "", nzl
meillo@0 126 CLS
meillo@0 127
meillo@0 128 PRINT ""
meillo@0 129 PRINT "M”gliche Befehle:"
meillo@0 130 PRINT ""
meillo@0 131 PRINT ""
meillo@0 132 COLOR 3
meillo@0 133 PRINT "”ffnen"
meillo@0 134 PRINT ""
meillo@0 135 PRINT "benutzen"
meillo@0 136 PRINT ""
meillo@0 137 PRINT "untersuchen"
meillo@0 138 PRINT ""
meillo@0 139 PRINT "sprechen mit"
meillo@0 140 PRINT ""
meillo@0 141 PRINT "gehen (in)"
meillo@0 142 PRINT
meillo@0 143 PRINT "nehmen"
meillo@0 144 SLEEP
meillo@0 145 INPUT "", nzl
meillo@0 146 CLS
meillo@0 147
meillo@0 148 COLOR 6
meillo@0 149 PRINT
meillo@0 150 PRINT
meillo@0 151 PRINT "Drcke 'q' um das Spiel zu beenden."
meillo@0 152 PRINT
meillo@0 153 PRINT
meillo@0 154 PRINT "Drcke 'm' um zu erfahren, was du alles besitzt."
meillo@0 155 PRINT
meillo@0 156 PRINT
meillo@0 157 PRINT "Drcke 'b' um die Befehle noch einmal zusehen."
meillo@0 158 SLEEP
meillo@0 159 INPUT "", nzl
meillo@0 160
meillo@0 161
meillo@0 162 X:
meillo@0 163 CLS
meillo@0 164 PRINT ""
meillo@0 165 LOCATE 13, 6
meillo@0 166 COLOR 6
meillo@0 167 PRINT "So jetzt geht's endlich los!!!"
meillo@0 168 SLEEP
meillo@0 169 INPUT "", nzl
meillo@0 170 CLS
meillo@0 171 GOTO 1
meillo@0 172
meillo@0 173 1 :
meillo@0 174 zuege = 0
meillo@0 175 a1:
meillo@0 176 CLS
meillo@0 177 PRINT ""
meillo@0 178 COLOR 2
meillo@0 179 PRINT "Du heiát John Howell und bist"
meillo@0 180 PRINT
meillo@0 181 PRINT "Privatdetektiv. Du wurdest von "
meillo@0 182 PRINT
meillo@0 183 PRINT "Herr Fisch angerufen um einen Mord"
meillo@0 184 PRINT
meillo@0 185 PRINT "aufzukl„ren. Natrlich"
meillo@0 186 PRINT
meillo@0 187 PRINT "bist du sofort in deinen Renault 19"
meillo@0 188 PRINT
meillo@0 189 PRINT "gestiegen und losgefahren. Jetzt stehst"
meillo@0 190 PRINT
meillo@0 191 PRINT "du vor Haus Nummer 6 in der"
meillo@0 192 PRINT
meillo@0 193 PRINT "Dorfstraáe."
meillo@0 194 PRINT ""
meillo@0 195 COLOR 7
meillo@0 196 INPUT "Was machst du?", B$
meillo@0 197 zuege% = zuege% + 1
meillo@0 198 IF B$ = "benutzen Klingel" GOTO 2
meillo@0 199 IF B$ = "”ffnen Tr" THEN PRINT "Du kannst doch nicht einfach fremde H„user betreten."
meillo@0 200 IF B$ = "”ffnen Tr" THEN SLEEP
meillo@0 201 IF B$ = "”ffnen Tr" GOTO a1
meillo@0 202 IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde H„user betreten."
meillo@0 203 IF B$ = "gehen in Haus" THEN SLEEP
meillo@0 204 IF B$ = "gehen in Haus" GOTO a1
meillo@0 205 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
meillo@0 206 IF B$ = "gehen Heim" GOTO a1
meillo@0 207 IF B$ = "q" THEN END
meillo@0 208 IF B$ = "m" THEN GOSUB yy
meillo@0 209 IF B$ = "b" THEN GOSUB yx
meillo@0 210 PRINT ""
meillo@0 211 PRINT "N”!"
meillo@0 212 PRINT ""
meillo@0 213 IF zuege% = 5 THEN GOTO a
meillo@0 214 IF zuege% = 9 THEN GOTO B
meillo@0 215 IF zuege% = 9 THEN GOTO 2
meillo@0 216 SLEEP
meillo@0 217 INPUT "", nzl
meillo@0 218 GOTO a1
meillo@0 219
meillo@0 220 a:
meillo@0 221 COLOR 4
meillo@0 222 PRINT " Tipp: benutzen ..."
meillo@0 223 SLEEP
meillo@0 224 GOTO a1
meillo@0 225
meillo@0 226 B:
meillo@0 227 COLOR 4
meillo@0 228 PRINT " L”sung: benutzen Klingel"
meillo@0 229 SLEEP
meillo@0 230 CLS
meillo@0 231 GOTO 2
meillo@0 232
meillo@0 233 2 :
meillo@0 234 CLS
meillo@0 235 COLOR 2
meillo@0 236 PRINT "Herr Fisch ”ffnet die Tr und du stehst im Flur"
meillo@0 237 PRINT ""
meillo@0 238 SLEEP
meillo@0 239 INPUT "", nzl
meillo@0 240 CLS
meillo@0 241 LOCATE 13, 10
meillo@0 242 COLOR 10
meillo@0 243 PRINT "Flur"
meillo@0 244 raum = 1
meillo@0 245 SLEEP
meillo@0 246 INPUT "", nzl
meillo@0 247 zuege% = 0
meillo@0 248 GOTO 3
meillo@0 249
meillo@0 250 3 :
meillo@0 251 CLS
meillo@0 252 IF kerzenst% = 1 GOTO 116
meillo@0 253 COLOR 2
meillo@0 254 PRINT "Herr Fisch ”ffnet die Tr und du stehst im Flur"
meillo@0 255 PRINT
meillo@0 256 COLOR 7
meillo@0 257 INPUT "Was machst du?", B$
meillo@0 258 zuege% = zuege% + 1
meillo@0 259 IF B$ = "sprechen mit Herr Fisch" GOTO 4
meillo@0 260 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
meillo@0 261 IF B$ = "untersuchen Flur" GOTO 117
meillo@0 262 IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0 263 IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0 264 IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0 265 IF B$ = "gehen in Kche" GOTO 109
meillo@0 266 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0 267 IF B$ = "q" THEN END
meillo@0 268 IF B$ = "m" THEN GOSUB yy
meillo@0 269 IF B$ = "b" THEN GOSUB yx
meillo@0 270 IF B$ = "s" THEN GOSUB speichern
meillo@0 271 PRINT ""
meillo@0 272 PRINT "Keine Lust!"
meillo@0 273 PRINT ""
meillo@0 274 IF zuege% = 6 THEN GOTO c
meillo@0 275 SLEEP
meillo@0 276 INPUT "", nzl
meillo@0 277 GOTO 3
meillo@0 278
meillo@0 279 c:
meillo@0 280 COLOR 4
meillo@0 281 PRINT "Tipp: sprechen mit ..."
meillo@0 282 SLEEP
meillo@0 283 INPUT "", nzl
meillo@0 284 CLS
meillo@0 285 GOTO 3
meillo@0 286
meillo@0 287
meillo@0 288 4 :
meillo@0 289 CLS
meillo@0 290 COLOR 9
meillo@0 291 PRINT "A: Ich heiáe "; name$; "."
meillo@0 292 PRINT ""
meillo@0 293 PRINT "B: Wo ist die Leiche?"
meillo@0 294 PRINT ""
meillo@0 295 PRINT "C: Wie heiát der Tote?"
meillo@0 296 PRINT ""
meillo@0 297 PRINT "D: Ende."
meillo@0 298 PRINT ""
meillo@0 299 COLOR 12
meillo@0 300 INPUT "Was sagst du?", s$
meillo@0 301 PRINT
meillo@0 302 COLOR 9
meillo@0 303 IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch."
meillo@0 304 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
meillo@0 305 IF s$ = "B" THEN SLEEP
meillo@0 306 IF s$ = "B" GOTO 5
meillo@0 307 IF s$ = "C" THEN PRINT "Karl Mller."
meillo@0 308 IF s$ = "D" THEN END
meillo@0 309 SLEEP
meillo@0 310 INPUT "", nzl
meillo@0 311 GOTO 4
meillo@0 312
meillo@0 313 5 :
meillo@0 314 CLS
meillo@0 315 COLOR 9
meillo@0 316 PRINT
meillo@0 317 PRINT "A: Ich heiáe "; name$; ""
meillo@0 318 PRINT ""
meillo@0 319 PRINT "B: Wo ist die Leiche?"
meillo@0 320 PRINT ""
meillo@0 321 PRINT "C: Wie heiát der Tote?"
meillo@0 322 PRINT
meillo@0 323 PRINT "D: Wo ist das Schlafzimmer?"
meillo@0 324 PRINT ""
meillo@0 325 PRINT "E: Ende"
meillo@0 326 PRINT ""
meillo@0 327 PRINT ""
meillo@0 328 COLOR 12
meillo@0 329 INPUT "Was sagst du?", s$
meillo@0 330 PRINT
meillo@0 331 COLOR 9
meillo@0 332 IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch."
meillo@0 333 IF s$ = "B" THEN PRINT "Im Schlafzimmer."
meillo@0 334 IF s$ = "C" THEN PRINT "Karl Mller."
meillo@0 335 IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
meillo@0 336 IF s$ = "E" THEN GOTO 6
meillo@0 337 SLEEP
meillo@0 338 INPUT "", nzl
meillo@0 339 GOTO 5
meillo@0 340
meillo@0 341 6 :
meillo@0 342 CLS
meillo@0 343 zuege% = 0
meillo@0 344 LOCATE 13, 10
meillo@0 345 COLOR 10
meillo@0 346 PRINT "Flur"
meillo@0 347 raum = 2
meillo@0 348 SLEEP
meillo@0 349 INPUT "", nzl
meillo@0 350 a6:
meillo@0 351 CLS
meillo@0 352 COLOR 7
meillo@0 353 PRINT
meillo@0 354 IF kerzenst% = 1 GOTO 116
meillo@0 355 PRINT
meillo@0 356 INPUT "Was machst du?", B$
meillo@0 357 zuege% = zuege% + 1
meillo@0 358 IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@0 359 IF B$ = "gehen in Schlafzimmer" GOTO 7
meillo@0 360 IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0 361 IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0 362 IF B$ = "gehen in Kcher" GOTO 109
meillo@0 363 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0 364 IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuá!"
meillo@0 365 IF B$ = "gehen Heim " GOTO a6
meillo@0 366 IF B$ = "q" THEN END
meillo@0 367 IF B$ = "m" THEN GOSUB yy
meillo@0 368 IF B$ = "b" THEN GOSUB yx
meillo@0 369 IF B$ = "s" THEN GOSUB speichern
meillo@0 370 PRINT ""
meillo@0 371 PRINT "Nee!"
meillo@0 372 IF zuege = 5 GOTO d
meillo@0 373 GOTO a6
meillo@0 374
meillo@0 375 d:
meillo@0 376 COLOR 4
meillo@0 377 PRINT "gehen in ..."
meillo@0 378 SLEEP
meillo@0 379 INPUT "", nzl
meillo@0 380 GOTO a6
meillo@0 381
meillo@0 382 7 :
meillo@0 383 CLS
meillo@0 384 raum = 3
meillo@0 385 COLOR 2
meillo@0 386 PRINT "Die Leiche, ein etwa 20 Jahre alter"
meillo@0 387 PRINT
meillo@0 388 PRINT "Mann, liegt mit einem Messer im Rcken"
meillo@0 389 PRINT
meillo@0 390 PRINT "auf dem Bett. Ich decke die Leiche"
meillo@0 391 PRINT
meillo@0 392 PRINT "als erstes mit einem Tuch ab und rufe"
meillo@0 393 PRINT
meillo@0 394 PRINT "mit meinem Handy Tina an. Tina ist"
meillo@0 395 PRINT
meillo@0 396 PRINT "Spezialistin fr Fingerabdrcke."
meillo@0 397 SLEEP
meillo@0 398 INPUT "", nzl
meillo@0 399 GOTO 8
meillo@0 400
meillo@0 401 8 :
meillo@0 402 CLS
meillo@0 403 PRINT
meillo@0 404 COLOR 7
meillo@0 405 INPUT "Was machst du?", B$
meillo@0 406 IF B$ = "gehen in Flur" GOTO 103
meillo@0 407 IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0 408 IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0 409 IF B$ = "gehen in Kche" GOTO 109
meillo@0 410 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0 411 IF B$ = "untersuchen Schlafzimmer" GOTO 9
meillo@0 412 IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
meillo@0 413 IF B$ = "”ffnen Aktenschrank" GOTO 101
meillo@0 414 IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
meillo@0 415 IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Straáe."
meillo@0 416 IF B$ = "untersuchen Bett" GOTO 100
meillo@0 417 IF B$ = "nehmen Taschenlampe" GOTO e
meillo@0 418 IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
meillo@0 419 IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
meillo@0 420 IF B$ = "sprechen mit Tina" THEN PRINT "Die st”re ich lieber nicht bei der Arbeit."
meillo@0 421 IF B$ = "q" THEN END
meillo@0 422 IF B$ = "m" THEN GOSUB yy
meillo@0 423 IF B$ = "b" THEN GOSUB yx
meillo@0 424 IF B$ = "s" THEN GOSUB speichern
meillo@0 425 PRINT
meillo@0 426 PRINT "Nein"
meillo@0 427 PRINT
meillo@0 428 SLEEP
meillo@0 429 INPUT "", nzl
meillo@0 430 GOTO 8
meillo@0 431
meillo@0 432 e:
meillo@0 433 CLS
meillo@0 434 PAINT (200, 5), 1
meillo@0 435 LINE (125, 75)-(300, 125), 16, BF
meillo@0 436 CIRCLE (125, 100), 45, 16
meillo@0 437 PAINT (124, 100), 16
meillo@0 438 LINE (80, 63)-(125, 137), 16, BF
meillo@0 439 LINE (80, 63)-(0, 50), 14
meillo@0 440 LINE (80, 137)-(0, 150), 14
meillo@0 441 LOCATE 11, 22
meillo@0 442 PRINT "Mag Lite"
meillo@0 443 tlampe% = 1
meillo@0 444 SLEEP
meillo@0 445 INPUT "", nzl
meillo@0 446 CLS
meillo@0 447 GOTO 8
meillo@0 448
meillo@0 449 9 :
meillo@0 450 CLS
meillo@0 451 COLOR 2
meillo@0 452 PRINT "In der Mitte steht das Bett, ber dem"
meillo@0 453 PRINT
meillo@0 454 PRINT "Bett h„ngt ein Poster, auf der"
meillo@0 455 PRINT
meillo@0 456 PRINT "linken Seite befindet sich ein Schrank"
meillo@0 457 PRINT
meillo@0 458 PRINT "und an der rechten Wand ist ein Fenster."
meillo@0 459 IF vvx% = 1 THEN PRINT "Tina sichert gerade"
meillo@0 460 IF vvx% = 1 THEN PRINT "die Fingerabdrcke."
meillo@0 461 SLEEP
meillo@0 462 INPUT "", nzl
meillo@0 463 GOTO 8
meillo@0 464
meillo@0 465 100 :
meillo@0 466 CLS
meillo@0 467 COLOR 2
meillo@0 468 PRINT "Unter dem Bett liegt eine Taschenlampe."
meillo@0 469 SLEEP
meillo@0 470 INPUT "", nzl
meillo@0 471 GOTO 8
meillo@0 472
meillo@0 473 101 :
meillo@0 474 CLS
meillo@0 475 versuch% = 0
meillo@0 476 COLOR 2
meillo@0 477 PRINT "Hinter den Ordnern ist ein Geheimfach"
meillo@0 478 PRINT
meillo@0 479 PRINT "mit einem dreistelligen Zahlenschloss."
meillo@0 480 SLEEP
meillo@0 481 INPUT "", nzl
meillo@0 482 a101:
meillo@0 483 CLS
meillo@0 484 versuch% = versuch% + 1
meillo@0 485 COLOR 5
meillo@0 486 INPUT "Wie lautet die Kombination?", k$
meillo@0 487 IF k$ = "000" THEN PRINT "War wohl falsch."
meillo@0 488 IF k$ = "007" GOTO 102
meillo@0 489 IF k$ = "q" THEN END
meillo@0 490 PRINT "Komm streng dich ein bischen an!"
meillo@0 491 IF versuch% = 3 THEN PRINT "Tipp: Karl Mller war Jean Connery Fan."
meillo@0 492 IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
meillo@0 493 SLEEP
meillo@0 494 INPUT "", nzl
meillo@0 495 GOTO a101
meillo@0 496
meillo@0 497 102 :
meillo@0 498 CLS
meillo@0 499 COLOR 2
meillo@0 500 PRINT "Bravo, du hast echt gut kombiniert."
meillo@0 501 PRINT
meillo@0 502 PRINT "In dem Geheimfach befindet sich ein Schlssel."
meillo@0 503 SLEEP
meillo@0 504 INPUT "", nzl
meillo@0 505
meillo@0 506
meillo@0 507 F:
meillo@0 508 CLS
meillo@0 509 PAINT (1, 1), 1
meillo@0 510 LINE (50, 80)-(60, 140), 14, BF
meillo@0 511 LINE (60, 80)-(70, 135), 14, BF
meillo@0 512 LINE (50, 80)-(200, 100), 14, BF
meillo@0 513 LINE (90, 80)-(100, 120), 14, BF
meillo@0 514 LINE (100, 80)-(110, 130), 14, BF
meillo@0 515 CIRCLE (240, 90), 50, 14
meillo@0 516 CIRCLE (240, 90), 30, 14
meillo@0 517 PAINT (240, 50), 14
meillo@0 518 schluessel% = 1
meillo@0 519 SLEEP
meillo@0 520 INPUT "", nzl
meillo@0 521 CLS
meillo@0 522 GOTO 114
meillo@0 523
meillo@0 524 103 :
meillo@0 525 CLS
meillo@0 526 LOCATE 13, 10
meillo@0 527 COLOR 10
meillo@0 528 PRINT "Flur"
meillo@0 529 SLEEP
meillo@0 530 INPUT "", nzl
meillo@0 531 GOTO 104
meillo@0 532
meillo@0 533 104 :
meillo@0 534 CLS
meillo@0 535 COLOR 2
meillo@0 536 PRINT "Links geht es die Treppe zum Schlafzimmer"
meillo@0 537 PRINT
meillo@0 538 PRINT "hinauf, gerade aus geht's ins Esszimmer"
meillo@0 539 PRINT
meillo@0 540 PRINT " und rechts ins Arbeitszimmer."
meillo@0 541 SLEEP
meillo@0 542 INPUT "", nzl
meillo@0 543 GOTO a6
meillo@0 544
meillo@0 545 105 :
meillo@0 546 CLS
meillo@0 547 LOCATE 13, 10
meillo@0 548 COLOR 10
meillo@0 549 PRINT "Arbeitszimmer"
meillo@0 550 raum = 5
meillo@0 551 SLEEP
meillo@0 552 INPUT "", nzl
meillo@0 553 a105:
meillo@0 554 CLS
meillo@0 555 COLOR 7
meillo@0 556 INPUT "Was machst du?", B$
meillo@0 557 IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0 558 IF B$ = "gehen in Flur" GOTO 103
meillo@0 559 IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0 560 IF B$ = "gehen in Kche" GOTO 109
meillo@0 561 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0 562 IF B$ = "untersuchen Arbeitszimmer" GOTO 107
meillo@0 563 IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
meillo@0 564 IF B$ = "untersuchen Bcherregal" GOTO 122
meillo@0 565 IF B$ = "untersuchen Buch" THEN PRINT "Wenn's noch im Regal ist!?"
meillo@0 566 IF B$ = "nehmen Buch" GOTO 124
meillo@0 567 IF B$ = "benutzen Schlssel" THEN PRINT "Das Schlsselschloss w„re geknackt."
meillo@0 568 IF B$ = "benutzen Schlssel" THEN sx% = 1
meillo@0 569 IF B$ = "benutzen Schlssel" GOTO 138
meillo@0 570 IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
meillo@0 571 IF B$ = "z" GOTO 125
meillo@0 572 IF B$ = "m" THEN GOSUB yy
meillo@0 573 IF B$ = "q" THEN END
meillo@0 574 IF B$ = "b" THEN GOSUB yx
meillo@0 575 IF B$ = "s" THEN GOSUB speichern
meillo@0 576 SLEEP
meillo@0 577 INPUT "", nzl
meillo@0 578 PRINT "Heute nicht!"
meillo@0 579 GOTO a105
meillo@0 580
meillo@0 581 107 :
meillo@0 582 CLS
meillo@0 583 COLOR 2
meillo@0 584 PRINT "In der Mitte steht ein Schreibtisch,"
meillo@0 585 PRINT
meillo@0 586 PRINT "rechts befindet sich ein Schrank und"
meillo@0 587 PRINT
meillo@0 588 PRINT "links ein Bcherregal."
meillo@0 589 SLEEP
meillo@0 590 INPUT "", nzl
meillo@0 591 GOTO 105
meillo@0 592
meillo@0 593 106 :
meillo@0 594 CLS
meillo@0 595 LOCATE 13, 10
meillo@0 596 COLOR 10
meillo@0 597 PRINT "Esszimmer"
meillo@0 598 raum = 6
meillo@0 599 SLEEP
meillo@0 600 INPUT "", nzl
meillo@0 601 a106:
meillo@0 602 CLS
meillo@0 603 COLOR 7
meillo@0 604 INPUT "Was machst du?", B$
meillo@0 605 IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0 606 IF B$ = "gehen in Flur" GOTO 103
meillo@0 607 IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0 608 IF B$ = "gehen in Kche" GOTO 109
meillo@0 609 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0 610 IF B$ = "untersuchen Esszimmer" GOTO 108
meillo@0 611 IF B$ = "untersuchen Tisch" GOTO 110
meillo@0 612 IF B$ = "nehmen Kerzenst„nder" GOTO 115
meillo@0 613 IF B$ = "q" THEN END
meillo@0 614 IF B$ = "m" THEN GOSUB yy
meillo@0 615 IF B$ = "b" THEN GOSUB yx
meillo@0 616 IF B$ = "s" THEN GOSUB speichern
meillo@0 617 SLEEP
meillo@0 618 INPUT "", nzl
meillo@0 619 GOTO a106
meillo@0 620
meillo@0 621 108 :
meillo@0 622 CLS
meillo@0 623 PRINT "In der Mitte steht der Tisch und auf"
meillo@0 624 PRINT
meillo@0 625 PRINT "der rechten Seite ist die Tr zur Kche."
meillo@0 626 SLEEP
meillo@0 627 INPUT "", nzl
meillo@0 628 GOTO 106
meillo@0 629
meillo@0 630 110 :
meillo@0 631 CLS
meillo@0 632 PRINT "Ein sch”ner eichener Tisch mit einer"
meillo@0 633 PRINT
meillo@0 634 PRINT "geh„kelten Tischdecke und einem"
meillo@0 635 PRINT
meillo@0 636 PRINT "Kerzenst„nder in der Mitte."
meillo@0 637 SLEEP
meillo@0 638 INPUT "", nzl
meillo@0 639 GOTO a106
meillo@0 640
meillo@0 641 109 :
meillo@0 642 CLS
meillo@0 643 LOCATE 13, 10
meillo@0 644 COLOR 10
meillo@0 645 PRINT "Kche"
meillo@0 646 raum = 7
meillo@0 647 SLEEP
meillo@0 648 INPUT "", nzl
meillo@0 649 a109:
meillo@0 650 CLS
meillo@0 651 INPUT "Was machst du?", B$
meillo@0 652 IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0 653 IF B$ = "gehen in Flur" GOTO 103
meillo@0 654 IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0 655 IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0 656 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0 657 IF B$ = "untersuchen Kche" GOTO 111
meillo@0 658 IF B$ = "untersuchen Kchenschrank" GOTO 112
meillo@0 659 IF B$ = "”ffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
meillo@0 660 IF B$ = "nehmen Messer" GOTO 113
meillo@0 661 IF B$ = "q" THEN END
meillo@0 662 IF B$ = "m" THEN GOSUB yy
meillo@0 663 IF B$ = "b" THEN GOSUB yx
meillo@0 664 IF B$ = "s" THEN GOSUB speichern
meillo@0 665 SLEEP
meillo@0 666 INPUT "", nzl
meillo@0 667 GOTO a109
meillo@0 668
meillo@0 669 111 :
meillo@0 670 CLS
meillo@0 671 PRINT "Links ist die Kochzeile, in der Mitte"
meillo@0 672 PRINT
meillo@0 673 PRINT "ein kleiner Tisch mit zwei Sthlen und"
meillo@0 674 PRINT
meillo@0 675 PRINT "rechts der Kchenschrank."
meillo@0 676 SLEEP
meillo@0 677 INPUT "", nzl
meillo@0 678 GOTO a109
meillo@0 679
meillo@0 680 112 :
meillo@0 681 CLS
meillo@0 682 PRINT "Es ist nichts Ausergew”hnliches daran"
meillo@0 683 PRINT
meillo@0 684 PRINT "zu erkennen, nur eine Schublade in der"
meillo@0 685 PRINT
meillo@0 686 PRINT "es bestimmt interesantes zu entdecken gibt."
meillo@0 687 SLEEP
meillo@0 688 INPUT "", nzl
meillo@0 689 GOTO a109
meillo@0 690
meillo@0 691 113 :
meillo@0 692 CLS
meillo@0 693 LINE (90, 70)-(180, 110), 7, BF
meillo@0 694 LINE (50, 70)-(90, 70), 7
meillo@0 695 LINE (50, 70)-(90, 110), 7
meillo@0 696 PAINT (80, 80), 7
meillo@0 697 LINE (180, 40)-(200, 140), 8, BF
meillo@0 698 LINE (201, 70)-(250, 110), 6, BF
meillo@0 699 CIRCLE (250, 90), 24, 6
meillo@0 700 PAINT (260, 80), 6
meillo@0 701 SLEEP
meillo@0 702 INPUT "", nzl
meillo@0 703 CLS
meillo@0 704 messer% = 1
meillo@0 705 GOTO a109
meillo@0 706
meillo@0 707 114 :
meillo@0 708 CLS
meillo@0 709 LOCATE 13, 10
meillo@0 710 COLOR 10
meillo@0 711 PRINT "Schlafzimmer"
meillo@0 712 raum = 8
meillo@0 713 SLEEP
meillo@0 714 INPUT "", nzl
meillo@0 715 GOTO 8
meillo@0 716
meillo@0 717 115 :
meillo@0 718 CLS
meillo@0 719 LINE (120, 20)-(200, 20), 7
meillo@0 720 LINE (120, 20)-(140, 40), 7
meillo@0 721 LINE (200, 20)-(180, 40), 7
meillo@0 722 LINE (150, 50)-(170, 130), 7, BF
meillo@0 723 LINE (130, 150)-(190, 180), 7, BF
meillo@0 724 LINE (130, 160)-(100, 190), 7
meillo@0 725 LINE (100, 190)-(220, 190), 7
meillo@0 726 LINE (220, 190)-(190, 160), 7
meillo@0 727 CIRCLE (160, 40), 20, 7
meillo@0 728 CIRCLE (160, 150), 30, 7
meillo@0 729 PAINT (140, 30), 7
meillo@0 730 PAINT (180, 30), 7
meillo@0 731 PAINT (160, 45), 7
meillo@0 732 PAINT (160, 140), 7
meillo@0 733 PAINT (160, 185), 7
meillo@0 734 SLEEP
meillo@0 735 INPUT "", nzl
meillo@0 736 CLS
meillo@0 737 kerzenst% = 1
meillo@0 738 GOTO a106
meillo@0 739
meillo@0 740 116 :
meillo@0 741 CLS
meillo@0 742 COLOR 7
meillo@0 743 INPUT "Was machst du?", B$
meillo@0 744 zuege% = zuege% + 1
meillo@0 745 IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0 746 IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0 747 IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0 748 IF B$ = "gehen in Kche" GOTO 109
meillo@0 749 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0 750 IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@0 751 IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
meillo@0 752 IF B$ = "untersuchen Flur" GOTO 117
meillo@0 753 IF B$ = "sprechen mit Tina" GOTO 118
meillo@0 754 IF B$ = "q" THEN END
meillo@0 755 IF B$ = "m" THEN GOSUB yy
meillo@0 756 IF B$ = "b" THEN GOSUB yx
meillo@0 757 PRINT ""
meillo@0 758 PRINT "Keine Lust!"
meillo@0 759 PRINT ""
meillo@0 760 SLEEP
meillo@0 761 INPUT "", nzl
meillo@0 762 GOTO 116
meillo@0 763
meillo@0 764 117 :
meillo@0 765 CLS
meillo@0 766 IF kerzenst% = 0 GOTO 121
meillo@0 767 PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
meillo@0 768 PRINT
meillo@0 769 PRINT "gerade aus geht's ins Esszimmer und rechts ins"
meillo@0 770 PRINT
meillo@0 771 PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
meillo@0 772 PRINT
meillo@0 773 PRINT "gerade klingelt es an der Tr. Herr Fisch macht"
meillo@0 774 PRINT
meillo@0 775 PRINT "auf und Tina kommt herein."
meillo@0 776 vvv% = 1
meillo@0 777 SLEEP
meillo@0 778 INPUT "", nzl
meillo@0 779 GOTO 116
meillo@0 780
meillo@0 781 118 :
meillo@0 782 CLS
meillo@0 783 COLOR 9
meillo@0 784 PRINT "A: Sch”n, dass du so schnell gekommen bist."
meillo@0 785 PRINT
meillo@0 786 PRINT "B: Der Tote liegt im Schlafzimmer."
meillo@0 787 PRINT
meillo@0 788 PRINT "C: Ende."
meillo@0 789 LOCATE 8, 1
meillo@0 790 COLOR 12
meillo@0 791 INPUT "Was sagst du?", s$
meillo@0 792 PRINT
meillo@0 793 COLOR 9
meillo@0 794 IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
meillo@0 795 IF s$ = "B" GOTO 119
meillo@0 796 IF s$ = "C" GOTO 116
meillo@0 797 SLEEP
meillo@0 798 INPUT "", nzl
meillo@0 799 GOTO 118
meillo@0 800
meillo@0 801 119 :
meillo@0 802 CLS
meillo@0 803 COLOR 9
meillo@0 804 PRINT "Okay, aber wo ist das Schlafzimmer?"
meillo@0 805 SLEEP
meillo@0 806 INPUT "", nzl
meillo@0 807 GOTO 120
meillo@0 808
meillo@0 809 120 :
meillo@0 810 CLS
meillo@0 811 COLOR 12
meillo@0 812 PRINT "Welchen Weg beschreibst du ihr?"
meillo@0 813 PRINT
meillo@0 814 PRINT "a: Links die Treppe hinauf."
meillo@0 815 PRINT
meillo@0 816 PRINT "b: Rechts die Treppe hinunter."
meillo@0 817 PRINT
meillo@0 818 PRINT "c: Die Treppe hinauf, dann links."
meillo@0 819 PRINT
meillo@0 820 INPUT "a, b oder c?", w$
meillo@0 821 PRINT
meillo@0 822 COLOR 2
meillo@0 823 IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Ged„chtnis!"
meillo@0 824 IF w$ = "c" THEN cheat1 = 1
meillo@0 825 IF w$ = "a" THEN PRINT "Leider falsch.Die richtige L”sung war c."
meillo@0 826 IF w$ = "b" THEN PRINT "Leider falsch.Die richtige L”sung war c."
meillo@0 827 vvx% = 1
meillo@0 828 SLEEP
meillo@0 829 INPUT "", nzl
meillo@0 830 GOTO 116
meillo@0 831
meillo@0 832 121 :
meillo@0 833 CLS
meillo@0 834 COLOR 2
meillo@0 835 PRINT "Links geht es die Treppe zum Schlafzimmer"
meillo@0 836 PRINT
meillo@0 837 PRINT "hinauf, gerade aus geht's ins Esszimmer und"
meillo@0 838 PRINT
meillo@0 839 PRINT "rechts ins Arbeitszimmer. Im Flur steht"
meillo@0 840 PRINT
meillo@0 841 PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
meillo@0 842 SLEEP
meillo@0 843 INPUT "", nzl
meillo@0 844 GOTO 116
meillo@0 845
meillo@0 846 122 :
meillo@0 847 CLS
meillo@0 848 COLOR 2
meillo@0 849 IF vvx% = 1 GOTO 123
meillo@0 850 PRINT "Ich sehe nichts Besonderes."
meillo@0 851 SLEEP
meillo@0 852 INPUT "", nzl
meillo@0 853 GOTO 105
meillo@0 854
meillo@0 855 123 :
meillo@0 856 CLS
meillo@0 857 COLOR 2
meillo@0 858 PRINT "Da hat's ja ein Buch mit 123 Reiseerz„hlungen"
meillo@0 859 PRINT
meillo@0 860 PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
meillo@0 861 PRINT
meillo@0 862 PRINT "ich mir genauer anschauen."
meillo@0 863 SLEEP
meillo@0 864 INPUT "", nzl
meillo@0 865 GOTO 105
meillo@0 866
meillo@0 867 124 :
meillo@0 868 CLS
meillo@0 869 COLOR 2
meillo@0 870 PRINT "Das Buch l„sst sich nur halb heraus ziehen."
meillo@0 871 PRINT
meillo@0 872 PRINT "Pl”tzlich schwenkt das ganze Bcherregal zur"
meillo@0 873 PRINT
meillo@0 874 PRINT "Seite und dhinter kommt eine Tr zum Vorschein."
meillo@0 875 PRINT
meillo@0 876 PRINT "Sie ist durch ein Schlssel- und ein "
meillo@0 877 PRINT
meillo@0 878 PRINT "Zahlenschloss gesichert."
meillo@0 879 PRINT
meillo@0 880 COLOR 6
meillo@0 881 PRINT "Wenn du im Arbeitszimmer z drckst, kannst du"
meillo@0 882 PRINT
meillo@0 883 PRINT "die Zahlenkombination eingeben."
meillo@0 884 SLEEP
meillo@0 885 INPUT "", nzl
meillo@0 886 GOTO 105
meillo@0 887
meillo@0 888 125 :
meillo@0 889 zkx% = 0
meillo@0 890 a125:
meillo@0 891 CLS
meillo@0 892 zkx% = zkx% + 1
meillo@0 893 COLOR 5
meillo@0 894 INPUT "Wie lautet die Kombination?", zk$
meillo@0 895 IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
meillo@0 896 IF zk$ = "123" GOTO 126
meillo@0 897 IF zk$ = "q" GOTO 105
meillo@0 898 PRINT "Leider falsch. Probier's noch einmal."
meillo@0 899 IF zkx% = 5 THEN PRINT "Tipp: Das Bcherregal."
meillo@0 900 SLEEP
meillo@0 901 INPUT "", nzl
meillo@0 902 GOTO a125
meillo@0 903
meillo@0 904 126 :
meillo@0 905 CLS
meillo@0 906 COLOR 2
meillo@0 907 PRINT "Die Kombination war richtig."
meillo@0 908 kx% = 1
meillo@0 909 IF sx% = 1 GOTO 137
meillo@0 910 PRINT "Jetzt musst du nur noch das Schlsselschloss ”ffnen."
meillo@0 911 SLEEP
meillo@0 912 INPUT "", nzl
meillo@0 913 GOTO 105
meillo@0 914
meillo@0 915 137 :
meillo@0 916 CLS
meillo@0 917 COLOR 2
meillo@0 918 PRINT "So, die Tr ist jetzt offen. Dahinter befindet"
meillo@0 919 PRINT
meillo@0 920 PRINT "sich ein Geheimgang."
meillo@0 921 SLEEP
meillo@0 922 INPUT "", nzl
meillo@0 923 GOTO 105
meillo@0 924
meillo@0 925 138 :
meillo@0 926 CLS
meillo@0 927 COLOR 2
meillo@0 928 IF kx% = 1 GOTO 137
meillo@0 929 PRINT "Jetzt musst du nur noch die Kombination knacken."
meillo@0 930 SLEEP
meillo@0 931 INPUT "", nzl
meillo@0 932 GOTO 105
meillo@0 933
meillo@0 934 127 :
meillo@0 935 CLS
meillo@0 936 COLOR 2
meillo@0 937 IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
meillo@0 938 SLEEP
meillo@0 939 INPUT "", nzl
meillo@0 940 IF tlampe% = 0 GOTO 105
meillo@0 941 1000 :
meillo@0 942 CLS
meillo@0 943 LOCATE 13, 10
meillo@0 944 COLOR 10
meillo@0 945 PRINT "Geheimgang"
meillo@0 946 raum = 12
meillo@0 947 SLEEP
meillo@0 948 INPUT "", nzl
meillo@0 949 CLS
meillo@0 950 COLOR 2
meillo@0 951 PRINT "Gut, dass ich eine Taschenlampe dabei habe."
meillo@0 952 PRINT
meillo@0 953 PRINT "Oh, es geht steil bergab .... ich muss schon"
meillo@0 954 PRINT
meillo@0 955 PRINT "mindestens 5 Meter unter der Erdoberfl„che"
meillo@0 956 PRINT
meillo@0 957 PRINT "sein .... Jetzt bin ich schon 10 Minuten"
meillo@0 958 PRINT
meillo@0 959 PRINT "unterwegs ..... da vorne kommt eine Tr"
meillo@0 960 PRINT
meillo@0 961 PRINT "genau so gesichert wie die hinter dem Regal"
meillo@0 962 PRINT
meillo@0 963 PRINT "gut, dass ich den Schlssel habe und den"
meillo@0 964 PRINT
meillo@0 965 PRINT "Code kenne ..... Wo bin ich denn jetzt?"
meillo@0 966 PRINT
meillo@0 967 PRINT "Sieht aus, wie der Keller eines Hauses"
meillo@0 968 PRINT
meillo@0 969 PRINT "ist aber ganz sch”n zerfallen."
meillo@0 970 SLEEP
meillo@0 971 INPUT "", nzl
meillo@0 972 GOTO 130
meillo@0 973
meillo@0 974 130 :
meillo@0 975 CLS
meillo@0 976 LOCATE 13, 10
meillo@0 977 COLOR 10
meillo@0 978 PRINT "Keller"
meillo@0 979 raum = 9
meillo@0 980 SLEEP
meillo@0 981 INPUT "", nzl
meillo@0 982 a130:
meillo@0 983 CLS
meillo@0 984 COLOR 7
meillo@0 985 INPUT "Was machst du?", B$
meillo@0 986 zuege% = zuege% + 1
meillo@0 987 IF B$ = "gehen in Flur" GOTO 103
meillo@0 988 IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0 989 IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0 990 IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0 991 IF B$ = "gehen in Kche" GOTO 109
meillo@0 992 IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0 993 IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@0 994 IF B$ = "untersuchen Keller" GOTO 128
meillo@0 995 IF B$ = "benutzen Treppe" GOTO 132
meillo@0 996 IF B$ = "q" THEN END
meillo@0 997 IF B$ = "m" THEN GOSUB yy
meillo@0 998 IF B$ = "b" THEN GOSUB yx
meillo@0 999 IF B$ = "s" THEN GOSUB speichern
meillo@0 1000 PRINT ""
meillo@0 1001 PRINT "Jetzt nicht."
meillo@0 1002 PRINT
meillo@0 1003 SLEEP
meillo@0 1004 INPUT "", nzl
meillo@0 1005 GOTO a130
meillo@0 1006
meillo@0 1007 128 :
meillo@0 1008 CLS
meillo@0 1009 COLOR 2
meillo@0 1010 PRINT "Ein zerfallener Keller, alles verstaubt."
meillo@0 1011 PRINT
meillo@0 1012 PRINT "Gerade aus geht eine Treppe nach oben."
meillo@0 1013 PRINT
meillo@0 1014 PRINT ""
meillo@0 1015 SLEEP
meillo@0 1016 INPUT "", nzl
meillo@0 1017 GOTO 130
meillo@0 1018
meillo@0 1019
meillo@0 1020 131 :
meillo@0 1021 CLS
meillo@0 1022 COLOR 2
meillo@0 1023 PRINT "In der Lagerhalle ist alles genau so"
meillo@0 1024 PRINT
meillo@0 1025 PRINT "zerfallen, wie im Keller. šberall sind Kartons"
meillo@0 1026 PRINT
meillo@0 1027 PRINT "gestapelt. Gerade aus geht eine Tr ins Freie."
meillo@0 1028 SLEEP
meillo@0 1029 INPUT "", nzl
meillo@0 1030 RETURN
meillo@0 1031
meillo@0 1032 132 :
meillo@0 1033 CLS
meillo@0 1034 LOCATE 13, 10
meillo@0 1035 COLOR 10
meillo@0 1036 PRINT "Lagerhalle"
meillo@0 1037 raum = 10
meillo@0 1038 SLEEP
meillo@0 1039 INPUT "", nzl
meillo@0 1040 CLS
meillo@0 1041 a132:
meillo@0 1042 CLS
meillo@0 1043 COLOR 7
meillo@0 1044 INPUT "Was machst du?", B$
meillo@0 1045 zuege% = zuege% + 1
meillo@0 1046 IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0 1047 IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0 1048 IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0 1049 IF B$ = "gehen in Kche" GOTO 109
meillo@0 1050 IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
meillo@0 1051 IF B$ = "”ffnen Tr" GOTO 133
meillo@0 1052 IF B$ = "untersuchen Kartons" THEN GOSUB 134
meillo@0 1053 IF B$ = "benutzen Messer" GOTO 136
meillo@0 1054 IF B$ = "q" THEN END
meillo@0 1055 IF B$ = "m" THEN GOSUB yy
meillo@0 1056 IF B$ = "b" THEN GOSUB yx
meillo@0 1057 IF B$ = "s" THEN GOSUB speichern
meillo@0 1058 PRINT ""
meillo@0 1059 PRINT "N”!"
meillo@0 1060 PRINT
meillo@0 1061 SLEEP
meillo@0 1062 INPUT "", nzl
meillo@0 1063 GOTO a132
meillo@0 1064
meillo@0 1065 133 :
meillo@0 1066 CLS
meillo@0 1067 COLOR 2
meillo@0 1068 PRINT "Die Tr ist mit einem Zahlenschloss verschlossen,"
meillo@0 1069 PRINT
meillo@0 1070 PRINT "aber man kann die Tr einen Spalt weit aufdrcken."
meillo@0 1071 PRINT
meillo@0 1072 PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
meillo@0 1073 PRINT
meillo@0 1074 PRINT "auf mich zuf„hrt. Ich kann gerade noch zur Seite"
meillo@0 1075 PRINT
meillo@0 1076 PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
meillo@0 1077 PRINT
meillo@0 1078 PRINT "Jetzt ist schnelles Handeln wichtig!"
meillo@0 1079 PRINT
meillo@0 1080 SLEEP
meillo@0 1081 INPUT "", nzl
meillo@0 1082 a133:
meillo@0 1083 COLOR 7
meillo@0 1084 INPUT "Wo versteckst du dich? In ", v$
meillo@0 1085 v% = v% + 1
meillo@0 1086 IF v$ = "leerem Karton" GOTO 135
meillo@0 1087 IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
meillo@0 1088 IF v$ = "Geheimgang" THEN PRINT "Dafr reicht die Zeit nicht."
meillo@0 1089 IF v$ = "Keller" THEN PRINT "Dafr reicht die Zeit nicht."
meillo@0 1090 IF v$ = " untersuchen Lagerhalle" THEN GOSUB 131
meillo@0 1091 IF v$ = "untersuchen Kartons" THEN GOSUB 134
meillo@0 1092 IF v$ = "q" THEN END
meillo@0 1093 IF v% = 9 THEN PRINT "Tipp: l..... K....."
meillo@0 1094 IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
meillo@0 1095 PRINT "Da habe ich zu wenig Zeit dafr."
meillo@0 1096 SLEEP
meillo@0 1097 INPUT "", nzl
meillo@0 1098 GOTO a133
meillo@0 1099
meillo@0 1100 134 :
meillo@0 1101 CLS
meillo@0 1102 COLOR 2
meillo@0 1103 PRINT "Auf der linken Seite sind die vollen Kartons"
meillo@0 1104 PRINT
meillo@0 1105 PRINT "gestapelt und rechts liegen die leeren auf"
meillo@0 1106 PRINT
meillo@0 1107 PRINT "einem Haufen."
meillo@0 1108 SLEEP
meillo@0 1109 INPUT "", nzl
meillo@0 1110 RETURN
meillo@0 1111
meillo@0 1112 135 :
meillo@0 1113 CLS
meillo@0 1114 COLOR 2
meillo@0 1115 PRINT "Das ist eine gute Idee. Ich mache mich"
meillo@0 1116 PRINT
meillo@0 1117 PRINT "sofort an die Arbeit. Raschel, raschel"
meillo@0 1118 PRINT
meillo@0 1119 PRINT "... uff ... so ... geich ... jetzt ..."
meillo@0 1120 PRINT
meillo@0 1121 PRINT "Okay ich hab's geschafft. Jetzt kann"
meillo@0 1122 PRINT
meillo@0 1123 PRINT "ich nur nichts mehr sehen. Ich sollte"
meillo@0 1124 PRINT
meillo@0 1125 PRINT "mir ein Loch zum Rausschauen in den"
meillo@0 1126 PRINT
meillo@0 1127 PRINT "Karton reiáen. So ... uff, der ist zu"
meillo@0 1128 PRINT
meillo@0 1129 PRINT "stabil, da brauche ich ein Werkzeug dazu."
meillo@0 1130 SLEEP
meillo@0 1131 INPUT "", nzl
meillo@0 1132 GOTO 132
meillo@0 1133
meillo@0 1134 136 :
meillo@0 1135 CLS
meillo@0 1136 COLOR 2
meillo@0 1137 IF messer% = 0 THEN PRINT "Ich habe kein Messer."
meillo@0 1138 IF messer% = 0 THEN PRINT
meillo@0 1139 IF messer% = 0 THEN PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
meillo@0 1140 IF messer% = 0 THEN PRINT
meillo@0 1141 IF messer% = 0 THEN PRINT "halben Stunde geht der Typ wieder. Ich"
meillo@0 1142 IF messer% = 0 THEN PRINT
meillo@0 1143 IF messer% = 0 THEN PRINT "begebe mich sofort zurck ins Haus. So"
meillo@0 1144 IF messer% = 0 THEN PRINT
meillo@0 1145 IF messer% = 0 THEN PRINT "schlecht vorbereited begebe ich mich nicht"
meillo@0 1146 IF messer% = 0 THEN PRINT
meillo@0 1147 IF messer% = 0 THEN PRINT "wieder in Gefahr."
meillo@0 1148 IF messer% = 0 THEN PRINT
meillo@0 1149 IF messer% = 0 THEN SLEEP
meillo@0 1150 IF messer% = 0 THEN PRINT
meillo@0 1151 IF messer% = 0 THEN INPUT "", nzl
meillo@0 1152 IF messer% = 0 THEN PRINT
meillo@0 1153 IF messer% = 0 GOTO 105
meillo@0 1154 PRINT "Gute Idee, das mit dem Messer. Der Typ"
meillo@0 1155 PRINT
meillo@0 1156 PRINT "f„hrt jetzt mit seinem Kleinbus in die Halle."
meillo@0 1157 PRINT
meillo@0 1158 PRINT "Er steigt aus und macht die Hecktren auf."
meillo@0 1159 PRINT
meillo@0 1160 PRINT "Nun l„d er zwei Kartons in das Gef„hrt, er"
meillo@0 1161 PRINT
meillo@0 1162 PRINT "schlieát die Tren, steigt wieder ein und"
meillo@0 1163 PRINT
meillo@0 1164 PRINT "f„hrt hinaus."
meillo@0 1165 PRINT
meillo@0 1166 PRINT "Uff, das h„tte ich geschafft. Jetzt bloá schnell"
meillo@0 1167 PRINT
meillo@0 1168 PRINT "zurck ins Haus."
meillo@0 1169 SLEEP
meillo@0 1170 INPUT "", nzl
meillo@0 1171 GOTO 139
meillo@0 1172
meillo@0 1173 139 :
meillo@0 1174 CLS
meillo@0 1175 PRINT "Was machst du?"
meillo@0 1176 PRINT ""
meillo@0 1177 PRINT "a: nach Hause gehen"
meillo@0 1178 PRINT ""
meillo@0 1179 PRINT "b: noch da bleiben"
meillo@0 1180 PRINT ""
meillo@0 1181 PRINT "c: nochmal in die Lagerhalle gehen"
meillo@0 1182 PRINT ""
meillo@0 1183 INPUT "Und wie entscheidest du dich?", entscheidung$
meillo@0 1184 PRINT
meillo@0 1185 IF entscheidung$ = "a" GOTO 140
meillo@0 1186 IF entscheidung$ = "b" GOTO 105
meillo@0 1187 IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
meillo@0 1188
meillo@0 1189 140 :
meillo@0 1190 CLS
meillo@0 1191 LOCATE 13, 10
meillo@0 1192 COLOR 10
meillo@0 1193 PRINT "Zuhause"
meillo@0 1194 raum = 11
meillo@0 1195 SLEEP
meillo@0 1196 INPUT "", nzl
meillo@0 1197 a140:
meillo@0 1198 CLS
meillo@0 1199 PRINT "Du willst dir gerade einen Tee machen, als"
meillo@0 1200 PRINT ""
meillo@0 1201 PRINT "Du einen Schlag an der Tr h”rst und das"
meillo@0 1202 PRINT ""
meillo@0 1203 PRINT "Licht aus geht."
meillo@0 1204 PRINT ""
meillo@0 1205 PRINT "Was machst du?"
meillo@0 1206 PRINT ""
meillo@0 1207 PRINT "a: die Tr ”ffnen"
meillo@0 1208 PRINT ""
meillo@0 1209 PRINT "b: die Polizei anrufen"
meillo@0 1210 PRINT ""
meillo@0 1211 PRINT "c: dich unter dem Bett verstecken"
meillo@0 1212 PRINT ""
meillo@0 1213 INPUT "Und?", w$
meillo@0 1214 PRINT
meillo@0 1215 IF w$ = "a" GOTO 141
meillo@0 1216 IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst l”sen."
meillo@0 1217 IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
meillo@0 1218 GOTO a140
meillo@0 1219
meillo@0 1220 141 :
meillo@0 1221 CLS
meillo@0 1222 COLOR 2
meillo@0 1223 PRINT
meillo@0 1224 PRINT
meillo@0 1225 PRINT "Du siehst gerade noch ein Auto"
meillo@0 1226 PRINT
meillo@0 1227 PRINT "wegfahren. "
meillo@0 1228 SLEEP
meillo@0 1229 INPUT "", nzl
meillo@0 1230 CLS
meillo@0 1231 LINE (70, 100)-(250, 150), 2, BF
meillo@0 1232 LINE (70, 100)-(90, 60), 2
meillo@0 1233 LINE (71, 100)-(91, 60), 2
meillo@0 1234 LINE (250, 100)-(230, 60), 2
meillo@0 1235 LINE (249, 100)-(229, 60), 2
meillo@0 1236 CIRCLE (115, 78), 12, 6
meillo@0 1237 PAINT (115, 78), 6
meillo@0 1238 LINE (90, 90)-(140, 99), 1, BF
meillo@0 1239 LINE (90, 90)-(85, 99), 1
meillo@0 1240 LINE (145, 99)-(140, 90), 1
meillo@0 1241 LINE (85, 99)-(90, 99), 1
meillo@0 1242 LINE (145, 99)-(140, 99), 1
meillo@0 1243 PAINT (89, 98), 1
meillo@0 1244 PAINT (141, 98), 1
meillo@0 1245 LINE (230, 60)-(90, 62), 2, BF
meillo@0 1246 LINE (100, 75)-(130, 90), 7, BF
meillo@0 1247 LINE (190, 75)-(220, 90), 7, BF
meillo@0 1248 LINE (90, 95)-(140, 99), 7, BF
meillo@0 1249 LINE (180, 95)-(230, 99), 7, BF
meillo@0 1250 LINE (105, 91)-(105, 94), 8
meillo@0 1251 LINE (125, 91)-(125, 94), 8
meillo@0 1252 LINE (195, 91)-(195, 94), 8
meillo@0 1253 LINE (215, 91)-(215, 94), 8
meillo@0 1254 CIRCLE (80, 110), 7, 4
meillo@0 1255 PAINT (80, 110), 4
meillo@0 1256 CIRCLE (80, 110), 7, 0
meillo@0 1257 CIRCLE (240, 110), 7, 4
meillo@0 1258 PAINT (240, 110), 4
meillo@0 1259 CIRCLE (240, 110), 7, 0
meillo@0 1260 CIRCLE (80, 130), 7, 14
meillo@0 1261 PAINT (80, 130), 14
meillo@0 1262 CIRCLE (80, 130), 7, 0
meillo@0 1263 CIRCLE (240, 130), 7, 14
meillo@0 1264 PAINT (240, 130), 14
meillo@0 1265 CIRCLE (240, 130), 7, 0
meillo@0 1266 LINE (80, 151)-(100, 170), 8, BF
meillo@0 1267 LINE (220, 151)-(240, 170), 8, BF
meillo@0 1268 LINE (125, 126)-(194, 136), 0, BF
meillo@0 1269 LINE (125, 126)-(194, 136), 15, B
meillo@0 1270 LOCATE 17, 17
meillo@0 1271 COLOR 15
meillo@0 1272 PRINT "KA GR 48"
meillo@0 1273 LINE (150, 67)-(170, 72), 7, BF
meillo@0 1274 LINE (149, 66)-(171, 73), 8, B
meillo@0 1275 LINE (159, 63)-(161, 65), 8, BF
meillo@0 1276 LINE (1, 170)-(320, 200), 7, BF
meillo@0 1277 bghbgh = 0
meillo@0 1278 DO
meillo@0 1279 bghbgh = bghbgh + 1
meillo@0 1280 LOOP UNTIL bghbgh = 180000
meillo@0 1281 GOTO 142
meillo@0 1282 142 :
meillo@0 1283 CLS
meillo@0 1284 COLOR 2
meillo@0 1285 PRINT "In deiner Tr steckt ein Messer mit"
meillo@0 1286 PRINT ""
meillo@0 1287 PRINT "einer Botschaft. Du liest sie natrlich"
meillo@0 1288 PRINT
meillo@0 1289 PRINT "sofort."
meillo@0 1290 SLEEP
meillo@0 1291 INPUT "", nzl
meillo@0 1292 CLS
meillo@0 1293 LINE (55, 30)-(275, 170), 11, B
meillo@0 1294 COLOR 11
meillo@0 1295 LOCATE 10, 10
meillo@0 1296 PRINT "Wenn du dich einmischst"
meillo@0 1297 LOCATE 15, 10
meillo@0 1298 PRINT "dann bist du T O T !!!"
meillo@0 1299 SLEEP
meillo@0 1300 INPUT "", nzl
meillo@0 1301 CLS
meillo@0 1302 COLOR 2
meillo@0 1303 PRINT ""
meillo@0 1304 PRINT ""
meillo@0 1305 PRINT "Diese Botschaft war ernst gemeint."
meillo@0 1306 PRINT ""
meillo@0 1307 PRINT "Aber als Privatdetektiv musst du dich"
meillo@0 1308 PRINT ""
meillo@0 1309 PRINT "halt ber solche Morddrohungen hinweg-"
meillo@0 1310 PRINT ""
meillo@0 1311 PRINT "setzen. Deshalb rufst du sofort die"
meillo@0 1312 PRINT ""
meillo@0 1313 PRINT "Polizei an."
meillo@0 1314 SLEEP
meillo@0 1315 INPUT "", nzl
meillo@0 1316 GOTO 143
meillo@0 1317 143 :
meillo@0 1318 CLS
meillo@0 1319 COLOR 9
meillo@0 1320 PRINT ""
meillo@0 1321 PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
meillo@0 1322 PRINT ""
meillo@0 1323 PRINT "L„nger. Was kann ich fr Sie tun?"
meillo@0 1324 PRINT
meillo@0 1325 PRINT
meillo@0 1326 COLOR 12
meillo@0 1327 PRINT "a: Ich m”chte Anzeige gegen einen Mann"
meillo@0 1328 PRINT
meillo@0 1329 PRINT " in einem grnen Auto erstatten."
meillo@0 1330 PRINT
meillo@0 1331 PRINT "b: Ich m”chte eine Pizza essen."
meillo@0 1332 PRINT ""
meillo@0 1333 PRINT "c: Ich m”chte, dass Sie einen Mann"
meillo@0 1334 PRINT ""
meillo@0 1335 PRINT " in einem grnen Auto verhaften."
meillo@0 1336 LOCATE 20, 1
meillo@0 1337 COLOR 12
meillo@0 1338 INPUT "Was antwortest du? (a,b,c)", a$
meillo@0 1339 IF a$ = "a" THEN GOTO 144
meillo@0 1340 IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
meillo@0 1341 IF a$ = "c" THEN GOTO 144
meillo@0 1342 IF a$ = "q" THEN END
meillo@0 1343 SLEEP
meillo@0 1344 INPUT "", nzl
meillo@0 1345 GOTO 143
meillo@0 1346
meillo@0 1347 144 :
meillo@0 1348 CLS
meillo@0 1349 COLOR 9
meillo@0 1350 PRINT ""
meillo@0 1351 PRINT "Wie heiát der Mann denn?"
meillo@0 1352 PRINT
meillo@0 1353 COLOR 12
meillo@0 1354 PRINT "a: Karl von Burlafingen."
meillo@0 1355 PRINT ""
meillo@0 1356 PRINT "b: Regidr Eklansch."
meillo@0 1357 PRINT ""
meillo@0 1358 PRINT "c: Ich kenne seinen Namen nicht."
meillo@0 1359 PRINT ""
meillo@0 1360 PRINT ""
meillo@0 1361 INPUT "Wie heiát er? (a,b,c)", w$
meillo@0 1362 PRINT ""
meillo@0 1363 IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
meillo@0 1364 IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
meillo@0 1365 IF w$ = "c" GOTO 145
meillo@0 1366 SLEEP
meillo@0 1367 INPUT "", nzl
meillo@0 1368 GOTO 144
meillo@0 1369
meillo@0 1370 145 :
meillo@0 1371 CLS
meillo@0 1372 PRINT ""
meillo@0 1373 COLOR 9
meillo@0 1374 PRINT "Was fr eine Autonummer hatte er denn?"
meillo@0 1375 PRINT ""
meillo@0 1376 PRINT ""
meillo@0 1377 COLOR 12
meillo@0 1378 PRINT "a: KS ET 26"
meillo@0 1379 PRINT ""
meillo@0 1380 PRINT "b: HS AB 37"
meillo@0 1381 PRINT ""
meillo@0 1382 PRINT "c: KA GR 48"
meillo@0 1383 PRINT ""
meillo@0 1384 PRINT ""
meillo@0 1385 COLOR 12
meillo@0 1386 INPUT "Welche Autonummer hatte er? (a,b,c)", a$
meillo@0 1387 PRINT ""
meillo@0 1388 IF a$ = "a" THEN PRINT "Du solltest dein Ged„chtnis verbessern!"
meillo@0 1389 IF a$ = "b" THEN PRINT "Du solltest dein Ged„chtnis verbessern!"
meillo@0 1390 IF a$ = "c" GOTO 146
meillo@0 1391 SLEEP
meillo@0 1392 INPUT "", nzl
meillo@0 1393 GOTO 145
meillo@0 1394
meillo@0 1395 146 :
meillo@0 1396 CLS
meillo@0 1397 COLOR 2
meillo@0 1398 PRINT ""
meillo@0 1399 PRINT "Der Polizist gab den guten Tip sofort"
meillo@0 1400 PRINT ""
meillo@0 1401 PRINT "an seine Kollegen weiter. Er dankte"
meillo@0 1402 PRINT ""
meillo@0 1403 PRINT "dir fr die heiáe Spur und du"
meillo@0 1404 PRINT ""
meillo@0 1405 PRINT "verabschiedeste dich und giengst nach"
meillo@0 1406 PRINT ""
meillo@0 1407 PRINT "Hause."
meillo@0 1408 SLEEP
meillo@0 1409 INPUT "", nzl
meillo@0 1410 CLS
meillo@0 1411 PRINT ""
meillo@0 1412 PRINT "Zwei Tage sp„ter kam ein Brief vom"
meillo@0 1413 PRINT ""
meillo@0 1414 PRINT "Polizeirevier:"
meillo@0 1415 SLEEP
meillo@0 1416 INPUT "", nzl
meillo@0 1417 CLS
meillo@0 1418 LOCATE 4, 1
meillo@0 1419 COLOR 15
meillo@0 1420 PRINT "Sehrgeehrter Herr "; name$; ""
meillo@0 1421 PRINT ""
meillo@0 1422 PRINT "dank Ihnen konnten wie eine ganze"
meillo@0 1423 PRINT ""
meillo@0 1424 PRINT "Bande Waffenschieber dingfest machen."
meillo@0 1425 PRINT ""
meillo@0 1426 PRINT ""
meillo@0 1427 PRINT ""
meillo@0 1428 PRINT ""
meillo@0 1429 PRINT ""
meillo@0 1430 PRINT ""
meillo@0 1431 PRINT "Ausfhrlicher Bericht auf der n„chsten"
meillo@0 1432 PRINT ""
meillo@0 1433 PRINT "Seite."
meillo@0 1434 SLEEP
meillo@0 1435 INPUT "", nzl
meillo@0 1436 CLS
meillo@0 1437 PRINT ""
meillo@0 1438 PRINT "Am Montag konnten wir den grnen Audi"
meillo@0 1439 PRINT ""
meillo@0 1440 PRINT "von Sch„fer (so heiát der Bersitzer)"
meillo@0 1441 PRINT ""
meillo@0 1442 PRINT "in der Karlsruher Innenstadt ausfindig"
meillo@0 1443 PRINT ""
meillo@0 1444 PRINT "machen. Wir folgten ihm bis zu seinem"
meillo@0 1445 PRINT ""
meillo@0 1446 PRINT "Hause. Dort umstellten wir es"
meillo@0 1447 PRINT ""
meillo@0 1448 PRINT "und strmten. Beim Verh”r gestand"
meillo@0 1449 PRINT ""
meillo@0 1450 PRINT "er alles (Auftraggeber und alle"
meillo@0 1451 PRINT ""
meillo@0 1452 PRINT "Mitglieder). Am n„chsten Tag konnten"
meillo@0 1453 PRINT ""
meillo@0 1454 PRINT "wir den Rest der Bande verhaften."
meillo@0 1455 PRINT ""
meillo@0 1456 PRINT "Am n„chsten Donnerstag wird Mayr, der"
meillo@0 1457 PRINT ""
meillo@0 1458 PRINT "Boss der Truppe, wegen Mord an Karl"
meillo@0 1459 PRINT ""
meillo@0 1460 SLEEP
meillo@0 1461 INPUT "", nzl
meillo@0 1462 CLS
meillo@0 1463 PRINT ""
meillo@0 1464 PRINT "Mller verurteilt. Auch die Anderen"
meillo@0 1465 PRINT ""
meillo@0 1466 PRINT "werden wegen Beihilfe zum Mord vor"
meillo@0 1467 PRINT ""
meillo@0 1468 PRINT "Gericht gestellt werden."
meillo@0 1469 PRINT ""
meillo@0 1470 PRINT ""
meillo@0 1471 PRINT ""
meillo@0 1472 PRINT "Ich muss nochmal meinen Dank an Sie"
meillo@0 1473 PRINT ""
meillo@0 1474 PRINT "Aussprechen. Denn nur durch Sie konnten"
meillo@0 1475 PRINT ""
meillo@0 1476 PRINT "wir diese gef„hrliche Bande stoppen"
meillo@0 1477 PRINT ""
meillo@0 1478 PRINT ""
meillo@0 1479 PRINT ""
meillo@0 1480 PRINT ""
meillo@0 1481 PRINT ""
meillo@0 1482 PRINT " Polizeichef Mattias Huber"
meillo@0 1483 SLEEP
meillo@0 1484 INPUT "", nzl
meillo@0 1485 CLS
meillo@0 1486 LOCATE 13, 10
meillo@0 1487 COLOR 13
meillo@0 1488 PRINT "Sie haben gewonnen!"
meillo@0 1489 SLEEP
meillo@0 1490 INPUT "", nzl
meillo@0 1491 COLOR 15
meillo@0 1492
meillo@0 1493 GOTO xxxxx
meillo@0 1494
meillo@0 1495
meillo@0 1496
meillo@0 1497
meillo@0 1498
meillo@0 1499
meillo@0 1500
meillo@0 1501
meillo@0 1502 END
meillo@0 1503
meillo@0 1504
meillo@0 1505
meillo@0 1506
meillo@0 1507
meillo@0 1508
meillo@0 1509
meillo@0 1510 yy:
meillo@0 1511 CLS
meillo@0 1512 PRINT
meillo@0 1513 PRINT
meillo@0 1514 COLOR 5
meillo@0 1515 PRINT "Hausschlssel"
meillo@0 1516 PRINT "200 Schilling"
meillo@0 1517 IF tlampe% = 1 THEN PRINT "Taschenlampe"
meillo@0 1518 IF schluessel% = 1 THEN PRINT "Schlssel"
meillo@0 1519 IF messer% = 1 THEN PRINT "Messer"
meillo@0 1520 IF kerzenst% = 1 THEN PRINT "Kerzenst„nder"
meillo@0 1521 IF seil% = 1 THEN PRINT "Seil"
meillo@0 1522 RETURN
meillo@0 1523
meillo@0 1524 xxxxx:
meillo@0 1525
meillo@0 1526 v = 4
meillo@0 1527 vv = 1
meillo@0 1528 LOCATE 13, 10
meillo@0 1529 CLS
meillo@0 1530 LINE (79, 40)-(215, 40), v
meillo@0 1531 LINE (79, 40)-(49, 70), v
meillo@0 1532 LINE (245, 70)-(215, 40), v
meillo@0 1533 LINE (245, 70)-(147, 168), v
meillo@0 1534 LINE (49, 70)-(147, 168), v
meillo@0 1535 LINE (80, 39)-(215, 39), v
meillo@0 1536 LINE (79, 39)-(49, 69), v
meillo@0 1537 LINE (246, 70)-(215, 39), v
meillo@0 1538 LINE (246, 70)-(147, 169), v
meillo@0 1539 LINE (48, 70)-(147, 169), v
meillo@0 1540 PAINT (100, 42), vv, v
meillo@0 1541 LOCATE 11, 13
meillo@0 1542 COLOR 14
meillo@0 1543 PRINT "Super Markus"
meillo@0 1544 SLEEP
meillo@0 1545 END
meillo@0 1546
meillo@0 1547 yx:
meillo@0 1548 PRINT ""
meillo@0 1549 PRINT "M”gliche Befehle:"
meillo@0 1550 PRINT ""
meillo@0 1551 PRINT ""
meillo@0 1552 COLOR 3
meillo@0 1553 PRINT "”ffnen"
meillo@0 1554 PRINT ""
meillo@0 1555 PRINT "benutzen"
meillo@0 1556 PRINT ""
meillo@0 1557 PRINT "untersuchen"
meillo@0 1558 PRINT ""
meillo@0 1559 PRINT "sprechen mit"
meillo@0 1560 PRINT ""
meillo@0 1561 PRINT "gehen (in)"
meillo@0 1562 PRINT
meillo@0 1563 PRINT "nehmen"
meillo@0 1564 RETURN
meillo@0 1565
meillo@0 1566 n:
meillo@0 1567 CLS
meillo@0 1568 LOCATE 12, 5
meillo@0 1569 COLOR 11
meillo@0 1570 PRINT "Neuer Name fr Held", name$
meillo@0 1571 OPEN "c:midds1" FOR INPUT AS #1
meillo@0 1572 INPUT #1, name$
meillo@0 1573 CLOSE
meillo@0 1574 RETURN
meillo@0 1575
meillo@0 1576 speichern:
meillo@0 1577 RETURN
meillo@0 1578
meillo@0 1579 SUB M
meillo@0 1580 PRINT
meillo@0 1581 PRINT
meillo@0 1582 COLOR 5
meillo@0 1583 PRINT "Hausschlssel"
meillo@0 1584 PRINT "200 Schilling"
meillo@0 1585 IF tlampe% = 1 THEN PRINT "Taschenlampe"
meillo@0 1586 IF schluessel% = 1 THEN PRINT "Schlssel"
meillo@0 1587 IF messer% = 1 THEN PRINT "Messer"
meillo@0 1588 IF kerzenst% = 1 THEN PRINT "Kerzenst„nder"
meillo@0 1589 IF seil% = 1 THEN PRINT "Seil"
meillo@0 1590
meillo@0 1591
meillo@0 1592
meillo@0 1593 END SUB
meillo@0 1594