meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '  M             M                                                           '
meillo@0: '  MM           MM        I               D               D                  '
meillo@0: '  M M         M M        I               D               D                  '
meillo@0: '  M  M       M  M                        D               D                  '
meillo@0: '  M   M     M   M                        D               D                  '
meillo@0: '  M    M   M    M        I         DDDDD D         DDDDD D         SSSSS    '
meillo@0: '  M     M M     M        I        D     DD        D     DD        S     S   '
meillo@0: '  M      M      M        I       D       D       D       D       S          '
meillo@0: '  M             M        I       D       D       D       D        S         '
meillo@0: '  M             M        I       D       D       D       D         SSSS     '
meillo@0: '  M             M        I       D       D       D       D             S    '
meillo@0: '  M             M        I       D       D       D       D              S   '
meillo@0: '  M             M        I        D     DD        D     DD       S     S    '
meillo@0: '  M             M        I         DDDDD D         DDDDD D        SSSSS     '
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '============================================================================'
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '                                                                  
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '============================================================================'
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '                                                                            '
meillo@0: '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
meillo@0: '
meillo@0: '
meillo@0: '============================================================================'
meillo@0: '
meillo@0: '
meillo@0: 'Midds'
meillo@0: DECLARE SUB M ()
meillo@0: SCREEN 13
meillo@0: 
meillo@0: 
meillo@0: CLS
meillo@0: LOCATE 13, 6
meillo@0: COLOR 15
meillo@0: PRINT "*** Mord in der Dorfstraáe ***"
meillo@0: LINE (20, 60)-(300, 140), 2, B
meillo@0: LOCATE 24, 2
meillo@0: COLOR 7
meillo@0: PRINT "c Copyright 1999 Elefant Software"
meillo@0: CIRCLE (11, 180), 7, 7
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: raum = 0
meillo@0: name$ = "John Howell"
meillo@0: 
meillo@0: OPEN "c:midds1.ini" FOR INPUT AS #1
meillo@0: INPUT #1, poi
meillo@0: CLOSE
meillo@0: IF poi = 1 THEN GOTO 999 ELSE PRINT "Bitte installieren sie Midds."
meillo@0: 
meillo@0: 999 :
meillo@0: CLS
meillo@0: LOCATE 5, 1
meillo@0: COLOR 4
meillo@0: PRINT "Dies ist nicht die endg�ltige Version"
meillo@0: LOCATE 7, 1
meillo@0: PRINT "           von - MIDDS -"
meillo@0: LOCATE 10, 1
meillo@0: PRINT " Falls im Programm Fehler auftauchen"
meillo@0: LOCATE 12, 1
meillo@0: PRINT "   sollten wenden Sie sich bitte an"
meillo@0: LOCATE 14, 1
meillo@0: PRINT "         Elefant Software."
meillo@0: LOCATE 19, 1
meillo@0: PRINT " Elefant Software garantiert nur f�r"
meillo@0: LOCATE 21, 1
meillo@0: PRINT "        Fehler in - MIDDS -."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: 
meillo@0: 
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 14
meillo@0: INPUT "Cheat:    ", c$
meillo@0: IF c$ = "x" GOTO X
meillo@0: IF c$ = "t" GOTO 140
meillo@0: IF c$ = "q" THEN END
meillo@0: IF c$ = "Markus" GOTO xxxxx
meillo@0: CLS
meillo@0: 
meillo@0: CLS
meillo@0: COLOR 6
meillo@0: PRINT "Dies ist ein Kriminalspiel,"
meillo@0: PRINT "das die grauen Zellen fordert."
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: 
meillo@0: PRINT ""
meillo@0: PRINT "M”gliche Befehle:"
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: COLOR 3
meillo@0: PRINT "”ffnen"
meillo@0: PRINT ""
meillo@0: PRINT "benutzen"
meillo@0: PRINT ""
meillo@0: PRINT "untersuchen"
meillo@0: PRINT ""
meillo@0: PRINT "sprechen mit"
meillo@0: PRINT ""
meillo@0: PRINT "gehen (in)"
meillo@0: PRINT
meillo@0: PRINT "nehmen"
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: 
meillo@0: COLOR 6
meillo@0: PRINT
meillo@0: PRINT
meillo@0: PRINT "Dr�cke 'q' um das Spiel zu beenden."
meillo@0: PRINT
meillo@0: PRINT
meillo@0: PRINT "Dr�cke 'm' um zu erfahren, was du alles besitzt."
meillo@0: PRINT
meillo@0: PRINT
meillo@0: PRINT "Dr�cke 'b' um die Befehle noch einmal zusehen."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: 
meillo@0: 
meillo@0: X:
meillo@0: CLS
meillo@0: PRINT ""
meillo@0: LOCATE 13, 6
meillo@0: COLOR 6
meillo@0: PRINT "So jetzt geht's endlich los!!!"
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: GOTO 1
meillo@0: 
meillo@0: 1 :
meillo@0: zuege = 0
meillo@0: a1:
meillo@0: CLS
meillo@0: PRINT ""
meillo@0: COLOR 2
meillo@0: PRINT "Du heiát John Howell und bist"
meillo@0: PRINT
meillo@0: PRINT "Privatdetektiv. Du wurdest von "
meillo@0: PRINT
meillo@0: PRINT "Herr Fisch angerufen um einen Mord"
meillo@0: PRINT
meillo@0: PRINT "aufzukl„ren. Nat�rlich"
meillo@0: PRINT
meillo@0: PRINT "bist du sofort in deinen Renault 19"
meillo@0: PRINT
meillo@0: PRINT "gestiegen und losgefahren. Jetzt stehst"
meillo@0: PRINT
meillo@0: PRINT "du vor Haus Nummer 6 in der"
meillo@0: PRINT
meillo@0: PRINT "Dorfstraáe."
meillo@0: PRINT ""
meillo@0: COLOR 7
meillo@0: INPUT "Was machst du?", B$
meillo@0: zuege% = zuege% + 1
meillo@0: IF B$ = "benutzen Klingel" GOTO 2
meillo@0: IF B$ = "”ffnen T�r" THEN PRINT "Du kannst doch nicht einfach fremde  H„user betreten."
meillo@0: IF B$ = "”ffnen T�r" THEN SLEEP
meillo@0: IF B$ = "”ffnen T�r" GOTO a1
meillo@0: IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde  H„user betreten."
meillo@0: IF B$ = "gehen in Haus" THEN SLEEP
meillo@0: IF B$ = "gehen in Haus" GOTO a1
meillo@0: IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
meillo@0: IF B$ = "gehen Heim" GOTO a1
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: PRINT ""
meillo@0: PRINT "N”!"
meillo@0: PRINT ""
meillo@0: IF zuege% = 5 THEN GOTO a
meillo@0: IF zuege% = 9 THEN GOTO B
meillo@0: IF zuege% = 9 THEN GOTO 2
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a1
meillo@0: 
meillo@0: a:
meillo@0: COLOR 4
meillo@0: PRINT "          Tipp: benutzen ..."
meillo@0: SLEEP
meillo@0: GOTO a1
meillo@0: 
meillo@0: B:
meillo@0: COLOR 4
meillo@0: PRINT "          L”sung: benutzen Klingel"
meillo@0: SLEEP
meillo@0: CLS
meillo@0: GOTO 2
meillo@0: 
meillo@0: 2 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Herr Fisch ”ffnet die T�r und du stehst im Flur"
meillo@0: PRINT ""
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Flur"
meillo@0: raum = 1
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: zuege% = 0
meillo@0: GOTO 3
meillo@0: 
meillo@0: 3 :
meillo@0: CLS
meillo@0: IF kerzenst% = 1 GOTO 116
meillo@0: COLOR 2
meillo@0: PRINT "Herr Fisch ”ffnet die T�r und du stehst im Flur"
meillo@0: PRINT
meillo@0: COLOR 7
meillo@0: INPUT "Was machst du?", B$
meillo@0: zuege% = zuege% + 1
meillo@0: IF B$ = "sprechen mit Herr Fisch" GOTO 4
meillo@0: IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
meillo@0: IF B$ = "untersuchen Flur" GOTO 117
meillo@0: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0: IF B$ = "gehen in K�che" GOTO 109
meillo@0: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: IF B$ = "s" THEN GOSUB speichern
meillo@0: PRINT ""
meillo@0: PRINT "Keine Lust!"
meillo@0: PRINT ""
meillo@0: IF zuege% = 6 THEN GOTO c
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 3
meillo@0: 
meillo@0: c:
meillo@0: COLOR 4
meillo@0: PRINT "Tipp: sprechen mit ..."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: GOTO 3
meillo@0: 
meillo@0: 
meillo@0: 4 :
meillo@0: CLS
meillo@0: COLOR 9
meillo@0: PRINT "A: Ich heiáe "; name$; "."
meillo@0: PRINT ""
meillo@0: PRINT "B: Wo ist die Leiche?"
meillo@0: PRINT ""
meillo@0: PRINT "C: Wie heiát der Tote?"
meillo@0: PRINT ""
meillo@0: PRINT "D: Ende."
meillo@0: PRINT ""
meillo@0: COLOR 12
meillo@0: INPUT "Was sagst du?", s$
meillo@0: PRINT
meillo@0: COLOR 9
meillo@0: IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch."
meillo@0: IF s$ = "B" THEN PRINT "Im Schlafzimmer."
meillo@0: IF s$ = "B" THEN SLEEP
meillo@0: IF s$ = "B" GOTO 5
meillo@0: IF s$ = "C" THEN PRINT "Karl M�ller."
meillo@0: IF s$ = "D" THEN END
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 4
meillo@0: 
meillo@0: 5 :
meillo@0: CLS
meillo@0: COLOR 9
meillo@0: PRINT
meillo@0: PRINT "A: Ich heiáe "; name$; ""
meillo@0: PRINT ""
meillo@0: PRINT "B: Wo ist die Leiche?"
meillo@0: PRINT ""
meillo@0: PRINT "C: Wie heiát der Tote?"
meillo@0: PRINT
meillo@0: PRINT "D: Wo ist das Schlafzimmer?"
meillo@0: PRINT ""
meillo@0: PRINT "E: Ende"
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: COLOR 12
meillo@0: INPUT "Was sagst du?", s$
meillo@0: PRINT
meillo@0: COLOR 9
meillo@0: IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch."
meillo@0: IF s$ = "B" THEN PRINT "Im Schlafzimmer."
meillo@0: IF s$ = "C" THEN PRINT "Karl M�ller."
meillo@0: IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
meillo@0: IF s$ = "E" THEN GOTO 6
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 5
meillo@0: 
meillo@0: 6 :
meillo@0: CLS
meillo@0: zuege% = 0
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Flur"
meillo@0: raum = 2
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: a6:
meillo@0: CLS
meillo@0: COLOR 7
meillo@0: PRINT
meillo@0: IF kerzenst% = 1 GOTO 116
meillo@0: PRINT
meillo@0: INPUT "Was machst du?", B$
meillo@0: zuege% = zuege% + 1
meillo@0: IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@0: IF B$ = "gehen in Schlafzimmer" GOTO 7
meillo@0: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0: IF B$ = "gehen in K�cher" GOTO 109
meillo@0: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0: IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuá!"
meillo@0: IF B$ = "gehen Heim " GOTO a6
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: IF B$ = "s" THEN GOSUB speichern
meillo@0: PRINT ""
meillo@0: PRINT "Nee!"
meillo@0: IF zuege = 5 GOTO d
meillo@0: GOTO a6
meillo@0: 
meillo@0: d:
meillo@0: COLOR 4
meillo@0: PRINT "gehen in ..."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a6
meillo@0: 
meillo@0: 7 :
meillo@0: CLS
meillo@0: raum = 3
meillo@0: COLOR 2
meillo@0: PRINT "Die Leiche, ein etwa 20 Jahre alter"
meillo@0: PRINT
meillo@0: PRINT "Mann, liegt mit einem Messer im R�cken"
meillo@0: PRINT
meillo@0: PRINT "auf dem Bett. Ich decke die Leiche"
meillo@0: PRINT
meillo@0: PRINT "als erstes mit einem Tuch ab und rufe"
meillo@0: PRINT
meillo@0: PRINT "mit meinem Handy Tina an. Tina ist"
meillo@0: PRINT
meillo@0: PRINT "Spezialistin f�r Fingerabdr�cke."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 8
meillo@0: 
meillo@0: 8 :
meillo@0: CLS
meillo@0: PRINT
meillo@0: COLOR 7
meillo@0: INPUT "Was machst du?", B$
meillo@0: IF B$ = "gehen in Flur" GOTO 103
meillo@0: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0: IF B$ = "gehen in K�che" GOTO 109
meillo@0: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0: IF B$ = "untersuchen Schlafzimmer" GOTO 9
meillo@0: IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
meillo@0: IF B$ = "”ffnen Aktenschrank" GOTO 101
meillo@0: IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
meillo@0: IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Straáe."
meillo@0: IF B$ = "untersuchen Bett" GOTO 100
meillo@0: IF B$ = "nehmen Taschenlampe" GOTO e
meillo@0: IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
meillo@0: IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
meillo@0: IF B$ = "sprechen mit Tina" THEN PRINT "Die st”re ich lieber nicht bei der Arbeit."
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: IF B$ = "s" THEN GOSUB speichern
meillo@0: PRINT
meillo@0: PRINT "Nein"
meillo@0: PRINT
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 8
meillo@0: 
meillo@0: e:
meillo@0: CLS
meillo@0: PAINT (200, 5), 1
meillo@0: LINE (125, 75)-(300, 125), 16, BF
meillo@0: CIRCLE (125, 100), 45, 16
meillo@0: PAINT (124, 100), 16
meillo@0: LINE (80, 63)-(125, 137), 16, BF
meillo@0: LINE (80, 63)-(0, 50), 14
meillo@0: LINE (80, 137)-(0, 150), 14
meillo@0: LOCATE 11, 22
meillo@0: PRINT "Mag Lite"
meillo@0: tlampe% = 1
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: GOTO 8
meillo@0: 
meillo@0: 9 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "In der Mitte steht das Bett, �ber dem"
meillo@0: PRINT
meillo@0: PRINT "Bett h„ngt ein Poster, auf der"
meillo@0: PRINT
meillo@0: PRINT "linken Seite befindet sich ein Schrank"
meillo@0: PRINT
meillo@0: PRINT "und an der rechten Wand ist ein Fenster."
meillo@0: IF vvx% = 1 THEN PRINT "Tina sichert gerade"
meillo@0: IF vvx% = 1 THEN PRINT "die Fingerabdr�cke."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 8
meillo@0: 
meillo@0: 100 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Unter dem Bett liegt eine Taschenlampe."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 8
meillo@0: 
meillo@0: 101 :
meillo@0: CLS
meillo@0: versuch% = 0
meillo@0: COLOR 2
meillo@0: PRINT "Hinter den Ordnern ist ein Geheimfach"
meillo@0: PRINT
meillo@0: PRINT "mit einem dreistelligen Zahlenschloss."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: a101:
meillo@0: CLS
meillo@0: versuch% = versuch% + 1
meillo@0: COLOR 5
meillo@0: INPUT "Wie lautet die Kombination?", k$
meillo@0: IF k$ = "000" THEN PRINT "War wohl falsch."
meillo@0: IF k$ = "007" GOTO 102
meillo@0: IF k$ = "q" THEN END
meillo@0: PRINT "Komm streng dich ein bischen an!"
meillo@0: IF versuch% = 3 THEN PRINT "Tipp: Karl M�ller war Jean Connery Fan."
meillo@0: IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a101
meillo@0: 
meillo@0: 102 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Bravo, du hast echt gut kombiniert."
meillo@0: PRINT
meillo@0: PRINT "In dem Geheimfach befindet sich ein Schl�ssel."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: 
meillo@0: 
meillo@0: F:
meillo@0: CLS
meillo@0: PAINT (1, 1), 1
meillo@0: LINE (50, 80)-(60, 140), 14, BF
meillo@0: LINE (60, 80)-(70, 135), 14, BF
meillo@0: LINE (50, 80)-(200, 100), 14, BF
meillo@0: LINE (90, 80)-(100, 120), 14, BF
meillo@0: LINE (100, 80)-(110, 130), 14, BF
meillo@0: CIRCLE (240, 90), 50, 14
meillo@0: CIRCLE (240, 90), 30, 14
meillo@0: PAINT (240, 50), 14
meillo@0: schluessel% = 1
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: GOTO 114
meillo@0: 
meillo@0: 103 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Flur"
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 104
meillo@0: 
meillo@0: 104 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Links geht es die Treppe zum Schlafzimmer"
meillo@0: PRINT
meillo@0: PRINT "hinauf, gerade aus geht's ins Esszimmer"
meillo@0: PRINT
meillo@0: PRINT " und rechts ins Arbeitszimmer."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a6
meillo@0: 
meillo@0: 105 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Arbeitszimmer"
meillo@0: raum = 5
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: a105:
meillo@0: CLS
meillo@0: COLOR 7
meillo@0: INPUT "Was machst du?", B$
meillo@0: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0: IF B$ = "gehen in Flur" GOTO 103
meillo@0: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0: IF B$ = "gehen in K�che" GOTO 109
meillo@0: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0: IF B$ = "untersuchen Arbeitszimmer" GOTO 107
meillo@0: IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
meillo@0: IF B$ = "untersuchen B�cherregal" GOTO 122
meillo@0: IF B$ = "untersuchen Buch" THEN PRINT "Wenn's noch im Regal ist!?"
meillo@0: IF B$ = "nehmen Buch" GOTO 124
meillo@0: IF B$ = "benutzen Schl�ssel" THEN PRINT "Das Schl�sselschloss w„re geknackt."
meillo@0: IF B$ = "benutzen Schl�ssel" THEN sx% = 1
meillo@0: IF B$ = "benutzen Schl�ssel" GOTO 138
meillo@0: IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
meillo@0: IF B$ = "z" GOTO 125
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: IF B$ = "s" THEN GOSUB speichern
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: PRINT "Heute nicht!"
meillo@0: GOTO a105
meillo@0: 
meillo@0: 107 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "In der Mitte steht ein Schreibtisch,"
meillo@0: PRINT
meillo@0: PRINT "rechts befindet sich ein Schrank und"
meillo@0: PRINT
meillo@0: PRINT "links ein B�cherregal."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 105
meillo@0: 
meillo@0: 106 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Esszimmer"
meillo@0: raum = 6
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: a106:
meillo@0: CLS
meillo@0: COLOR 7
meillo@0: INPUT "Was machst du?", B$
meillo@0: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0: IF B$ = "gehen in Flur" GOTO 103
meillo@0: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0: IF B$ = "gehen in K�che" GOTO 109
meillo@0: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0: IF B$ = "untersuchen Esszimmer" GOTO 108
meillo@0: IF B$ = "untersuchen Tisch" GOTO 110
meillo@0: IF B$ = "nehmen Kerzenst„nder" GOTO 115
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: IF B$ = "s" THEN GOSUB speichern
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a106
meillo@0: 
meillo@0: 108 :
meillo@0: CLS
meillo@0: PRINT "In der Mitte steht der Tisch und auf"
meillo@0: PRINT
meillo@0: PRINT "der rechten Seite ist die T�r zur K�che."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 106
meillo@0: 
meillo@0: 110 :
meillo@0: CLS
meillo@0: PRINT "Ein sch”ner eichener Tisch mit einer"
meillo@0: PRINT
meillo@0: PRINT "geh„kelten Tischdecke und einem"
meillo@0: PRINT
meillo@0: PRINT "Kerzenst„nder in der Mitte."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a106
meillo@0: 
meillo@0: 109 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "K�che"
meillo@0: raum = 7
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: a109:
meillo@0: CLS
meillo@0: INPUT "Was machst du?", B$
meillo@0: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0: IF B$ = "gehen in Flur" GOTO 103
meillo@0: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0: IF B$ = "untersuchen K�che" GOTO 111
meillo@0: IF B$ = "untersuchen K�chenschrank" GOTO 112
meillo@0: IF B$ = "”ffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
meillo@0: IF B$ = "nehmen Messer" GOTO 113
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: IF B$ = "s" THEN GOSUB speichern
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a109
meillo@0: 
meillo@0: 111 :
meillo@0: CLS
meillo@0: PRINT "Links ist die Kochzeile, in der Mitte"
meillo@0: PRINT
meillo@0: PRINT "ein kleiner Tisch mit zwei St�hlen und"
meillo@0: PRINT
meillo@0: PRINT "rechts der K�chenschrank."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a109
meillo@0: 
meillo@0: 112 :
meillo@0: CLS
meillo@0: PRINT "Es ist nichts Ausergew”hnliches daran"
meillo@0: PRINT
meillo@0: PRINT "zu erkennen, nur eine Schublade in der"
meillo@0: PRINT
meillo@0: PRINT "es bestimmt interesantes zu entdecken gibt."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a109
meillo@0: 
meillo@0: 113 :
meillo@0: CLS
meillo@0: LINE (90, 70)-(180, 110), 7, BF
meillo@0: LINE (50, 70)-(90, 70), 7
meillo@0: LINE (50, 70)-(90, 110), 7
meillo@0: PAINT (80, 80), 7
meillo@0: LINE (180, 40)-(200, 140), 8, BF
meillo@0: LINE (201, 70)-(250, 110), 6, BF
meillo@0: CIRCLE (250, 90), 24, 6
meillo@0: PAINT (260, 80), 6
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: messer% = 1
meillo@0: GOTO a109
meillo@0: 
meillo@0: 114 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Schlafzimmer"
meillo@0: raum = 8
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 8
meillo@0: 
meillo@0: 115 :
meillo@0: CLS
meillo@0: LINE (120, 20)-(200, 20), 7
meillo@0: LINE (120, 20)-(140, 40), 7
meillo@0: LINE (200, 20)-(180, 40), 7
meillo@0: LINE (150, 50)-(170, 130), 7, BF
meillo@0: LINE (130, 150)-(190, 180), 7, BF
meillo@0: LINE (130, 160)-(100, 190), 7
meillo@0: LINE (100, 190)-(220, 190), 7
meillo@0: LINE (220, 190)-(190, 160), 7
meillo@0: CIRCLE (160, 40), 20, 7
meillo@0: CIRCLE (160, 150), 30, 7
meillo@0: PAINT (140, 30), 7
meillo@0: PAINT (180, 30), 7
meillo@0: PAINT (160, 45), 7
meillo@0: PAINT (160, 140), 7
meillo@0: PAINT (160, 185), 7
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: kerzenst% = 1
meillo@0: GOTO a106
meillo@0: 
meillo@0: 116 :
meillo@0: CLS
meillo@0: COLOR 7
meillo@0: INPUT "Was machst du?", B$
meillo@0: zuege% = zuege% + 1
meillo@0: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0: IF B$ = "gehen in K�che" GOTO 109
meillo@0: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0: IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@0: IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
meillo@0: IF B$ = "untersuchen Flur" GOTO 117
meillo@0: IF B$ = "sprechen mit Tina" GOTO 118
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: PRINT ""
meillo@0: PRINT "Keine Lust!"
meillo@0: PRINT ""
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 116
meillo@0: 
meillo@0: 117 :
meillo@0: CLS
meillo@0: IF kerzenst% = 0 GOTO 121
meillo@0: PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
meillo@0: PRINT
meillo@0: PRINT "gerade aus geht's ins Esszimmer und rechts ins"
meillo@0: PRINT
meillo@0: PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
meillo@0: PRINT
meillo@0: PRINT "gerade klingelt es an der T�r. Herr Fisch macht"
meillo@0: PRINT
meillo@0: PRINT "auf und Tina kommt herein."
meillo@0: vvv% = 1
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 116
meillo@0: 
meillo@0: 118 :
meillo@0: CLS
meillo@0: COLOR 9
meillo@0: PRINT "A: Sch”n, dass du so schnell gekommen bist."
meillo@0: PRINT
meillo@0: PRINT "B: Der Tote liegt im Schlafzimmer."
meillo@0: PRINT
meillo@0: PRINT "C: Ende."
meillo@0: LOCATE 8, 1
meillo@0: COLOR 12
meillo@0: INPUT "Was sagst du?", s$
meillo@0: PRINT
meillo@0: COLOR 9
meillo@0: IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
meillo@0: IF s$ = "B" GOTO 119
meillo@0: IF s$ = "C" GOTO 116
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 118
meillo@0: 
meillo@0: 119 :
meillo@0: CLS
meillo@0: COLOR 9
meillo@0: PRINT "Okay, aber wo ist das Schlafzimmer?"
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 120
meillo@0: 
meillo@0: 120 :
meillo@0: CLS
meillo@0: COLOR 12
meillo@0: PRINT "Welchen Weg beschreibst du ihr?"
meillo@0: PRINT
meillo@0: PRINT "a: Links die Treppe hinauf."
meillo@0: PRINT
meillo@0: PRINT "b: Rechts die Treppe hinunter."
meillo@0: PRINT
meillo@0: PRINT "c: Die Treppe hinauf, dann links."
meillo@0: PRINT
meillo@0: INPUT "a, b oder c?", w$
meillo@0: PRINT
meillo@0: COLOR 2
meillo@0: IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Ged„chtnis!"
meillo@0: IF w$ = "c" THEN cheat1 = 1
meillo@0: IF w$ = "a" THEN PRINT "Leider falsch.Die richtige L”sung war c."
meillo@0: IF w$ = "b" THEN PRINT "Leider falsch.Die richtige L”sung war c."
meillo@0: vvx% = 1
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 116
meillo@0: 
meillo@0: 121 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Links geht es die Treppe zum Schlafzimmer"
meillo@0: PRINT
meillo@0: PRINT "hinauf, gerade aus geht's ins Esszimmer und"
meillo@0: PRINT
meillo@0: PRINT "rechts ins Arbeitszimmer. Im Flur steht"
meillo@0: PRINT
meillo@0: PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 116
meillo@0: 
meillo@0: 122 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: IF vvx% = 1 GOTO 123
meillo@0: PRINT "Ich sehe nichts Besonderes."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 105
meillo@0: 
meillo@0: 123 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Da hat's ja ein Buch mit 123 Reiseerz„hlungen"
meillo@0: PRINT
meillo@0: PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
meillo@0: PRINT
meillo@0: PRINT "ich mir genauer anschauen."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 105
meillo@0: 
meillo@0: 124 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Das Buch l„sst sich nur halb heraus ziehen."
meillo@0: PRINT
meillo@0: PRINT "Pl”tzlich schwenkt das ganze B�cherregal zur"
meillo@0: PRINT
meillo@0: PRINT "Seite und dhinter kommt eine T�r zum Vorschein."
meillo@0: PRINT
meillo@0: PRINT "Sie ist durch ein Schl�ssel- und ein "
meillo@0: PRINT
meillo@0: PRINT "Zahlenschloss gesichert."
meillo@0: PRINT
meillo@0: COLOR 6
meillo@0: PRINT "Wenn du im Arbeitszimmer z dr�ckst, kannst du"
meillo@0: PRINT
meillo@0: PRINT "die Zahlenkombination eingeben."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 105
meillo@0: 
meillo@0: 125 :
meillo@0: zkx% = 0
meillo@0: a125:
meillo@0: CLS
meillo@0: zkx% = zkx% + 1
meillo@0: COLOR 5
meillo@0: INPUT "Wie lautet die Kombination?", zk$
meillo@0: IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
meillo@0: IF zk$ = "123" GOTO 126
meillo@0: IF zk$ = "q" GOTO 105
meillo@0: PRINT "Leider falsch. Probier's noch einmal."
meillo@0: IF zkx% = 5 THEN PRINT "Tipp: Das B�cherregal."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a125
meillo@0: 
meillo@0: 126 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Die Kombination war richtig."
meillo@0: kx% = 1
meillo@0: IF sx% = 1 GOTO 137
meillo@0: PRINT "Jetzt musst du nur noch das Schl�sselschloss ”ffnen."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 105
meillo@0: 
meillo@0: 137 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "So, die T�r ist jetzt offen. Dahinter befindet"
meillo@0: PRINT
meillo@0: PRINT "sich ein Geheimgang."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 105
meillo@0: 
meillo@0: 138 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: IF kx% = 1 GOTO 137
meillo@0: PRINT "Jetzt musst du nur noch die Kombination knacken."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 105
meillo@0: 
meillo@0: 127 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: IF tlampe% = 0 GOTO 105
meillo@0: 1000 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Geheimgang"
meillo@0: raum = 12
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Gut, dass ich eine Taschenlampe dabei habe."
meillo@0: PRINT
meillo@0: PRINT "Oh, es geht steil bergab .... ich muss schon"
meillo@0: PRINT
meillo@0: PRINT "mindestens 5 Meter unter der Erdoberfl„che"
meillo@0: PRINT
meillo@0: PRINT "sein .... Jetzt bin ich schon 10 Minuten"
meillo@0: PRINT
meillo@0: PRINT "unterwegs ..... da vorne kommt eine T�r"
meillo@0: PRINT
meillo@0: PRINT "genau so gesichert wie die hinter dem Regal"
meillo@0: PRINT
meillo@0: PRINT "gut, dass ich den Schl�ssel habe und den"
meillo@0: PRINT
meillo@0: PRINT "Code kenne ..... Wo bin ich denn jetzt?"
meillo@0: PRINT
meillo@0: PRINT "Sieht aus, wie der Keller eines Hauses"
meillo@0: PRINT
meillo@0: PRINT "ist aber ganz sch”n zerfallen."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 130
meillo@0: 
meillo@0: 130 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Keller"
meillo@0: raum = 9
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: a130:
meillo@0: CLS
meillo@0: COLOR 7
meillo@0: INPUT "Was machst du?", B$
meillo@0: zuege% = zuege% + 1
meillo@0: IF B$ = "gehen in Flur" GOTO 103
meillo@0: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0: IF B$ = "gehen in K�che" GOTO 109
meillo@0: IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
meillo@0: IF B$ = "sprechen mit Herr Fisch" GOTO 5
meillo@0: IF B$ = "untersuchen Keller" GOTO 128
meillo@0: IF B$ = "benutzen Treppe" GOTO 132
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: IF B$ = "s" THEN GOSUB speichern
meillo@0: PRINT ""
meillo@0: PRINT "Jetzt nicht."
meillo@0: PRINT
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a130
meillo@0: 
meillo@0: 128 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Ein zerfallener Keller, alles verstaubt."
meillo@0: PRINT
meillo@0: PRINT "Gerade aus geht eine Treppe nach oben."
meillo@0: PRINT
meillo@0: PRINT ""
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 130
meillo@0: 
meillo@0: 
meillo@0: 131 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "In der Lagerhalle ist alles genau so"
meillo@0: PRINT
meillo@0: PRINT "zerfallen, wie im Keller. šberall sind Kartons"
meillo@0: PRINT
meillo@0: PRINT "gestapelt. Gerade aus geht eine T�r ins Freie."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: RETURN
meillo@0: 
meillo@0: 132 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Lagerhalle"
meillo@0: raum = 10
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: a132:
meillo@0: CLS
meillo@0: COLOR 7
meillo@0: INPUT "Was machst du?", B$
meillo@0: zuege% = zuege% + 1
meillo@0: IF B$ = "gehen in Schlafzimmer" GOTO 114
meillo@0: IF B$ = "gehen in Arbeitszimmer" GOTO 105
meillo@0: IF B$ = "gehen in Esszimmer" GOTO 106
meillo@0: IF B$ = "gehen in K�che" GOTO 109
meillo@0: IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
meillo@0: IF B$ = "”ffnen T�r" GOTO 133
meillo@0: IF B$ = "untersuchen Kartons" THEN GOSUB 134
meillo@0: IF B$ = "benutzen Messer" GOTO 136
meillo@0: IF B$ = "q" THEN END
meillo@0: IF B$ = "m" THEN GOSUB yy
meillo@0: IF B$ = "b" THEN GOSUB yx
meillo@0: IF B$ = "s" THEN GOSUB speichern
meillo@0: PRINT ""
meillo@0: PRINT "N”!"
meillo@0: PRINT
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a132
meillo@0: 
meillo@0: 133 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Die T�r ist mit einem Zahlenschloss verschlossen,"
meillo@0: PRINT
meillo@0: PRINT "aber man kann die T�r einen Spalt weit aufdr�cken."
meillo@0: PRINT
meillo@0: PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
meillo@0: PRINT
meillo@0: PRINT "auf mich zuf„hrt. Ich kann gerade noch zur Seite"
meillo@0: PRINT
meillo@0: PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
meillo@0: PRINT
meillo@0: PRINT "Jetzt ist schnelles Handeln wichtig!"
meillo@0: PRINT
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: a133:
meillo@0: COLOR 7
meillo@0: INPUT "Wo versteckst du dich? In ", v$
meillo@0: v% = v% + 1
meillo@0: IF v$ = "leerem Karton" GOTO 135
meillo@0: IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
meillo@0: IF v$ = "Geheimgang" THEN PRINT "Daf�r reicht die Zeit nicht."
meillo@0: IF v$ = "Keller" THEN PRINT "Daf�r reicht die Zeit nicht."
meillo@0: IF v$ = " untersuchen Lagerhalle" THEN GOSUB 131
meillo@0: IF v$ = "untersuchen Kartons" THEN GOSUB 134
meillo@0: IF v$ = "q" THEN END
meillo@0: IF v% = 9 THEN PRINT "Tipp: l..... K....."
meillo@0: IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
meillo@0: PRINT "Da habe ich zu wenig Zeit daf�r."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO a133
meillo@0: 
meillo@0: 134 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Auf der linken Seite sind die vollen Kartons"
meillo@0: PRINT
meillo@0: PRINT "gestapelt und rechts liegen die leeren auf"
meillo@0: PRINT
meillo@0: PRINT "einem Haufen."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: RETURN
meillo@0: 
meillo@0: 135 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "Das ist eine gute Idee. Ich mache mich"
meillo@0: PRINT
meillo@0: PRINT "sofort an die Arbeit. Raschel, raschel"
meillo@0: PRINT
meillo@0: PRINT "... uff ... so ... geich ... jetzt ..."
meillo@0: PRINT
meillo@0: PRINT "Okay ich hab's geschafft. Jetzt kann"
meillo@0: PRINT
meillo@0: PRINT "ich nur nichts mehr sehen. Ich sollte"
meillo@0: PRINT
meillo@0: PRINT "mir ein Loch zum Rausschauen in den"
meillo@0: PRINT
meillo@0: PRINT "Karton reiáen. So ... uff, der ist zu"
meillo@0: PRINT
meillo@0: PRINT "stabil, da brauche ich ein Werkzeug dazu."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 132
meillo@0: 
meillo@0: 136 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: IF messer% = 0 THEN PRINT "Ich habe kein Messer."
meillo@0: IF messer% = 0 THEN PRINT
meillo@0: IF messer% = 0 THEN PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
meillo@0: IF messer% = 0 THEN PRINT
meillo@0: IF messer% = 0 THEN PRINT "halben Stunde geht der Typ wieder. Ich"
meillo@0: IF messer% = 0 THEN PRINT
meillo@0: IF messer% = 0 THEN PRINT "begebe mich sofort zur�ck ins Haus. So"
meillo@0: IF messer% = 0 THEN PRINT
meillo@0: IF messer% = 0 THEN PRINT "schlecht vorbereited begebe ich mich nicht"
meillo@0: IF messer% = 0 THEN PRINT
meillo@0: IF messer% = 0 THEN PRINT "wieder in Gefahr."
meillo@0: IF messer% = 0 THEN PRINT
meillo@0: IF messer% = 0 THEN SLEEP
meillo@0: IF messer% = 0 THEN PRINT
meillo@0: IF messer% = 0 THEN INPUT "", nzl
meillo@0: IF messer% = 0 THEN PRINT
meillo@0: IF messer% = 0 GOTO 105
meillo@0: PRINT "Gute Idee, das mit dem Messer. Der Typ"
meillo@0: PRINT
meillo@0: PRINT "f„hrt jetzt mit seinem Kleinbus in die Halle."
meillo@0: PRINT
meillo@0: PRINT "Er steigt aus und macht die Heckt�ren auf."
meillo@0: PRINT
meillo@0: PRINT "Nun l„d er zwei Kartons in das Gef„hrt, er"
meillo@0: PRINT
meillo@0: PRINT "schlieát die T�ren, steigt wieder ein und"
meillo@0: PRINT
meillo@0: PRINT "f„hrt hinaus."
meillo@0: PRINT
meillo@0: PRINT "Uff, das h„tte ich geschafft. Jetzt bloá schnell"
meillo@0: PRINT
meillo@0: PRINT "zur�ck ins Haus."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 139
meillo@0: 
meillo@0: 139 :
meillo@0: CLS
meillo@0: PRINT "Was machst du?"
meillo@0: PRINT ""
meillo@0: PRINT "a: nach Hause gehen"
meillo@0: PRINT ""
meillo@0: PRINT "b: noch da bleiben"
meillo@0: PRINT ""
meillo@0: PRINT "c: nochmal in die Lagerhalle gehen"
meillo@0: PRINT ""
meillo@0: INPUT "Und wie entscheidest du dich?", entscheidung$
meillo@0: PRINT
meillo@0: IF entscheidung$ = "a" GOTO 140
meillo@0: IF entscheidung$ = "b" GOTO 105
meillo@0: IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"
meillo@0: 
meillo@0: 140 :
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 10
meillo@0: PRINT "Zuhause"
meillo@0: raum = 11
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: a140:
meillo@0: CLS
meillo@0: PRINT "Du willst dir gerade einen Tee machen, als"
meillo@0: PRINT ""
meillo@0: PRINT "Du einen Schlag an der T�r h”rst und das"
meillo@0: PRINT ""
meillo@0: PRINT "Licht aus geht."
meillo@0: PRINT ""
meillo@0: PRINT "Was machst du?"
meillo@0: PRINT ""
meillo@0: PRINT "a: die T�r ”ffnen"
meillo@0: PRINT ""
meillo@0: PRINT "b: die Polizei anrufen"
meillo@0: PRINT ""
meillo@0: PRINT "c: dich unter dem Bett verstecken"
meillo@0: PRINT ""
meillo@0: INPUT "Und?", w$
meillo@0: PRINT
meillo@0: IF w$ = "a" GOTO 141
meillo@0: IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst l”sen."
meillo@0: IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
meillo@0: GOTO a140
meillo@0: 
meillo@0: 141 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT
meillo@0: PRINT
meillo@0: PRINT "Du siehst gerade noch ein Auto"
meillo@0: PRINT
meillo@0: PRINT "wegfahren. "
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: LINE (70, 100)-(250, 150), 2, BF
meillo@0: LINE (70, 100)-(90, 60), 2
meillo@0: LINE (71, 100)-(91, 60), 2
meillo@0: LINE (250, 100)-(230, 60), 2
meillo@0: LINE (249, 100)-(229, 60), 2
meillo@0: CIRCLE (115, 78), 12, 6
meillo@0: PAINT (115, 78), 6
meillo@0: LINE (90, 90)-(140, 99), 1, BF
meillo@0: LINE (90, 90)-(85, 99), 1
meillo@0: LINE (145, 99)-(140, 90), 1
meillo@0: LINE (85, 99)-(90, 99), 1
meillo@0: LINE (145, 99)-(140, 99), 1
meillo@0: PAINT (89, 98), 1
meillo@0: PAINT (141, 98), 1
meillo@0: LINE (230, 60)-(90, 62), 2, BF
meillo@0: LINE (100, 75)-(130, 90), 7, BF
meillo@0: LINE (190, 75)-(220, 90), 7, BF
meillo@0: LINE (90, 95)-(140, 99), 7, BF
meillo@0: LINE (180, 95)-(230, 99), 7, BF
meillo@0: LINE (105, 91)-(105, 94), 8
meillo@0: LINE (125, 91)-(125, 94), 8
meillo@0: LINE (195, 91)-(195, 94), 8
meillo@0: LINE (215, 91)-(215, 94), 8
meillo@0: CIRCLE (80, 110), 7, 4
meillo@0: PAINT (80, 110), 4
meillo@0: CIRCLE (80, 110), 7, 0
meillo@0: CIRCLE (240, 110), 7, 4
meillo@0: PAINT (240, 110), 4
meillo@0: CIRCLE (240, 110), 7, 0
meillo@0: CIRCLE (80, 130), 7, 14
meillo@0: PAINT (80, 130), 14
meillo@0: CIRCLE (80, 130), 7, 0
meillo@0: CIRCLE (240, 130), 7, 14
meillo@0: PAINT (240, 130), 14
meillo@0: CIRCLE (240, 130), 7, 0
meillo@0: LINE (80, 151)-(100, 170), 8, BF
meillo@0: LINE (220, 151)-(240, 170), 8, BF
meillo@0: LINE (125, 126)-(194, 136), 0, BF
meillo@0: LINE (125, 126)-(194, 136), 15, B
meillo@0: LOCATE 17, 17
meillo@0: COLOR 15
meillo@0: PRINT "KA GR 48"
meillo@0: LINE (150, 67)-(170, 72), 7, BF
meillo@0: LINE (149, 66)-(171, 73), 8, B
meillo@0: LINE (159, 63)-(161, 65), 8, BF
meillo@0: LINE (1, 170)-(320, 200), 7, BF
meillo@0: bghbgh = 0
meillo@0: DO
meillo@0: bghbgh = bghbgh + 1
meillo@0: LOOP UNTIL bghbgh = 180000
meillo@0: GOTO 142
meillo@0: 142 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT "In deiner T�r steckt ein Messer mit"
meillo@0: PRINT ""
meillo@0: PRINT "einer Botschaft. Du liest sie nat�rlich"
meillo@0: PRINT
meillo@0: PRINT "sofort."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: LINE (55, 30)-(275, 170), 11, B
meillo@0: COLOR 11
meillo@0: LOCATE 10, 10
meillo@0: PRINT "Wenn du dich einmischst"
meillo@0: LOCATE 15, 10
meillo@0: PRINT "dann bist du  T O T !!!"
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT "Diese Botschaft war ernst gemeint."
meillo@0: PRINT ""
meillo@0: PRINT "Aber als Privatdetektiv musst du dich"
meillo@0: PRINT ""
meillo@0: PRINT "halt �ber solche Morddrohungen hinweg-"
meillo@0: PRINT ""
meillo@0: PRINT "setzen. Deshalb rufst du sofort die"
meillo@0: PRINT ""
meillo@0: PRINT "Polizei an."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 143
meillo@0: 143 :
meillo@0: CLS
meillo@0: COLOR 9
meillo@0: PRINT ""
meillo@0: PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
meillo@0: PRINT ""
meillo@0: PRINT "L„nger. Was kann ich f�r Sie tun?"
meillo@0: PRINT
meillo@0: PRINT
meillo@0: COLOR 12
meillo@0: PRINT "a: Ich m”chte Anzeige gegen einen Mann"
meillo@0: PRINT
meillo@0: PRINT "   in einem gr�nen Auto erstatten."
meillo@0: PRINT
meillo@0: PRINT "b: Ich m”chte eine Pizza essen."
meillo@0: PRINT ""
meillo@0: PRINT "c: Ich m”chte, dass Sie einen Mann"
meillo@0: PRINT ""
meillo@0: PRINT "   in einem gr�nen Auto verhaften."
meillo@0: LOCATE 20, 1
meillo@0: COLOR 12
meillo@0: INPUT "Was antwortest du? (a,b,c)", a$
meillo@0: IF a$ = "a" THEN GOTO 144
meillo@0: IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
meillo@0: IF a$ = "c" THEN GOTO 144
meillo@0: IF a$ = "q" THEN END
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 143
meillo@0: 
meillo@0: 144 :
meillo@0: CLS
meillo@0: COLOR 9
meillo@0: PRINT ""
meillo@0: PRINT "Wie heiát der Mann denn?"
meillo@0: PRINT
meillo@0: COLOR 12
meillo@0: PRINT "a: Karl von Burlafingen."
meillo@0: PRINT ""
meillo@0: PRINT "b: Regid�r Eklansch."
meillo@0: PRINT ""
meillo@0: PRINT "c: Ich kenne seinen Namen nicht."
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: INPUT "Wie heiát er? (a,b,c)", w$
meillo@0: PRINT ""
meillo@0: IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
meillo@0: IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
meillo@0: IF w$ = "c" GOTO 145
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 144
meillo@0: 
meillo@0: 145 :
meillo@0: CLS
meillo@0: PRINT ""
meillo@0: COLOR 9
meillo@0: PRINT "Was f�r eine Autonummer hatte er denn?"
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: COLOR 12
meillo@0: PRINT "a: KS ET 26"
meillo@0: PRINT ""
meillo@0: PRINT "b: HS AB 37"
meillo@0: PRINT ""
meillo@0: PRINT "c: KA GR 48"
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: COLOR 12
meillo@0: INPUT "Welche Autonummer hatte er? (a,b,c)", a$
meillo@0: PRINT ""
meillo@0: IF a$ = "a" THEN PRINT "Du solltest dein Ged„chtnis verbessern!"
meillo@0: IF a$ = "b" THEN PRINT "Du solltest dein Ged„chtnis verbessern!"
meillo@0: IF a$ = "c" GOTO 146
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: GOTO 145
meillo@0: 
meillo@0: 146 :
meillo@0: CLS
meillo@0: COLOR 2
meillo@0: PRINT ""
meillo@0: PRINT "Der Polizist gab den guten Tip sofort"
meillo@0: PRINT ""
meillo@0: PRINT "an seine Kollegen weiter. Er dankte"
meillo@0: PRINT ""
meillo@0: PRINT "dir f�r die heiáe Spur und du"
meillo@0: PRINT ""
meillo@0: PRINT "verabschiedeste dich und giengst nach"
meillo@0: PRINT ""
meillo@0: PRINT "Hause."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: PRINT ""
meillo@0: PRINT "Zwei Tage sp„ter kam ein Brief vom"
meillo@0: PRINT ""
meillo@0: PRINT "Polizeirevier:"
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: LOCATE 4, 1
meillo@0: COLOR 15
meillo@0: PRINT "Sehrgeehrter Herr "; name$; ""
meillo@0: PRINT ""
meillo@0: PRINT "dank Ihnen konnten wie eine ganze"
meillo@0: PRINT ""
meillo@0: PRINT "Bande Waffenschieber dingfest machen."
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT "Ausf�hrlicher Bericht auf der n„chsten"
meillo@0: PRINT ""
meillo@0: PRINT "Seite."
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: PRINT ""
meillo@0: PRINT "Am Montag konnten wir den gr�nen Audi"
meillo@0: PRINT ""
meillo@0: PRINT "von Sch„fer (so heiát der Bersitzer)"
meillo@0: PRINT ""
meillo@0: PRINT "in der Karlsruher Innenstadt ausfindig"
meillo@0: PRINT ""
meillo@0: PRINT "machen. Wir folgten ihm bis zu seinem"
meillo@0: PRINT ""
meillo@0: PRINT "Hause. Dort umstellten wir es"
meillo@0: PRINT ""
meillo@0: PRINT "und st�rmten. Beim Verh”r gestand"
meillo@0: PRINT ""
meillo@0: PRINT "er alles (Auftraggeber und alle"
meillo@0: PRINT ""
meillo@0: PRINT "Mitglieder). Am n„chsten Tag konnten"
meillo@0: PRINT ""
meillo@0: PRINT "wir den Rest der Bande verhaften."
meillo@0: PRINT ""
meillo@0: PRINT "Am n„chsten Donnerstag wird Mayr, der"
meillo@0: PRINT ""
meillo@0: PRINT "Boss der Truppe, wegen Mord an Karl"
meillo@0: PRINT ""
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: PRINT ""
meillo@0: PRINT "M�ller verurteilt. Auch die Anderen"
meillo@0: PRINT ""
meillo@0: PRINT "werden wegen Beihilfe zum Mord vor"
meillo@0: PRINT ""
meillo@0: PRINT "Gericht gestellt werden."
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT "Ich muss nochmal meinen Dank an Sie"
meillo@0: PRINT ""
meillo@0: PRINT "Aussprechen. Denn nur durch Sie konnten"
meillo@0: PRINT ""
meillo@0: PRINT "wir diese gef„hrliche Bande stoppen"
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: PRINT "            Polizeichef Mattias Huber"
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: CLS
meillo@0: LOCATE 13, 10
meillo@0: COLOR 13
meillo@0: PRINT "Sie haben gewonnen!"
meillo@0: SLEEP
meillo@0: INPUT "", nzl
meillo@0: COLOR 15
meillo@0: 
meillo@0: GOTO xxxxx
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: END
meillo@0:          
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: yy:
meillo@0: CLS
meillo@0: PRINT
meillo@0: PRINT
meillo@0: COLOR 5
meillo@0: PRINT "Hausschl�ssel"
meillo@0: PRINT "200 Schilling"
meillo@0: IF tlampe% = 1 THEN PRINT "Taschenlampe"
meillo@0: IF schluessel% = 1 THEN PRINT "Schl�ssel"
meillo@0: IF messer% = 1 THEN PRINT "Messer"
meillo@0: IF kerzenst% = 1 THEN PRINT "Kerzenst„nder"
meillo@0: IF seil% = 1 THEN PRINT "Seil"
meillo@0: RETURN
meillo@0: 
meillo@0: xxxxx:
meillo@0: 
meillo@0: v = 4
meillo@0: vv = 1
meillo@0: LOCATE 13, 10
meillo@0: CLS
meillo@0: LINE (79, 40)-(215, 40), v
meillo@0: LINE (79, 40)-(49, 70), v
meillo@0: LINE (245, 70)-(215, 40), v
meillo@0: LINE (245, 70)-(147, 168), v
meillo@0: LINE (49, 70)-(147, 168), v
meillo@0: LINE (80, 39)-(215, 39), v
meillo@0: LINE (79, 39)-(49, 69), v
meillo@0: LINE (246, 70)-(215, 39), v
meillo@0: LINE (246, 70)-(147, 169), v
meillo@0: LINE (48, 70)-(147, 169), v
meillo@0: PAINT (100, 42), vv, v
meillo@0: LOCATE 11, 13
meillo@0: COLOR 14
meillo@0: PRINT "Super  Markus"
meillo@0: SLEEP
meillo@0: END
meillo@0: 
meillo@0: yx:
meillo@0: PRINT ""
meillo@0: PRINT "M”gliche Befehle:"
meillo@0: PRINT ""
meillo@0: PRINT ""
meillo@0: COLOR 3
meillo@0: PRINT "”ffnen"
meillo@0: PRINT ""
meillo@0: PRINT "benutzen"
meillo@0: PRINT ""
meillo@0: PRINT "untersuchen"
meillo@0: PRINT ""
meillo@0: PRINT "sprechen mit"
meillo@0: PRINT ""
meillo@0: PRINT "gehen (in)"
meillo@0: PRINT
meillo@0: PRINT "nehmen"
meillo@0: RETURN
meillo@0: 
meillo@0: n:
meillo@0: CLS
meillo@0: LOCATE 12, 5
meillo@0: COLOR 11
meillo@0: PRINT "Neuer Name f�r Held", name$
meillo@0: OPEN "c:midds1" FOR INPUT AS #1
meillo@0: INPUT #1, name$
meillo@0: CLOSE
meillo@0: RETURN
meillo@0: 
meillo@0: speichern:
meillo@0: RETURN
meillo@0: 
meillo@0: SUB M
meillo@0: PRINT
meillo@0: PRINT
meillo@0: COLOR 5
meillo@0: PRINT "Hausschl�ssel"
meillo@0: PRINT "200 Schilling"
meillo@0: IF tlampe% = 1 THEN PRINT "Taschenlampe"
meillo@0: IF schluessel% = 1 THEN PRINT "Schl�ssel"
meillo@0: IF messer% = 1 THEN PRINT "Messer"
meillo@0: IF kerzenst% = 1 THEN PRINT "Kerzenst„nder"
meillo@0: IF seil% = 1 THEN PRINT "Seil"
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: END SUB
meillo@0: