meillo@1: '============================================================================'
meillo@1: '                                                                            '
meillo@1: '                                                                            '
meillo@1: '  M             M                                                           '
meillo@1: '  MM           MM        I               D               D                  '
meillo@1: '  M M         M M        I               D               D                  '
meillo@1: '  M  M       M  M                        D               D                  '
meillo@1: '  M   M     M   M                        D               D                  '
meillo@1: '  M    M   M    M        I         DDDDD D         DDDDD D         SSSSS    '
meillo@1: '  M     M M     M        I        D     DD        D     DD        S     S   '
meillo@1: '  M      M      M        I       D       D       D       D       S          '
meillo@1: '  M             M        I       D       D       D       D        S         '
meillo@1: '  M             M        I       D       D       D       D         SSSS     '
meillo@1: '  M             M        I       D       D       D       D             S    '
meillo@1: '  M             M        I       D       D       D       D              S   '
meillo@1: '  M             M        I        D     DD        D     DD       S     S    '
meillo@1: '  M             M        I         DDDDD D         DDDDD D        SSSSS     '
meillo@1: '                                                                            '
meillo@1: '                                                                            '
meillo@1: '============================================================================'
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 'Midds'
meillo@1: 
meillo@1: 
meillo@2: cls
meillo@1: LOCATE 13, 6
meillo@1: COLOR 15
meillo@1: PRINT "*** Mord in der Dorfstrasse ***"
meillo@2: COLOR 7
meillo@1: 'LINE (20, 60)-(300, 140), 2, B
meillo@1: LOCATE 24, 2
meillo@1: PRINT "(c) Copyright 1999 Elefant Software"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: name1$ = "John Howell"
meillo@1: 
meillo@1: 
meillo@1: 
meillo@2: cls
meillo@1: COLOR 6
meillo@1: PRINT "Dies ist ein Kriminalspiel,"
meillo@1: PRINT "das die grauen Zellen fordert."
meillo@2: print
meillo@2: PRINT
meillo@2: PRINT "Druecke 'q' um das Spiel zu beenden."
meillo@2: PRINT "Druecke 'i' um zu erfahren, was du alles besitzt."
meillo@2: PRINT "Druecke 'b' um die Befehle noch einmal zusehen."
meillo@2: COLOR 7
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: X:
meillo@2: cls
meillo@1: PRINT ""
meillo@1: LOCATE 13, 6
meillo@1: COLOR 6
meillo@1: PRINT "So jetzt geht's endlich los!!!"
meillo@1: COLOR 7
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: ort_vordemhaus :
meillo@2: '''''''''' Vor dem Haus '''''''''
meillo@2: cls
meillo@2: COLOR 2
meillo@2:   PRINT "Du heisst "; name1$; " und bist"
meillo@2:   PRINT "Privatdetektiv. Du wurdest von "
meillo@2:   PRINT "Herr Fisch angerufen um einen Mord"
meillo@2:   PRINT "aufzuklaeren."
meillo@2:   PRINT "Natuerlich bist du sofort in deinen"
meillo@2:   PRINT "Renault 19 gestiegen und losgefahren."
meillo@2:   PRINT "Jetzt stehst du vor Haus Nummer 6"
meillo@2:   PRINT "in der Dorfstrasse."
meillo@2:   PRINT
meillo@2: COLOR 7
meillo@2: 
meillo@2: zuege = 0
meillo@1: do
meillo@1: 
meillo@2:   INPUT "(Vor dem Haus) Was machst du? ", B$
meillo@2:   B$ = lcase(B$)
meillo@1: 
meillo@2:   select case B$
meillo@2:     case "benutzen klingel"
meillo@2:       COLOR 2
meillo@2:       PRINT "Herr Fisch oeffnet die Tuer und du stehst im Flur"
meillo@2:       PRINT
meillo@2:       COLOR 7
meillo@2:       goto ort_flur
meillo@2:     case "oeffnen tuer"
meillo@2:       PRINT "  Haustueren kann man von aussen ohne Schluessel nicht oeffnen."
meillo@2:     case "gehen in haus"
meillo@2:       PRINT "  Die Tuer ist zu."
meillo@2:     case "gehen heim"
meillo@2:       PRINT "  Du Angsthase"
meillo@2:     case "q"
meillo@2:       END
meillo@2:     case "i"
meillo@2:       GOSUB inventar
meillo@2:     case "b"
meillo@2:       GOSUB befehle
meillo@2:     case else
meillo@2:       PRINT "  Noe!"
meillo@2:   end select
meillo@1: 
meillo@2:   zuege% = zuege% + 1
meillo@2:   IF zuege% = 5 THEN PRINT "          Tipp: benutzen ..."
meillo@2:   IF zuege% > 8 THEN PRINT "          Loesung: benutzen Klingel"
meillo@1: 
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: ort_flur :
meillo@2: '''''''' Flur '''''''
meillo@2: 
meillo@2: COLOR 7
meillo@2: 
meillo@2: zuege% = 0
meillo@1: do
meillo@2:   INPUT "(Flur) Was machst du? ", B$
meillo@2:   B$ = lcase(B$)
meillo@2:   select case B$
meillo@2:     case "sprechen mit herr fisch"
meillo@2:       goto gespraech_herrfisch
meillo@3: 
meillo@2:     case "gehen heim"
meillo@2:       PRINT "  Du Angsthase!"
meillo@3: 
meillo@2:     case "umschauen", "untersuchen flur"
meillo@3:       IF tinaangerufen = 1 and tinaistda = 0 then
meillo@3:         COLOR 2
meillo@3:         PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
meillo@3:         PRINT "gerade aus geht's ins Esszimmer und rechts ins"
meillo@3:         PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
meillo@3:         print
meillo@3:         PRINT "... gerade klingelt es an der Tuer. Herr Fisch"
meillo@3:         PRINT "macht auf und Tina kommt herein."
meillo@3:         tinaistda = 1
meillo@3:       else
meillo@3:         COLOR 2
meillo@3:         PRINT "Links geht es die Treppe zum Schlafzimmer"
meillo@3:         PRINT "hinauf, gerade aus geht's ins Esszimmer und"
meillo@3:         PRINT "rechts ins Arbeitszimmer. Im Flur steht"
meillo@3:         PRINT "Herr Fisch und beantwortet gern deine Fragen."
meillo@3:       end if
meillo@3: 
meillo@2:     case "gehen in schlafzimmer"
meillo@2:       goto ort_schlafzimmer
meillo@3: 
meillo@2:     case "gehen in arbeitszimmer"
meillo@2:       GOTO ort_arbeitszimmer
meillo@3: 
meillo@2:     case "gehen in esszimmer"
meillo@2:       GOTO ort_esszimmer
meillo@3: 
meillo@2:     case "gehen in kueche"
meillo@2:       GOTO ort_kueche
meillo@3: 
meillo@2:     case "gehen in lagerhalle"
meillo@2:       if kx% = 1 AND sx% = 1 GOTO 132
meillo@3: 
meillo@2:     case "sprechen mit Tina"
meillo@2:       if tinaistda = 1 then GOTO 118
meillo@3: 
meillo@2:     case "q"
meillo@2:       END
meillo@3: 
meillo@2:     case "i"
meillo@2:       GOSUB inventar
meillo@3: 
meillo@2:     case "b"
meillo@2:       GOSUB befehle
meillo@3: 
meillo@2:     case else
meillo@2:       PRINT "  Keine Lust!"
meillo@2:       PRINT
meillo@3: 
meillo@2:   end select
meillo@2: 
meillo@2:   zuege% = zuege% + 1
meillo@2:   IF zuege% = 6 THEN PRINT "  Tipp: sprechen mit ..."
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@2: 
meillo@2: gespraech_herrfisch :
meillo@2: ''''''''' gespraech mit herr fisch ''''''''''
meillo@2: 
meillo@2: color 2
meillo@2: print "Du beginnst ein Gespraech mit Herr Fisch."
meillo@2: print
meillo@2: 
meillo@1: do
meillo@2:   COLOR 7
meillo@2:   PRINT "A: Hallo, ich heisse "; name1$; "."
meillo@2:   PRINT "B: Wo ist die Leiche?"
meillo@2:   PRINT "C: Wie heisst der Tote?"
meillo@2:   if woIstDasSchlafzimmer = 1 then PRINT "D: Wo ist das Schlafzimmer?"
meillo@2:   PRINT "Z: Bis spaeter."
meillo@2:   COLOR 1
meillo@2:   INPUT "Was sagst du zu Herr Fisch? ", s$
meillo@2:   s$ = lcase(s$)
meillo@2:   COLOR 7
meillo@2:   print "Er antwortet:"
meillo@2:   COLOR 4
meillo@2:   select case s$
meillo@2:     case "a"
meillo@2:       PRINT "  Ich heisse Manfred Fisch."
meillo@2:     case "b"
meillo@2:       PRINT "  Im Schlafzimmer."
meillo@2:       woIstDasSchlafzimmer = 1
meillo@2:     case "c"
meillo@2:       PRINT "  Karl Mueller."
meillo@2:     case "d"
meillo@2:       if woIstDasSchlafzimmer = 1 THEN PRINT "  Die Treppe hinauf dann links."
meillo@2:     case "z"
meillo@2:       PRINT "  Ich bin jederzeit fuer Sie da, sprechen Sie mich einfach an."
meillo@2:       print
meillo@2:       color 2
meillo@2:       print "Herr Fisch beginnt wieder die Gemaelde an den Waenden zu betrachten"
meillo@2:       print
meillo@2:       goto ort_flur
meillo@2:     case "q"
meillo@2:       end
meillo@2:   end select
meillo@2:   print
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: ort_schlafzimmer :
meillo@2: ''''''' Schlafzimmer '''''''''
meillo@2: 
meillo@2: if tinaangerufen = 0 then
meillo@2:   COLOR 2
meillo@2:   PRINT "Die Leiche, ein etwa 20 Jahre alter"
meillo@2:   PRINT "Mann, liegt mit einem Messer im Ruecken"
meillo@2:   PRINT "auf dem Bett. Ich decke die Leiche"
meillo@2:   PRINT "als erstes mit einem Tuch ab und rufe"
meillo@2:   PRINT "mit meinem Handy Tina an. Tina ist"
meillo@2:   PRINT "Spezialistin fuer Fingerabdruecke."
meillo@2:   tinaangerufen = 1
meillo@2: else
meillo@2:   color 2
meillo@2:   print "Du bist im Schlafzimmer"
meillo@2: end if
meillo@2: 
meillo@2: do
meillo@2:   PRINT
meillo@2:   COLOR 7
meillo@2:   INPUT "(Schlafzimmer) Was machst du? ", B$
meillo@2:   B$ = lcase(B$)
meillo@2:   select case B$
meillo@2:     case "gehen in flur"
meillo@2:       goto ort_flur
meillo@2: 
meillo@2:     case "gehen in arbeitszimmer"
meillo@2:       goto ort_arbeitszimmer
meillo@2: 
meillo@2:     case "gehen in esszimmer"
meillo@2:       goto  ort_esszimmer
meillo@2: 
meillo@2:     case "gehen in kueche"
meillo@2:       goto ort_kueche
meillo@2: 
meillo@2:     case "gehen in lagerhalle"
meillo@2:       if kx% = 1 AND sx% = 1 goto 132
meillo@2: 
meillo@2:     case "umschauen", "untersuchen schlafzimmer"
meillo@2:       COLOR 2
meillo@2:       PRINT "In der Mitte steht das Bett, ueber dem"
meillo@2:       PRINT "Bett haengt ein Poster, auf der"
meillo@2:       PRINT "linken Seite befindet sich ein Schrank"
meillo@2:       PRINT "und an der rechten Wand ist ein Fenster."
meillo@2:       IF tinaistimschlafzimmer = 1 THEN PRINT "Tina sichert gerade die Fingerabdruecke."
meillo@2: 
meillo@2:     case "untersuchen schrank"
meillo@2:       PRINT "Ein alter Aktenschrank."
meillo@2: 
meillo@2:     case "oeffnen aktenschrank"
meillo@2:       versuch% = 0
meillo@2:       COLOR 2
meillo@2:       PRINT "Hinter den Ordnern ist ein Geheimfach"
meillo@2:       PRINT "mit einem dreistelligen Zahlenschloss."
meillo@2:       geheimfachgefunden = 1
meillo@2: 
meillo@2:       do
meillo@2:         versuch% = versuch% + 1
meillo@2:         COLOR 5
meillo@2:         INPUT "Wie lautet die Kombination?", k$
meillo@2:         IF k$ = "000" THEN PRINT "War wohl falsch."
meillo@2:         IF k$ = "007" then
meillo@2:           PRINT "Bravo, du hast echt gut kombiniert."
meillo@2:           geheimfachoffen = 1
meillo@2:         end if
meillo@2:         IF k$ = "q" goto ort_schlafzimmer
meillo@2:         PRINT "Komm streng dich ein bisschen an!"
meillo@2:         IF versuch% = 3 THEN PRINT "Tipp: Karl Mueller war Jean Connery Fan."
meillo@2:         IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
meillo@2:       loop until inkey <> ""
meillo@2: 
meillo@2:     case "untersuchen fenster"
meillo@2:       PRINT "Wenn man hinaus schaut, sieht man die Strasse."
meillo@2: 
meillo@2:     case "untersuchen bett"
meillo@2:       COLOR 2
meillo@2:       PRINT "Unter dem Bett liegt eine Taschenlampe."
meillo@2: 
meillo@2:     case "nehmen taschenlampe"
meillo@2:       PRINT "Du hast die Taschenlampe genommen"
meillo@2:       tlampe% = 1
meillo@2: 
meillo@2:     case "untersuchen geheimfach"
meillo@2:       if geheimfachgefunden = 1 then
meillo@2:         COLOR 2
meillo@2:         PRINT "In dem Geheimfach befindet sich ein Schluessel."
meillo@2:       end if
meillo@2: 
meillo@2:     case "nehmen schluessel"
meillo@2:       if geheimfachoffen = 1 then
meillo@2:         PRINT "Du hast den Schluessel aus dem Geheimfach genommen"
meillo@2:         schluessel% = 1
meillo@2:       end if
meillo@2: 
meillo@2:     case "untersuchen poster"
meillo@2:       PRINT "Da steht - Sean Connery als James Bond"
meillo@2:       PRINT "in SAG NIEMALS NIE - drauf."
meillo@2: 
meillo@2:     case "sprechen mit tina"
meillo@2:       if tinaistimschlafzimmer = 1 then PRINT "Die stoere ich lieber nicht bei der Arbeit."
meillo@2: 
meillo@2:     case "q"
meillo@2:       END
meillo@2:     case "i"
meillo@2:       GOSUB inventar
meillo@2:     case "b"
meillo@2:       GOSUB befehle
meillo@2:     case else
meillo@2:       PRINT "Nein"
meillo@2:   end select
meillo@2: loop until inkey <> ""
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: ort_arbeitszimmer :
meillo@2: '''''''' Arbeitszimmer '''''''
meillo@2: 
meillo@1: COLOR 2
meillo@2: PRINT "Du bist im Arbeitszimmer."
meillo@2: 
meillo@1: do
meillo@2:   COLOR 7
meillo@2:   INPUT "(Arbeitszimmer) Was machst du? ", B$
meillo@2:   B$ = lcase(B$)
meillo@2:   select case B$
meillo@2:     case "gehen in Schlafzimmer"
meillo@2:       goto ort_schlafzimmer
meillo@2: 
meillo@2:     case "gehen in Flur"
meillo@2:       goto ort_flur
meillo@2: 
meillo@2:     case "gehen in Esszimmer"
meillo@2:       goto ort_esszimmer
meillo@2: 
meillo@2:     case "gehen in Kueche"
meillo@2:       goto ort_kueche
meillo@2: 
meillo@2:     case "gehen in Lagerhalle"
meillo@2:       if kx% = 1 AND sx% = 1 then goto 132
meillo@2: 
meillo@2:     case "umschauen", "untersuchen Arbeitszimmer"
meillo@2:       COLOR 2
meillo@2:       PRINT "In der Mitte steht ein Schreibtisch,"
meillo@2:       PRINT "rechts befindet sich ein Schrank und"
meillo@2:       PRINT "links ein Buecherregal."
meillo@2: 
meillo@2:     case "untersuchen Schreibtisch"
meillo@2:       PRINT "Da gibt's nichts Besonderes zu sehen."
meillo@2: 
meillo@2:     case "untersuchen Buecherregal"
meillo@2:       COLOR 2
meillo@2:       IF tinaistimschlafzimmer = 0 then
meillo@2:         PRINT "Ich sehe nichts Besonderes."
meillo@2:       else
meillo@2:         PRINT "Da hat's ja ein Buch mit 123 Reiseerzaehlungen"
meillo@2:         PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
meillo@2:         PRINT "ich mir genauer anschauen."
meillo@2:       end if
meillo@2: 
meillo@2:     case "untersuchen Buch"
meillo@2:       PRINT "Ich kann nur den Buchruecken lesen, wenn es da steht."
meillo@2: 
meillo@2:     case "nehmen Buch"
meillo@2:       COLOR 2
meillo@2:       PRINT "Das Buch laesst sich nur halb heraus ziehen."
meillo@2:       PRINT "Ploetzlich schwenkt das ganze Buecherregal zur"
meillo@2:       PRINT "Seite und dhinter kommt eine Tuer zum Vorschein."
meillo@2:       PRINT "Sie ist durch ein Schluessel- und ein "
meillo@2:       PRINT "Zahlenschloss gesichert."
meillo@2:       PRINT
meillo@2:       COLOR 6
meillo@2:       PRINT "Wenn du im Arbeitszimmer z drueckst, kannst du"
meillo@2:       PRINT "die Zahlenkombination eingeben."
meillo@2: 
meillo@2:     case "benutzen Schluessel"
meillo@2:       PRINT "Das Schluesselschloss waere geknackt."
meillo@2:       sx% = 1
meillo@2:       COLOR 2
meillo@2:       IF kx% = 1 GOTO 137
meillo@2:       PRINT "Jetzt musst du nur noch die Kombination knacken."
meillo@2: 
meillo@2:     case "gehen in Geheimgang"
meillo@2:       if kx% = 1 AND sx% = 1 then
meillo@3:         COLOR 2
meillo@3:         IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
meillo@3:         do
meillo@3:         loop until inkey <> ""
meillo@3: 
meillo@3:         IF tlampe% = 0 GOTO ort_arbeitszimmer
meillo@3: 
meillo@3:         COLOR 10
meillo@3:         PRINT "Geheimgang"
meillo@3:         do
meillo@3:         loop until inkey <> ""
meillo@3: 
meillo@3:         COLOR 2
meillo@3:         PRINT "Gut, dass ich eine Taschenlampe dabei habe."
meillo@3:         PRINT "Oh, es geht steil bergab .... ich muss schon"
meillo@3:         PRINT "mindestens 5 Meter unter der Erdoberflaeche"
meillo@3:         PRINT "sein .... Jetzt bin ich schon 10 Minuten"
meillo@3:         PRINT "unterwegs ..... da vorne kommt eine Tuer"
meillo@3:         PRINT "genau so gesichert wie die hinter dem Regal"
meillo@3:         PRINT "gut, dass ich den Schluessel habe und den"
meillo@3:         PRINT "Code kenne ..... Wo bin ich denn jetzt?"
meillo@3:         PRINT "Sieht aus, wie der Keller eines Hauses"
meillo@3:         PRINT "ist aber ganz schoen zerfallen."
meillo@3:         do
meillo@3:         loop until inkey <> ""
meillo@3:         GOTO ort_keller
meillo@2:       end if
meillo@2: 
meillo@2:     case "z"
meillo@2:       do
meillo@2:         COLOR 5
meillo@2:         INPUT "Wie lautet die Kombination?", zk$
meillo@2:         select case zk$
meillo@2:           case "007"
meillo@2:             PRINT "So einfach ist es nicht"
meillo@2:           case "123"
meillo@2:             COLOR 2
meillo@2:             PRINT "Die Kombination war richtig."
meillo@2:             kx% = 1
meillo@2:             IF sx% = 1 GOTO 137
meillo@2:             PRINT "Jetzt musst du nur noch das Schluesselschloss oeffnen."
meillo@2:           case "q"
meillo@2:             PRINT "Tipp: Das Buecherregal."
meillo@2:             GOTO ort_arbeitszimmer
meillo@2:           case else
meillo@2:             PRINT "Leider falsch. Probier's noch einmal."
meillo@2:         end select
meillo@2:       loop until inkey <> ""
meillo@2: 
meillo@2:     case "i"
meillo@2:       GOSUB inventar
meillo@2:     case "q"
meillo@2:       END
meillo@2:     case "b"
meillo@2:       GOSUB befehle
meillo@2:     case else
meillo@2:       PRINT "Heute nicht!"
meillo@2:   end select
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: ort_esszimmer :
meillo@2: '''''' Esszimmer ''''''
meillo@2: 
meillo@2: COLOR 2
meillo@2: print "Du bist im Esszimmer."
meillo@1: do
meillo@2: 
meillo@2: COLOR 7
meillo@2: print
meillo@2: INPUT "(Esszimmer) Was machst du? ", B$
meillo@2: B$ = lcase(b$)
meillo@2: select case B$
meillo@2:   case "gehen in schlafzimmer"
meillo@2:     goto ort_schlafzimmer
meillo@2: 
meillo@2:   case "gehen in flur"
meillo@2:     GOTO ort_flur
meillo@2: 
meillo@2:   case "gehen in arbeitszimmer"
meillo@2:     GOTO ort_arbeitszimmer
meillo@2: 
meillo@2:   case "gehen in kueche"
meillo@2:     GOTO ort_kueche
meillo@2: 
meillo@2:   case "gehen in lagerhalle"
meillo@2:     if kx% = 1 AND sx% = 1 GOTO 132
meillo@2: 
meillo@2:   case "umschauen", "untersuchen esszimmer"
meillo@2:     color 2
meillo@2:     PRINT "In der Mitte steht der Tisch und auf"
meillo@2:     PRINT "der rechten Seite ist die Tuer zur Kueche."
meillo@2: 
meillo@2:   case "untersuchen tisch"
meillo@2:     color 2
meillo@2:     PRINT "Ein schoener eichener Tisch mit einer"
meillo@2:     PRINT "gehaekelten Tischdecke."
meillo@2:     if kerzenst% = 0 then PRINT "In der Mitte des Tisches steht ein silberner Kerzenstaender."
meillo@2: 
meillo@2:   case "nehmen kerzenstaender"
meillo@2:     kerzenst% = 1
meillo@2:     color 2
meillo@2:     PRINT "Du hast den Kerzenstaender genommen"
meillo@2: 
meillo@2:   case "q"
meillo@2:     END
meillo@2:   case "i"
meillo@2:     GOSUB inventar
meillo@2:   case "b"
meillo@2:     GOSUB befehle
meillo@2: end select
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: ort_kueche :
meillo@2: '''''''' Kueche '''''''
meillo@2: 
meillo@2: COLOR 2
meillo@2: PRINT "Du bist in der Kueche."
meillo@2: 
meillo@1: do
meillo@2:   color 7
meillo@2:   INPUT "(Kueche) Was machst du?", B$
meillo@2:   B$ = lcase(B$)
meillo@2:   select case B$
meillo@2:     case "gehen in schlafzimmer"
meillo@2:       goto ort_schlafzimmer
meillo@2: 
meillo@2:     case "gehen in flur"
meillo@2:       goto ort_flur
meillo@2: 
meillo@2:     case "gehen in arbeitszimmer"
meillo@2:       goto ort_arbeitszimmer
meillo@2: 
meillo@2:     case "gehen in esszimmer"
meillo@2:       goto ort_esszimmer
meillo@2: 
meillo@2:     case "gehen in lagerhalle"
meillo@2:       if kx% = 1 AND sx% = 1 then goto 132
meillo@2: 
meillo@2:     case "umschauen", "untersuchen kueche"
meillo@2:       PRINT "Links ist die Kochzeile, in der Mitte"
meillo@2:       PRINT "ein kleiner Tisch mit zwei Stuehlen und"
meillo@2:       PRINT "rechts der Kuechenschrank."
meillo@2: 
meillo@2:     case "untersuchen kuechenschrank"
meillo@2:       PRINT "Es ist nichts Ausergewoehnliches daran"
meillo@2:       PRINT "zu erkennen, nur eine Schublade in der"
meillo@2:       PRINT "es bestimmt Interesantes zu entdecken gibt."
meillo@2: 
meillo@2:     case "oeffnen schublade"
meillo@2:       PRINT "In der Schublade liegt sich ein Messer."
meillo@2: 
meillo@2:     case "nehmen messer"
meillo@2:       PRINT "Du hast das Messer genommen"
meillo@2:       messer% = 1
meillo@2: 
meillo@2:     case "q"
meillo@2:       END
meillo@2: 
meillo@2:     case "i"
meillo@2:       GOSUB inventar
meillo@2: 
meillo@2:     case "b"
meillo@2:       GOSUB befehle
meillo@2: 
meillo@2:     case else
meillo@2:       print "Will ich nicht."
meillo@2: 
meillo@2:   end select
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 118 :
meillo@2: 
meillo@1: COLOR 9
meillo@1: PRINT "A: Schoen, dass du so schnell gekommen bist."
meillo@1: PRINT "B: Der Tote liegt im Schlafzimmer."
meillo@1: PRINT "C: Ende."
meillo@1: COLOR 12
meillo@1: INPUT "Was sagst du?", s$
meillo@1: PRINT
meillo@1: COLOR 9
meillo@1: IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
meillo@3: IF s$ = "B" then
meillo@3:   COLOR 9
meillo@3:   PRINT "Okay, aber wo ist das Schlafzimmer?"
meillo@3:   print
meillo@3: 
meillo@3:   COLOR 12
meillo@3:   PRINT "Welchen Weg beschreibst du ihr?"
meillo@3:   PRINT
meillo@3:   PRINT "a: Links die Treppe hinauf."
meillo@3:   PRINT "b: Rechts die Treppe hinunter."
meillo@3:   PRINT "c: Die Treppe hinauf, dann links."
meillo@3:   PRINT
meillo@3:   INPUT "a, b oder c?", w$
meillo@3:   PRINT
meillo@3:   COLOR 2
meillo@3:   IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Gedaechtnis!"
meillo@3:   IF w$ = "c" THEN cheat1 = 1
meillo@3:   IF w$ = "a" THEN PRINT "Leider falsch.Die richtige Loesung war c."
meillo@3:   IF w$ = "b" THEN PRINT "Leider falsch.Die richtige Loesung war c."
meillo@3:   tinaistimschlafzimmer = 1
meillo@3:   do
meillo@3:   loop until inkey <> ""
meillo@3:   GOTO ort_flur
meillo@3: end if
meillo@2: IF s$ = "C" GOTO ort_flur
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: GOTO 118
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 137 :
meillo@2: 
meillo@1: COLOR 2
meillo@1: PRINT "So, die Tuer ist jetzt offen. Dahinter befindet"
meillo@1: PRINT "sich ein Geheimgang."
meillo@2: geheimgangfrei = 1
meillo@2: GOTO ort_arbeitszimmer
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: 
meillo@1: 
meillo@1: 
meillo@3: ort_keller :
meillo@1: '''''''''' Keller '''''''''''''
meillo@2: 
meillo@2: COLOR 2
meillo@2: PRINT "Du bist im Keller."
meillo@2: 
meillo@1: do
meillo@2:   COLOR 7
meillo@2:   INPUT "(Keller) Was machst du? ", B$
meillo@2:   B$ = lcase(B$)
meillo@2:   select case B$
meillo@2:     case "gehen in flur"
meillo@2:       goto ort_flur
meillo@2: 
meillo@2:     case "gehen in schlafzimmer"
meillo@2:       goto ort_schlafzimmer
meillo@2: 
meillo@2:     case "gehen in arbeitszimmer"
meillo@2:       goto ort_arbeitszimmer
meillo@2: 
meillo@2:     case "gehen in esszimmer"
meillo@2:       goto ort_esszimmer
meillo@2: 
meillo@2:     case "gehen in kueche"
meillo@2:       goto ort_kueche
meillo@2: 
meillo@2:     case "gehen in lagerhalle"
meillo@2:       if kx% = 1 AND sx% = 1 then goto 132
meillo@2: 
meillo@2:     case "umschauen", "untersuchen keller"
meillo@2:       COLOR 2
meillo@2:       PRINT "Ein zerfallener Keller, alles verstaubt."
meillo@2:       PRINT "Gerade aus geht eine Treppe nach oben."
meillo@2: 
meillo@2:     case "benutzen treppe"
meillo@2:       goto 132
meillo@2: 
meillo@2:     case "q"
meillo@2:       END
meillo@2: 
meillo@2:     case "i"
meillo@2:       GOSUB inventar
meillo@2: 
meillo@2:     case "b"
meillo@2:       GOSUB befehle
meillo@2: 
meillo@2:     case else
meillo@2:       PRINT "Jetzt nicht."
meillo@2: 
meillo@2:   end select
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 132 :
meillo@1: '''''''' Lagerhalle '''''''''''
meillo@2: 
meillo@3: COLOR 2
meillo@3: PRINT "Du bist in der Lagerhalle."
meillo@3: print
meillo@3: 
meillo@3: 
meillo@1: do
meillo@3:   COLOR 7
meillo@3:   INPUT "(Lagerhalle) Was machst du? ", B$
meillo@3:   B$ = lcase(B$)
meillo@3:   select case B$
meillo@3:     case "gehen in Schlafzimmer"
meillo@3:       goto ort_schlafzimmer
meillo@3: 
meillo@3:     case "gehen in Arbeitszimmer"
meillo@3:       goto ort_arbeitszimmer
meillo@3: 
meillo@3:     case "gehen in Esszimmer"
meillo@3:       goto ort_esszimmer
meillo@3: 
meillo@3:     case "gehen in Kueche"
meillo@3:       goto ort_kueche
meillo@3: 
meillo@3:     case "umschauen", "untersuchen Lagerhalle"
meillo@3:       COLOR 2
meillo@3:       PRINT "In der Lagerhalle ist alles genau so"
meillo@3:       PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
meillo@3:       PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
meillo@3:       print
meillo@3: 
meillo@3:     case "oeffnen Tuer"
meillo@3:       goto 133
meillo@3: 
meillo@3:     case "untersuchen Kartons"
meillo@3:       GOSUB 134
meillo@3: 
meillo@3:     case "benutzen Messer"
meillo@3:       goto 136
meillo@3: 
meillo@3:     case "q"
meillo@3:       END
meillo@3: 
meillo@3:     case "i"
meillo@3:       GOSUB inventar
meillo@3: 
meillo@3:     case "b"
meillo@3:       GOSUB befehle
meillo@3: 
meillo@3:     case else
meillo@3:       PRINT "Nee!"
meillo@3: 
meillo@3:   end select
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 133 :
meillo@2: 
meillo@1: COLOR 2
meillo@1: PRINT "Die Tuer ist mit einem Zahlenschloss verschlossen,"
meillo@1: PRINT "aber man kann die Tuer einen Spalt weit aufdruecken."
meillo@1: PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
meillo@1: PRINT "auf mich zufaehrt. Ich kann gerade noch zur Seite"
meillo@1: PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
meillo@1: PRINT "Jetzt ist schnelles Handeln wichtig!"
meillo@1: PRINT
meillo@3: v% = 0
meillo@1: do
meillo@3:   COLOR 7
meillo@3:   INPUT "(Lagerhalle) Wo versteckst du dich? In ", v$
meillo@3:   v$ = lcase(v$)
meillo@3:   select case v$
meillo@3:     case "leerem karton", "leerer karton", "leere kartons"
meillo@3:       COLOR 2
meillo@3:       PRINT "Das ist eine gute Idee. Ich mache mich"
meillo@3:       PRINT "sofort an die Arbeit. Raschel, raschel"
meillo@3:       PRINT "... uff ... so ... geich ... jetzt ..."
meillo@3:       PRINT "Okay ich hab's geschafft. Jetzt kann"
meillo@3:       PRINT "ich nur nichts mehr sehen. Ich sollte"
meillo@3:       PRINT "mir ein Loch zum Rausschauen in den"
meillo@3:       PRINT "Karton reissen. So ... uff, der ist zu"
meillo@3:       PRINT "stabil, da brauche ich ein Werkzeug dazu."
meillo@3:       print
meillo@3:       GOTO 132
meillo@3: 
meillo@3:     case "kartons"
meillo@3:       PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
meillo@3: 
meillo@3:     case "geheimgang"
meillo@3:       PRINT "Dafuer reicht die Zeit nicht."
meillo@3: 
meillo@3:     case "keller"
meillo@3:       PRINT "Dafuer reicht die Zeit nicht."
meillo@3: 
meillo@3:     case "umschauen", "untersuchen lagerhalle"
meillo@3:       COLOR 2
meillo@3:       PRINT "In der Lagerhalle ist alles genau so"
meillo@3:       PRINT "zerfallen, wie im Keller. Ueberall sind Kartons"
meillo@3:       PRINT "gestapelt. Gerade aus geht eine Tuer ins Freie."
meillo@3:       print
meillo@3: 
meillo@3:     case "untersuchen kartons"
meillo@3:       GOSUB 134
meillo@3: 
meillo@3:     case "q"
meillo@3:       END
meillo@3: 
meillo@3:     case else
meillo@3:       PRINT "Da habe ich zu wenig Zeit dafuer."
meillo@3: 
meillo@3:   end select
meillo@3: 
meillo@3:   v% = v% + 1
meillo@3:   IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
meillo@3:   IF v% > 8 THEN PRINT "Tipp: l..... K....."
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 134 :
meillo@2: 
meillo@1: COLOR 2
meillo@1: PRINT "Auf der linken Seite sind die vollen Kartons"
meillo@1: PRINT "gestapelt und rechts liegen die leeren auf"
meillo@1: PRINT "einem Haufen."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: RETURN
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 136 :
meillo@2: 
meillo@1: COLOR 2
meillo@1: IF messer% = 0 THEN
meillo@2:   PRINT "Ich habe kein Messer."
meillo@2:   PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
meillo@2:   PRINT "halben Stunde geht der Typ wieder. Ich"
meillo@2:   PRINT "begebe mich sofort zurueck ins Haus. So"
meillo@2:   PRINT "schlecht vorbereited begebe ich mich nicht"
meillo@2:   PRINT "wieder in Gefahr."
meillo@2:   PRINT
meillo@2:   do
meillo@2:   loop until inkey <> ""
meillo@2:   GOTO ort_arbeitszimmer
meillo@1: END IF
meillo@1: 
meillo@1: PRINT "Gute Idee, das mit dem Messer. Der Typ"
meillo@1: PRINT "faehrt jetzt mit seinem Kleinbus in die Halle."
meillo@1: PRINT "Er steigt aus und macht die Hecktueren auf."
meillo@1: PRINT "Nun laed er zwei Kartons in das Gefaehrt, er"
meillo@1: PRINT "schliesst die Tueren, steigt wieder ein und"
meillo@1: PRINT "faehrt hinaus."
meillo@1: PRINT "Uff, das haette ich geschafft. Jetzt bloss schnell"
meillo@1: PRINT "zurueck ins Haus."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: PRINT "Was machst du?"
meillo@1: PRINT ""
meillo@1: PRINT "a: nach Hause gehen"
meillo@1: PRINT "b: noch da bleiben"
meillo@1: PRINT "c: nochmal in die Lagerhalle gehen"
meillo@1: PRINT ""
meillo@1: INPUT "Und wie entscheidest du dich?", entscheidung$
meillo@1: PRINT
meillo@1: IF entscheidung$ = "a" GOTO 140
meillo@2: IF entscheidung$ = "b" GOTO ort_arbeitszimmer
meillo@1: IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 140 :
meillo@1: ''''''' Zuhause '''''''
meillo@2: 
meillo@2: COLOR 2
meillo@2: PRINT "Home sweet home - endlich wieder Zuhause!"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: a140:
meillo@2: 
meillo@1: PRINT "Du willst dir gerade einen Tee machen, als"
meillo@1: PRINT "Du einen Schlag an der Tuer hoerst und das"
meillo@1: PRINT "Licht aus geht."
meillo@1: PRINT ""
meillo@1: PRINT "Was machst du?"
meillo@1: PRINT "a: die Tuer oeffnen"
meillo@1: PRINT "b: die Polizei anrufen"
meillo@1: PRINT "c: dich unter dem Bett verstecken"
meillo@1: PRINT ""
meillo@1: INPUT "Und?", w$
meillo@1: PRINT
meillo@1: IF w$ = "a" GOTO 141
meillo@1: IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst loesen."
meillo@1: IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
meillo@1: GOTO a140
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 141 :
meillo@2: 
meillo@1: COLOR 2
meillo@1: PRINT
meillo@1: PRINT
meillo@1: PRINT "Du siehst gerade noch ein Auto"
meillo@1: PRINT "wegfahren. "
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: cls
meillo@1: LOCATE 17, 17
meillo@1: COLOR 15
meillo@1: PRINT "KA GR 48"
meillo@2: SLEEP 500
meillo@1: GOTO 142
meillo@1: 142 :
meillo@2: cls
meillo@1: COLOR 2
meillo@1: PRINT "In deiner Tuer steckt ein Messer mit"
meillo@1: PRINT "einer Botschaft. Du liest sie natuerlich"
meillo@1: PRINT "sofort."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@1: COLOR 11
meillo@1: PRINT "Wenn du dich einmischst"
meillo@1: PRINT "dann bist du  T O T !!!"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@1: COLOR 2
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT "Diese Botschaft war ernst gemeint."
meillo@1: PRINT "Aber als Privatdetektiv musst du dich"
meillo@1: PRINT "halt ueber solche Morddrohungen hinweg-"
meillo@1: PRINT "setzen. Deshalb rufst du sofort die"
meillo@1: PRINT "Polizei an."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@2: 
meillo@2: 
meillo@1: do
meillo@3:   COLOR 9
meillo@3:   PRINT ""
meillo@3:   PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
meillo@3:   PRINT "Laenger. Was kann ich fuer Sie tun?"
meillo@3:   PRINT
meillo@3:   PRINT
meillo@3:   COLOR 12
meillo@3:   PRINT "a: Ich moechte Anzeige gegen einen Mann"
meillo@3:   PRINT "   in einem gruenen Auto erstatten."
meillo@3:   PRINT
meillo@3:   PRINT "b: Ich moechte eine Pizza essen."
meillo@3:   PRINT
meillo@3:   PRINT "c: Ich moechte, dass Sie einen Mann"
meillo@3:   PRINT "   in einem gruenen Auto verhaften."
meillo@3:   COLOR 12
meillo@3:   INPUT "Was antwortest du? (a,b,c)", a$
meillo@3:   IF a$ = "a" THEN GOTO 144
meillo@3:   IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
meillo@3:   IF a$ = "c" THEN GOTO 144
meillo@3:   IF a$ = "q" THEN END
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 144 :
meillo@2: 
meillo@1: do
meillo@3:   COLOR 9
meillo@3:   PRINT ""
meillo@3:   PRINT "Wie heisst der Mann denn?"
meillo@3:   PRINT
meillo@3:   COLOR 12
meillo@3:   PRINT "a: Karl von Burlafingen."
meillo@3:   PRINT "b: Regideur Eklansch."
meillo@3:   PRINT "c: Ich kenne seinen Namen nicht."
meillo@3:   PRINT ""
meillo@3:   INPUT "Wie heisst er? (a,b,c)", w$
meillo@3:   PRINT ""
meillo@3:   IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
meillo@3:   IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
meillo@3:   IF w$ = "c" GOTO 145
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 145 :
meillo@2: 
meillo@1: do
meillo@3:   PRINT
meillo@3:   COLOR 9
meillo@3:   PRINT "Was fuer eine Autonummer hatte er denn?"
meillo@3:   PRINT
meillo@3:   PRINT
meillo@3:   COLOR 12
meillo@3:   PRINT "a: KS ET 26"
meillo@3:   PRINT
meillo@3:   PRINT "b: HS AB 37"
meillo@3:   PRINT
meillo@3:   PRINT "c: KA GR 48"
meillo@3:   PRINT
meillo@3:   PRINT
meillo@3:   COLOR 12
meillo@3:   INPUT "Welche Autonummer hatte er? (a,b,c)", a$
meillo@3:   PRINT
meillo@3:   IF a$ = "a" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
meillo@3:   IF a$ = "b" THEN PRINT "Du solltest dein Gedaechtnis verbessern!"
meillo@3:   IF a$ = "c" GOTO 146
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 146 :
meillo@2: 
meillo@1: COLOR 2
meillo@1: PRINT ""
meillo@1: PRINT "Der Polizist gab den guten Tip sofort"
meillo@1: PRINT "an seine Kollegen weiter. Er dankte"
meillo@1: PRINT "dir fuer die heisse Spur und du"
meillo@1: PRINT "verabschiedeste dich und giengst nach"
meillo@1: PRINT "Hause."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@1: PRINT ""
meillo@1: PRINT "Zwei Tage spaeter kam ein Brief vom"
meillo@1: PRINT "Polizeirevier:"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@1: COLOR 15
meillo@1: PRINT "Sehrgeehrter Herr "; name1$; ""
meillo@1: PRINT "dank Ihnen konnten wie eine ganze"
meillo@1: PRINT "Bande Waffenschieber dingfest machen."
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT "Ausfuehrlicher Bericht auf der naechsten"
meillo@1: PRINT "Seite."
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@1: PRINT ""
meillo@1: PRINT "Am Montag konnten wir den gruenen Audi"
meillo@1: PRINT "von Schaefer (so heisst der Bersitzer)"
meillo@1: PRINT "in der Karlsruher Innenstadt ausfindig"
meillo@1: PRINT "machen. Wir folgten ihm bis zu seinem"
meillo@1: PRINT "Hause. Dort umstellten wir es"
meillo@1: PRINT "und stuermten. Beim Verhoer gestand"
meillo@1: PRINT "er alles (Auftraggeber und alle"
meillo@1: PRINT "Mitglieder). Am naechsten Tag konnten"
meillo@1: PRINT "wir den Rest der Bande verhaften."
meillo@1: PRINT "Am naechsten Donnerstag wird Mayr, der"
meillo@1: PRINT "Boss der Truppe, wegen Mord an Karl"
meillo@1: PRINT ""
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@1: PRINT ""
meillo@1: PRINT "Mueller verurteilt. Auch die Anderen"
meillo@1: PRINT "werden wegen Beihilfe zum Mord vor"
meillo@1: PRINT "Gericht gestellt werden."
meillo@1: PRINT ""
meillo@1: PRINT "Ich muss nochmal meinen Dank an Sie"
meillo@1: PRINT "Aussprechen. Denn nur durch Sie konnten"
meillo@1: PRINT "wir diese gefaehrliche Bande stoppen"
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT ""
meillo@1: PRINT "            Polizeichef Mattias Huber"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@2: 
meillo@2: 
meillo@2: 
meillo@2: cls
meillo@1: LOCATE 13, 10
meillo@1: COLOR 13
meillo@1: PRINT "Du hast gewonnen!"
meillo@1: do
meillo@1: loop until inkey <> ""
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: END
meillo@1:          
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: inventar:
meillo@1: COLOR 5
meillo@2: PRINT "+-- Inventar -----------+"
meillo@2: PRINT "|                       |"
meillo@2: PRINT "|  Autoschluessel       |"
meillo@2: PRINT "|  200 Schilling        |"
meillo@2: IF tlampe% = 1 THEN     PRINT "|  Taschenlampe         |"
meillo@2: IF schluessel% = 1 THEN PRINT "|  Schluessel           |"
meillo@2: IF messer% = 1 THEN     PRINT "|  Messer               |"
meillo@2: IF kerzenst% = 1 THEN   PRINT "|  Kerzenstaender       |"
meillo@2: PRINT "|                       |"
meillo@2: PRINT "+-----------------------+"
meillo@3: color 7
meillo@1: RETURN
meillo@1: 
meillo@1: 
meillo@1: 
meillo@1: befehle:
meillo@2: COLOR 3
meillo@1: PRINT "Moegliche Befehle:"
meillo@1: PRINT ""
meillo@1: PRINT "umschauen"
meillo@1: PRINT "oeffnen <Objekt>"
meillo@1: PRINT "benutzen <Objekt>"
meillo@1: PRINT "untersuchen <Objekt>"
meillo@1: PRINT "sprechen mit <Person>"
meillo@1: PRINT "gehen (in) <Ort>"
meillo@1: PRINT "nehmen <Objekt>"
meillo@3: color 7
meillo@1: RETURN
meillo@1: