Mercurial > midds

'                                                                            '
'                                                                            '
'  M             M                                                           '
'  MM           MM        I               D               D                  '
'  M M         M M        I               D               D                  '
'  M  M       M  M                        D               D                  '
'  M   M     M   M                        D               D                  '
'  M    M   M    M        I         DDDDD D         DDDDD D         SSSSS    '
'  M     M M     M        I        D     DD        D     DD        S     S   '
'  M      M      M        I       D       D       D       D       S          '
'  M             M        I       D       D       D       D        S         '
'  M             M        I       D       D       D       D         SSSS     '
'  M             M        I       D       D       D       D             S    '
'  M             M        I       D       D       D       D              S   '
'  M             M        I        D     DD        D     DD       S     S    '
'  M             M        I         DDDDD D         DDDDD D        SSSSS     '
'                                                                            '
'                                                                            '
'============================================================================'
'                                                                            '
'                                                                            '
'                                                                            '
'                                                                            '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'       UM DIESES SPIEL ZU STARTEN, DRšCKEN SIE BITTE  - SHIFT + F5 -        '
'                                                                            '
'                                                                            '
'                                                                            '
'                                                                            '
'============================================================================'
'                                                                            '
'                                                                            '
'                                                                            '
'
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'  WENN SIE JETZT WEITER LESEN, DANN VERDERBEN SIE SICH DEN SPASS AM SPIEL ! '
'
'
'============================================================================'
'
'
'Midds'
DECLARE SUB M ()
SCREEN 13


CLS
LOCATE 13, 6
COLOR 15
PRINT "*** Mord in der Dorfstraáe ***"
LINE (20, 60)-(300, 140), 2, B
LOCATE 24, 2
COLOR 7
PRINT "c Copyright 1999 Elefant Software"
CIRCLE (11, 180), 7, 7
SLEEP
INPUT "", nzl
CLS
raum = 0
name$ = "John Howell"

OPEN "c:midds1.ini" FOR INPUT AS #1
INPUT #1, poi
CLOSE
IF poi = 1 THEN GOTO 999 ELSE PRINT "Bitte installieren sie Midds."

999 :
CLS
LOCATE 5, 1
COLOR 4
PRINT "Dies ist nicht die endgltige Version"
LOCATE 7, 1
PRINT "           von - MIDDS -"
LOCATE 10, 1
PRINT " Falls im Programm Fehler auftauchen"
LOCATE 12, 1
PRINT "   sollten wenden Sie sich bitte an"
LOCATE 14, 1
PRINT "         Elefant Software."
LOCATE 19, 1
PRINT " Elefant Software garantiert nur fr"
LOCATE 21, 1
PRINT "        Fehler in - MIDDS -."
SLEEP
INPUT "", nzl


CLS
LOCATE 13, 10
COLOR 14
INPUT "Cheat:    ", c$
IF c$ = "x" GOTO X
IF c$ = "t" GOTO 140
IF c$ = "q" THEN END
IF c$ = "Markus" GOTO xxxxx
CLS

CLS
COLOR 6
PRINT "Dies ist ein Kriminalspiel,"
PRINT "das die grauen Zellen fordert."
PRINT ""
PRINT ""
SLEEP
INPUT "", nzl
CLS

PRINT ""
PRINT "M”gliche Befehle:"
PRINT ""
PRINT ""
COLOR 3
PRINT "”ffnen"
PRINT ""
PRINT "benutzen"
PRINT ""
PRINT "untersuchen"
PRINT ""
PRINT "sprechen mit"
PRINT ""
PRINT "gehen (in)"
PRINT
PRINT "nehmen"
SLEEP
INPUT "", nzl
CLS

COLOR 6
PRINT
PRINT
PRINT "Drcke 'q' um das Spiel zu beenden."
PRINT
PRINT
PRINT "Drcke 'm' um zu erfahren, was du alles besitzt."
PRINT
PRINT
PRINT "Drcke 'b' um die Befehle noch einmal zusehen."
SLEEP
INPUT "", nzl


X:
CLS
PRINT ""
LOCATE 13, 6
COLOR 6
PRINT "So jetzt geht's endlich los!!!"
SLEEP
INPUT "", nzl
CLS
GOTO 1

1 :
zuege = 0
a1:
CLS
PRINT ""
COLOR 2
PRINT "Du heiát John Howell und bist"
PRINT
PRINT "Privatdetektiv. Du wurdest von "
PRINT
PRINT "Herr Fisch angerufen um einen Mord"
PRINT
PRINT "aufzukl„ren. Natrlich"
PRINT
PRINT "bist du sofort in deinen Renault 19"
PRINT
PRINT "gestiegen und losgefahren. Jetzt stehst"
PRINT
PRINT "du vor Haus Nummer 6 in der"
PRINT
PRINT "Dorfstraáe."
PRINT ""
COLOR 7
INPUT "Was machst du?", B$
zuege% = zuege% + 1
IF B$ = "benutzen Klingel" GOTO 2
IF B$ = "”ffnen Tr" THEN PRINT "Du kannst doch nicht einfach fremde  H„user betreten."
IF B$ = "”ffnen Tr" THEN SLEEP
IF B$ = "”ffnen Tr" GOTO a1
IF B$ = "gehen in Haus" THEN PRINT "Du kannst doch nicht einfach fremde  H„user betreten."
IF B$ = "gehen in Haus" THEN SLEEP
IF B$ = "gehen in Haus" GOTO a1
IF B$ = "gehen Heim" THEN PRINT "Du Angsthase"
IF B$ = "gehen Heim" GOTO a1
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
PRINT ""
PRINT "N”!"
PRINT ""
IF zuege% = 5 THEN GOTO a
IF zuege% = 9 THEN GOTO B
IF zuege% = 9 THEN GOTO 2
SLEEP
INPUT "", nzl
GOTO a1

a:
COLOR 4
PRINT "          Tipp: benutzen ..."
SLEEP
GOTO a1

B:
COLOR 4
PRINT "          L”sung: benutzen Klingel"
SLEEP
CLS
GOTO 2

2 :
CLS
COLOR 2
PRINT "Herr Fisch ”ffnet die Tr und du stehst im Flur"
PRINT ""
SLEEP
INPUT "", nzl
CLS
LOCATE 13, 10
COLOR 10
PRINT "Flur"
raum = 1
SLEEP
INPUT "", nzl
zuege% = 0
GOTO 3

3 :
CLS
IF kerzenst% = 1 GOTO 116
COLOR 2
PRINT "Herr Fisch ”ffnet die Tr und du stehst im Flur"
PRINT
COLOR 7
INPUT "Was machst du?", B$
zuege% = zuege% + 1
IF B$ = "sprechen mit Herr Fisch" GOTO 4
IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
IF B$ = "untersuchen Flur" GOTO 117
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
IF B$ = "s" THEN GOSUB speichern
PRINT ""
PRINT "Keine Lust!"
PRINT ""
IF zuege% = 6 THEN GOTO c
SLEEP
INPUT "", nzl
GOTO 3

c:
COLOR 4
PRINT "Tipp: sprechen mit ..."
SLEEP
INPUT "", nzl
CLS
GOTO 3


4 :
CLS
COLOR 9
PRINT "A: Ich heiáe "; name$; "."
PRINT ""
PRINT "B: Wo ist die Leiche?"
PRINT ""
PRINT "C: Wie heiát der Tote?"
PRINT ""
PRINT "D: Ende."
PRINT ""
COLOR 12
INPUT "Was sagst du?", s$
PRINT
COLOR 9
IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch."
IF s$ = "B" THEN PRINT "Im Schlafzimmer."
IF s$ = "B" THEN SLEEP
IF s$ = "B" GOTO 5
IF s$ = "C" THEN PRINT "Karl Mller."
IF s$ = "D" THEN END
SLEEP
INPUT "", nzl
GOTO 4

5 :
CLS
COLOR 9
PRINT
PRINT "A: Ich heiáe "; name$; ""
PRINT ""
PRINT "B: Wo ist die Leiche?"
PRINT ""
PRINT "C: Wie heiát der Tote?"
PRINT
PRINT "D: Wo ist das Schlafzimmer?"
PRINT ""
PRINT "E: Ende"
PRINT ""
PRINT ""
COLOR 12
INPUT "Was sagst du?", s$
PRINT
COLOR 9
IF s$ = "A" THEN PRINT "Ich heiáe Manfred Fisch."
IF s$ = "B" THEN PRINT "Im Schlafzimmer."
IF s$ = "C" THEN PRINT "Karl Mller."
IF s$ = "D" THEN PRINT "Die Treppe hinauf dann links."
IF s$ = "E" THEN GOTO 6
SLEEP
INPUT "", nzl
GOTO 5

6 :
CLS
zuege% = 0
LOCATE 13, 10
COLOR 10
PRINT "Flur"
raum = 2
SLEEP
INPUT "", nzl
a6:
CLS
COLOR 7
PRINT
IF kerzenst% = 1 GOTO 116
PRINT
INPUT "Was machst du?", B$
zuege% = zuege% + 1
IF B$ = "sprechen mit Herr Fisch" GOTO 5
IF B$ = "gehen in Schlafzimmer" GOTO 7
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kcher" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "gehen Heim " THEN PRINT "Du Hasenfuá!"
IF B$ = "gehen Heim " GOTO a6
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
IF B$ = "s" THEN GOSUB speichern
PRINT ""
PRINT "Nee!"
IF zuege = 5 GOTO d
GOTO a6

d:
COLOR 4
PRINT "gehen in ..."
SLEEP
INPUT "", nzl
GOTO a6

7 :
CLS
raum = 3
COLOR 2
PRINT "Die Leiche, ein etwa 20 Jahre alter"
PRINT
PRINT "Mann, liegt mit einem Messer im Rcken"
PRINT
PRINT "auf dem Bett. Ich decke die Leiche"
PRINT
PRINT "als erstes mit einem Tuch ab und rufe"
PRINT
PRINT "mit meinem Handy Tina an. Tina ist"
PRINT
PRINT "Spezialistin fr Fingerabdrcke."
SLEEP
INPUT "", nzl
GOTO 8

8 :
CLS
PRINT
COLOR 7
INPUT "Was machst du?", B$
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "untersuchen Schlafzimmer" GOTO 9
IF B$ = "untersuchen Schrank" THEN PRINT "Ein alter Aktenschrank."
IF B$ = "”ffnen Aktenschrank" GOTO 101
IF B$ = "untersuchen Fenster" THEN PRINT "Wenn man hinaus schaut,"
IF B$ = "untersuchen Fenster" THEN PRINT "sieht man die Straáe."
IF B$ = "untersuchen Bett" GOTO 100
IF B$ = "nehmen Taschenlampe" GOTO e
IF B$ = "untersuchen Poster" THEN PRINT "Da steht - Sean Connery als James Bond"
IF B$ = "untersuchen Poster" THEN PRINT "in SAG NIEMALS NIE - drauf."
IF B$ = "sprechen mit Tina" THEN PRINT "Die st”re ich lieber nicht bei der Arbeit."
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
IF B$ = "s" THEN GOSUB speichern
PRINT
PRINT "Nein"
PRINT
SLEEP
INPUT "", nzl
GOTO 8

e:
CLS
PAINT (200, 5), 1
LINE (125, 75)-(300, 125), 16, BF
CIRCLE (125, 100), 45, 16
PAINT (124, 100), 16
LINE (80, 63)-(125, 137), 16, BF
LINE (80, 63)-(0, 50), 14
LINE (80, 137)-(0, 150), 14
LOCATE 11, 22
PRINT "Mag Lite"
tlampe% = 1
SLEEP
INPUT "", nzl
CLS
GOTO 8

9 :
CLS
COLOR 2
PRINT "In der Mitte steht das Bett, ber dem"
PRINT
PRINT "Bett h„ngt ein Poster, auf der"
PRINT
PRINT "linken Seite befindet sich ein Schrank"
PRINT
PRINT "und an der rechten Wand ist ein Fenster."
IF vvx% = 1 THEN PRINT "Tina sichert gerade"
IF vvx% = 1 THEN PRINT "die Fingerabdrcke."
SLEEP
INPUT "", nzl
GOTO 8

100 :
CLS
COLOR 2
PRINT "Unter dem Bett liegt eine Taschenlampe."
SLEEP
INPUT "", nzl
GOTO 8

101 :
CLS
versuch% = 0
COLOR 2
PRINT "Hinter den Ordnern ist ein Geheimfach"
PRINT
PRINT "mit einem dreistelligen Zahlenschloss."
SLEEP
INPUT "", nzl
a101:
CLS
versuch% = versuch% + 1
COLOR 5
INPUT "Wie lautet die Kombination?", k$
IF k$ = "000" THEN PRINT "War wohl falsch."
IF k$ = "007" GOTO 102
IF k$ = "q" THEN END
PRINT "Komm streng dich ein bischen an!"
IF versuch% = 3 THEN PRINT "Tipp: Karl Mller war Jean Connery Fan."
IF versuch% = 6 THEN PRINT "Tipp: Denk an das Poster."
SLEEP
INPUT "", nzl
GOTO a101

102 :
CLS
COLOR 2
PRINT "Bravo, du hast echt gut kombiniert."
PRINT
PRINT "In dem Geheimfach befindet sich ein Schlssel."
SLEEP
INPUT "", nzl


F:
CLS
PAINT (1, 1), 1
LINE (50, 80)-(60, 140), 14, BF
LINE (60, 80)-(70, 135), 14, BF
LINE (50, 80)-(200, 100), 14, BF
LINE (90, 80)-(100, 120), 14, BF
LINE (100, 80)-(110, 130), 14, BF
CIRCLE (240, 90), 50, 14
CIRCLE (240, 90), 30, 14
PAINT (240, 50), 14
schluessel% = 1
SLEEP
INPUT "", nzl
CLS
GOTO 114

103 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Flur"
SLEEP
INPUT "", nzl
GOTO 104

104 :
CLS
COLOR 2
PRINT "Links geht es die Treppe zum Schlafzimmer"
PRINT
PRINT "hinauf, gerade aus geht's ins Esszimmer"
PRINT
PRINT " und rechts ins Arbeitszimmer."
SLEEP
INPUT "", nzl
GOTO a6

105 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Arbeitszimmer"
raum = 5
SLEEP
INPUT "", nzl
a105:
CLS
COLOR 7
INPUT "Was machst du?", B$
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "untersuchen Arbeitszimmer" GOTO 107
IF B$ = "untersuchen Schreibtisch" THEN PRINT "Da gibt's nichts Besonderes zu sehen."
IF B$ = "untersuchen Bcherregal" GOTO 122
IF B$ = "untersuchen Buch" THEN PRINT "Wenn's noch im Regal ist!?"
IF B$ = "nehmen Buch" GOTO 124
IF B$ = "benutzen Schlssel" THEN PRINT "Das Schlsselschloss w„re geknackt."
IF B$ = "benutzen Schlssel" THEN sx% = 1
IF B$ = "benutzen Schlssel" GOTO 138
IF B$ = "gehen in Geheimgang" AND kx% = 1 AND sx% = 1 GOTO 127
IF B$ = "z" GOTO 125
IF B$ = "m" THEN GOSUB yy
IF B$ = "q" THEN END
IF B$ = "b" THEN GOSUB yx
IF B$ = "s" THEN GOSUB speichern
SLEEP
INPUT "", nzl
PRINT "Heute nicht!"
GOTO a105

107 :
CLS
COLOR 2
PRINT "In der Mitte steht ein Schreibtisch,"
PRINT
PRINT "rechts befindet sich ein Schrank und"
PRINT
PRINT "links ein Bcherregal."
SLEEP
INPUT "", nzl
GOTO 105

106 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Esszimmer"
raum = 6
SLEEP
INPUT "", nzl
a106:
CLS
COLOR 7
INPUT "Was machst du?", B$
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Kche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "untersuchen Esszimmer" GOTO 108
IF B$ = "untersuchen Tisch" GOTO 110
IF B$ = "nehmen Kerzenst„nder" GOTO 115
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
IF B$ = "s" THEN GOSUB speichern
SLEEP
INPUT "", nzl
GOTO a106

108 :
CLS
PRINT "In der Mitte steht der Tisch und auf"
PRINT
PRINT "der rechten Seite ist die Tr zur Kche."
SLEEP
INPUT "", nzl
GOTO 106

110 :
CLS
PRINT "Ein sch”ner eichener Tisch mit einer"
PRINT
PRINT "geh„kelten Tischdecke und einem"
PRINT
PRINT "Kerzenst„nder in der Mitte."
SLEEP
INPUT "", nzl
GOTO a106

109 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Kche"
raum = 7
SLEEP
INPUT "", nzl
a109:
CLS
INPUT "Was machst du?", B$
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "untersuchen Kche" GOTO 111
IF B$ = "untersuchen Kchenschrank" GOTO 112
IF B$ = "”ffnen Schublade" THEN PRINT "In der Schublade liegt sich ein Messer."
IF B$ = "nehmen Messer" GOTO 113
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
IF B$ = "s" THEN GOSUB speichern
SLEEP
INPUT "", nzl
GOTO a109

111 :
CLS
PRINT "Links ist die Kochzeile, in der Mitte"
PRINT
PRINT "ein kleiner Tisch mit zwei Sthlen und"
PRINT
PRINT "rechts der Kchenschrank."
SLEEP
INPUT "", nzl
GOTO a109

112 :
CLS
PRINT "Es ist nichts Ausergew”hnliches daran"
PRINT
PRINT "zu erkennen, nur eine Schublade in der"
PRINT
PRINT "es bestimmt interesantes zu entdecken gibt."
SLEEP
INPUT "", nzl
GOTO a109

113 :
CLS
LINE (90, 70)-(180, 110), 7, BF
LINE (50, 70)-(90, 70), 7
LINE (50, 70)-(90, 110), 7
PAINT (80, 80), 7
LINE (180, 40)-(200, 140), 8, BF
LINE (201, 70)-(250, 110), 6, BF
CIRCLE (250, 90), 24, 6
PAINT (260, 80), 6
SLEEP
INPUT "", nzl
CLS
messer% = 1
GOTO a109

114 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Schlafzimmer"
raum = 8
SLEEP
INPUT "", nzl
GOTO 8

115 :
CLS
LINE (120, 20)-(200, 20), 7
LINE (120, 20)-(140, 40), 7
LINE (200, 20)-(180, 40), 7
LINE (150, 50)-(170, 130), 7, BF
LINE (130, 150)-(190, 180), 7, BF
LINE (130, 160)-(100, 190), 7
LINE (100, 190)-(220, 190), 7
LINE (220, 190)-(190, 160), 7
CIRCLE (160, 40), 20, 7
CIRCLE (160, 150), 30, 7
PAINT (140, 30), 7
PAINT (180, 30), 7
PAINT (160, 45), 7
PAINT (160, 140), 7
PAINT (160, 185), 7
SLEEP
INPUT "", nzl
CLS
kerzenst% = 1
GOTO a106

116 :
CLS
COLOR 7
INPUT "Was machst du?", B$
zuege% = zuege% + 1
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "sprechen mit Herr Fisch" GOTO 5
IF B$ = "gehen Heim" THEN PRINT "Du Angsthase!"
IF B$ = "untersuchen Flur" GOTO 117
IF B$ = "sprechen mit Tina" GOTO 118
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
PRINT ""
PRINT "Keine Lust!"
PRINT ""
SLEEP
INPUT "", nzl
GOTO 116

117 :
CLS
IF kerzenst% = 0 GOTO 121
PRINT "Links geht es die Treppe zum Schlafzimmer hinauf,"
PRINT
PRINT "gerade aus geht's ins Esszimmer und rechts ins"
PRINT
PRINT "Arbeitszimmer. Im Flur steht Herr Fisch und ..."
PRINT
PRINT "gerade klingelt es an der Tr. Herr Fisch macht"
PRINT
PRINT "auf und Tina kommt herein."
vvv% = 1
SLEEP
INPUT "", nzl
GOTO 116

118 :
CLS
COLOR 9
PRINT "A: Sch”n, dass du so schnell gekommen bist."
PRINT
PRINT "B: Der Tote liegt im Schlafzimmer."
PRINT
PRINT "C: Ende."
LOCATE 8, 1
COLOR 12
INPUT "Was sagst du?", s$
PRINT
COLOR 9
IF s$ = "A" THEN PRINT "Ich habe mich sofort auf den Weg gemacht."
IF s$ = "B" GOTO 119
IF s$ = "C" GOTO 116
SLEEP
INPUT "", nzl
GOTO 118

119 :
CLS
COLOR 9
PRINT "Okay, aber wo ist das Schlafzimmer?"
SLEEP
INPUT "", nzl
GOTO 120

120 :
CLS
COLOR 12
PRINT "Welchen Weg beschreibst du ihr?"
PRINT
PRINT "a: Links die Treppe hinauf."
PRINT
PRINT "b: Rechts die Treppe hinunter."
PRINT
PRINT "c: Die Treppe hinauf, dann links."
PRINT
INPUT "a, b oder c?", w$
PRINT
COLOR 2
IF w$ = "c" THEN PRINT "Bravo, du hast ein gutes Ged„chtnis!"
IF w$ = "c" THEN cheat1 = 1
IF w$ = "a" THEN PRINT "Leider falsch.Die richtige L”sung war c."
IF w$ = "b" THEN PRINT "Leider falsch.Die richtige L”sung war c."
vvx% = 1
SLEEP
INPUT "", nzl
GOTO 116

121 :
CLS
COLOR 2
PRINT "Links geht es die Treppe zum Schlafzimmer"
PRINT
PRINT "hinauf, gerade aus geht's ins Esszimmer und"
PRINT
PRINT "rechts ins Arbeitszimmer. Im Flur steht"
PRINT
PRINT "Herr Fisch und beantwortet gern alle deine Fragen."
SLEEP
INPUT "", nzl
GOTO 116

122 :
CLS
COLOR 2
IF vvx% = 1 GOTO 123
PRINT "Ich sehe nichts Besonderes."
SLEEP
INPUT "", nzl
GOTO 105

123 :
CLS
COLOR 2
PRINT "Da hat's ja ein Buch mit 123 Reiseerz„hlungen"
PRINT
PRINT "von Karl May, meinem Leiblingsautor. Das sollte"
PRINT
PRINT "ich mir genauer anschauen."
SLEEP
INPUT "", nzl
GOTO 105

124 :
CLS
COLOR 2
PRINT "Das Buch l„sst sich nur halb heraus ziehen."
PRINT
PRINT "Pl”tzlich schwenkt das ganze Bcherregal zur"
PRINT
PRINT "Seite und dhinter kommt eine Tr zum Vorschein."
PRINT
PRINT "Sie ist durch ein Schlssel- und ein "
PRINT
PRINT "Zahlenschloss gesichert."
PRINT
COLOR 6
PRINT "Wenn du im Arbeitszimmer z drckst, kannst du"
PRINT
PRINT "die Zahlenkombination eingeben."
SLEEP
INPUT "", nzl
GOTO 105

125 :
zkx% = 0
a125:
CLS
zkx% = zkx% + 1
COLOR 5
INPUT "Wie lautet die Kombination?", zk$
IF zk$ = "007" THEN PRINT "So einfach ist es nicht"
IF zk$ = "123" GOTO 126
IF zk$ = "q" GOTO 105
PRINT "Leider falsch. Probier's noch einmal."
IF zkx% = 5 THEN PRINT "Tipp: Das Bcherregal."
SLEEP
INPUT "", nzl
GOTO a125

126 :
CLS
COLOR 2
PRINT "Die Kombination war richtig."
kx% = 1
IF sx% = 1 GOTO 137
PRINT "Jetzt musst du nur noch das Schlsselschloss ”ffnen."
SLEEP
INPUT "", nzl
GOTO 105

137 :
CLS
COLOR 2
PRINT "So, die Tr ist jetzt offen. Dahinter befindet"
PRINT
PRINT "sich ein Geheimgang."
SLEEP
INPUT "", nzl
GOTO 105

138 :
CLS
COLOR 2
IF kx% = 1 GOTO 137
PRINT "Jetzt musst du nur noch die Kombination knacken."
SLEEP
INPUT "", nzl
GOTO 105

127 :
CLS
COLOR 2
IF tlampe% = 0 THEN PRINT "Da geh' ich ohne Licht nicht rein."
SLEEP
INPUT "", nzl
IF tlampe% = 0 GOTO 105
1000 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Geheimgang"
raum = 12
SLEEP
INPUT "", nzl
CLS
COLOR 2
PRINT "Gut, dass ich eine Taschenlampe dabei habe."
PRINT
PRINT "Oh, es geht steil bergab .... ich muss schon"
PRINT
PRINT "mindestens 5 Meter unter der Erdoberfl„che"
PRINT
PRINT "sein .... Jetzt bin ich schon 10 Minuten"
PRINT
PRINT "unterwegs ..... da vorne kommt eine Tr"
PRINT
PRINT "genau so gesichert wie die hinter dem Regal"
PRINT
PRINT "gut, dass ich den Schlssel habe und den"
PRINT
PRINT "Code kenne ..... Wo bin ich denn jetzt?"
PRINT
PRINT "Sieht aus, wie der Keller eines Hauses"
PRINT
PRINT "ist aber ganz sch”n zerfallen."
SLEEP
INPUT "", nzl
GOTO 130

130 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Keller"
raum = 9
SLEEP
INPUT "", nzl
a130:
CLS
COLOR 7
INPUT "Was machst du?", B$
zuege% = zuege% + 1
IF B$ = "gehen in Flur" GOTO 103
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kche" GOTO 109
IF B$ = "gehen in Lagerhalle" AND kx% = 1 AND sx% = 1 GOTO 132
IF B$ = "sprechen mit Herr Fisch" GOTO 5
IF B$ = "untersuchen Keller" GOTO 128
IF B$ = "benutzen Treppe" GOTO 132
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
IF B$ = "s" THEN GOSUB speichern
PRINT ""
PRINT "Jetzt nicht."
PRINT
SLEEP
INPUT "", nzl
GOTO a130

128 :
CLS
COLOR 2
PRINT "Ein zerfallener Keller, alles verstaubt."
PRINT
PRINT "Gerade aus geht eine Treppe nach oben."
PRINT
PRINT ""
SLEEP
INPUT "", nzl
GOTO 130


131 :
CLS
COLOR 2
PRINT "In der Lagerhalle ist alles genau so"
PRINT
PRINT "zerfallen, wie im Keller. šberall sind Kartons"
PRINT
PRINT "gestapelt. Gerade aus geht eine Tr ins Freie."
SLEEP
INPUT "", nzl
RETURN

132 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Lagerhalle"
raum = 10
SLEEP
INPUT "", nzl
CLS
a132:
CLS
COLOR 7
INPUT "Was machst du?", B$
zuege% = zuege% + 1
IF B$ = "gehen in Schlafzimmer" GOTO 114
IF B$ = "gehen in Arbeitszimmer" GOTO 105
IF B$ = "gehen in Esszimmer" GOTO 106
IF B$ = "gehen in Kche" GOTO 109
IF B$ = "untersuchen Lagerhalle" THEN GOSUB 131
IF B$ = "”ffnen Tr" GOTO 133
IF B$ = "untersuchen Kartons" THEN GOSUB 134
IF B$ = "benutzen Messer" GOTO 136
IF B$ = "q" THEN END
IF B$ = "m" THEN GOSUB yy
IF B$ = "b" THEN GOSUB yx
IF B$ = "s" THEN GOSUB speichern
PRINT ""
PRINT "N”!"
PRINT
SLEEP
INPUT "", nzl
GOTO a132

133 :
CLS
COLOR 2
PRINT "Die Tr ist mit einem Zahlenschloss verschlossen,"
PRINT
PRINT "aber man kann die Tr einen Spalt weit aufdrcken."
PRINT
PRINT "Als ich hinaus schaue sehe ich wie ein Kleinbus"
PRINT
PRINT "auf mich zuf„hrt. Ich kann gerade noch zur Seite"
PRINT
PRINT "hechten ohne, dass mich die Scheinwerfer erreichen."
PRINT
PRINT "Jetzt ist schnelles Handeln wichtig!"
PRINT
SLEEP
INPUT "", nzl
a133:
COLOR 7
INPUT "Wo versteckst du dich? In ", v$
v% = v% + 1
IF v$ = "leerem Karton" GOTO 135
IF v$ = "Kartons" THEN PRINT "Ich kann mich doch nicht in vollen Kartons verstecken."
IF v$ = "Geheimgang" THEN PRINT "Dafr reicht die Zeit nicht."
IF v$ = "Keller" THEN PRINT "Dafr reicht die Zeit nicht."
IF v$ = " untersuchen Lagerhalle" THEN GOSUB 131
IF v$ = "untersuchen Kartons" THEN GOSUB 134
IF v$ = "q" THEN END
IF v% = 9 THEN PRINT "Tipp: l..... K....."
IF v% = 5 THEN PRINT "Tipp: Schau dir die Lagerhalle noch einmal genau an."
PRINT "Da habe ich zu wenig Zeit dafr."
SLEEP
INPUT "", nzl
GOTO a133

134 :
CLS
COLOR 2
PRINT "Auf der linken Seite sind die vollen Kartons"
PRINT
PRINT "gestapelt und rechts liegen die leeren auf"
PRINT
PRINT "einem Haufen."
SLEEP
INPUT "", nzl
RETURN

135 :
CLS
COLOR 2
PRINT "Das ist eine gute Idee. Ich mache mich"
PRINT
PRINT "sofort an die Arbeit. Raschel, raschel"
PRINT
PRINT "... uff ... so ... geich ... jetzt ..."
PRINT
PRINT "Okay ich hab's geschafft. Jetzt kann"
PRINT
PRINT "ich nur nichts mehr sehen. Ich sollte"
PRINT
PRINT "mir ein Loch zum Rausschauen in den"
PRINT
PRINT "Karton reiáen. So ... uff, der ist zu"
PRINT
PRINT "stabil, da brauche ich ein Werkzeug dazu."
SLEEP
INPUT "", nzl
GOTO 132

136 :
CLS
COLOR 2
IF messer% = 0 THEN PRINT "Ich habe kein Messer."
IF messer% = 0 THEN PRINT
IF messer% = 0 THEN PRINT "Ich sitze weiterhin im Dunkeln. Nach einer"
IF messer% = 0 THEN PRINT
IF messer% = 0 THEN PRINT "halben Stunde geht der Typ wieder. Ich"
IF messer% = 0 THEN PRINT
IF messer% = 0 THEN PRINT "begebe mich sofort zurck ins Haus. So"
IF messer% = 0 THEN PRINT
IF messer% = 0 THEN PRINT "schlecht vorbereited begebe ich mich nicht"
IF messer% = 0 THEN PRINT
IF messer% = 0 THEN PRINT "wieder in Gefahr."
IF messer% = 0 THEN PRINT
IF messer% = 0 THEN SLEEP
IF messer% = 0 THEN PRINT
IF messer% = 0 THEN INPUT "", nzl
IF messer% = 0 THEN PRINT
IF messer% = 0 GOTO 105
PRINT "Gute Idee, das mit dem Messer. Der Typ"
PRINT
PRINT "f„hrt jetzt mit seinem Kleinbus in die Halle."
PRINT
PRINT "Er steigt aus und macht die Hecktren auf."
PRINT
PRINT "Nun l„d er zwei Kartons in das Gef„hrt, er"
PRINT
PRINT "schlieát die Tren, steigt wieder ein und"
PRINT
PRINT "f„hrt hinaus."
PRINT
PRINT "Uff, das h„tte ich geschafft. Jetzt bloá schnell"
PRINT
PRINT "zurck ins Haus."
SLEEP
INPUT "", nzl
GOTO 139

139 :
CLS
PRINT "Was machst du?"
PRINT ""
PRINT "a: nach Hause gehen"
PRINT ""
PRINT "b: noch da bleiben"
PRINT ""
PRINT "c: nochmal in die Lagerhalle gehen"
PRINT ""
INPUT "Und wie entscheidest du dich?", entscheidung$
PRINT
IF entscheidung$ = "a" GOTO 140
IF entscheidung$ = "b" GOTO 105
IF entscheidung$ = "c" THEN PRINT "Oh nein! Da geh ich nicht wieder hin!"

140 :
CLS
LOCATE 13, 10
COLOR 10
PRINT "Zuhause"
raum = 11
SLEEP
INPUT "", nzl
a140:
CLS
PRINT "Du willst dir gerade einen Tee machen, als"
PRINT ""
PRINT "Du einen Schlag an der Tr h”rst und das"
PRINT ""
PRINT "Licht aus geht."
PRINT ""
PRINT "Was machst du?"
PRINT ""
PRINT "a: die Tr ”ffnen"
PRINT ""
PRINT "b: die Polizei anrufen"
PRINT ""
PRINT "c: dich unter dem Bett verstecken"
PRINT ""
INPUT "Und?", w$
PRINT
IF w$ = "a" GOTO 141
IF w$ = "b" THEN PRINT "Du willst den Fall doch selbst l”sen."
IF w$ = "c" THEN PRINT "Du solltest dir einen anderen Job suchen."
GOTO a140

141 :
CLS
COLOR 2
PRINT
PRINT
PRINT "Du siehst gerade noch ein Auto"
PRINT
PRINT "wegfahren. "
SLEEP
INPUT "", nzl
CLS
LINE (70, 100)-(250, 150), 2, BF
LINE (70, 100)-(90, 60), 2
LINE (71, 100)-(91, 60), 2
LINE (250, 100)-(230, 60), 2
LINE (249, 100)-(229, 60), 2
CIRCLE (115, 78), 12, 6
PAINT (115, 78), 6
LINE (90, 90)-(140, 99), 1, BF
LINE (90, 90)-(85, 99), 1
LINE (145, 99)-(140, 90), 1
LINE (85, 99)-(90, 99), 1
LINE (145, 99)-(140, 99), 1
PAINT (89, 98), 1
PAINT (141, 98), 1
LINE (230, 60)-(90, 62), 2, BF
LINE (100, 75)-(130, 90), 7, BF
LINE (190, 75)-(220, 90), 7, BF
LINE (90, 95)-(140, 99), 7, BF
LINE (180, 95)-(230, 99), 7, BF
LINE (105, 91)-(105, 94), 8
LINE (125, 91)-(125, 94), 8
LINE (195, 91)-(195, 94), 8
LINE (215, 91)-(215, 94), 8
CIRCLE (80, 110), 7, 4
PAINT (80, 110), 4
CIRCLE (80, 110), 7, 0
CIRCLE (240, 110), 7, 4
PAINT (240, 110), 4
CIRCLE (240, 110), 7, 0
CIRCLE (80, 130), 7, 14
PAINT (80, 130), 14
CIRCLE (80, 130), 7, 0
CIRCLE (240, 130), 7, 14
PAINT (240, 130), 14
CIRCLE (240, 130), 7, 0
LINE (80, 151)-(100, 170), 8, BF
LINE (220, 151)-(240, 170), 8, BF
LINE (125, 126)-(194, 136), 0, BF
LINE (125, 126)-(194, 136), 15, B
LOCATE 17, 17
COLOR 15
PRINT "KA GR 48"
LINE (150, 67)-(170, 72), 7, BF
LINE (149, 66)-(171, 73), 8, B
LINE (159, 63)-(161, 65), 8, BF
LINE (1, 170)-(320, 200), 7, BF
bghbgh = 0
DO
bghbgh = bghbgh + 1
LOOP UNTIL bghbgh = 180000
GOTO 142
142 :
CLS
COLOR 2
PRINT "In deiner Tr steckt ein Messer mit"
PRINT ""
PRINT "einer Botschaft. Du liest sie natrlich"
PRINT
PRINT "sofort."
SLEEP
INPUT "", nzl
CLS
LINE (55, 30)-(275, 170), 11, B
COLOR 11
LOCATE 10, 10
PRINT "Wenn du dich einmischst"
LOCATE 15, 10
PRINT "dann bist du  T O T !!!"
SLEEP
INPUT "", nzl
CLS
COLOR 2
PRINT ""
PRINT ""
PRINT "Diese Botschaft war ernst gemeint."
PRINT ""
PRINT "Aber als Privatdetektiv musst du dich"
PRINT ""
PRINT "halt ber solche Morddrohungen hinweg-"
PRINT ""
PRINT "setzen. Deshalb rufst du sofort die"
PRINT ""
PRINT "Polizei an."
SLEEP
INPUT "", nzl
GOTO 143
143 :
CLS
COLOR 9
PRINT ""
PRINT "Ja, hier Polizeirevier Ettlingen, Dieter"
PRINT ""
PRINT "L„nger. Was kann ich fr Sie tun?"
PRINT
PRINT
COLOR 12
PRINT "a: Ich m”chte Anzeige gegen einen Mann"
PRINT
PRINT "   in einem grnen Auto erstatten."
PRINT
PRINT "b: Ich m”chte eine Pizza essen."
PRINT ""
PRINT "c: Ich m”chte, dass Sie einen Mann"
PRINT ""
PRINT "   in einem grnen Auto verhaften."
LOCATE 20, 1
COLOR 12
INPUT "Was antwortest du? (a,b,c)", a$
IF a$ = "a" THEN GOTO 144
IF a$ = "b" THEN PRINT "Du bist doch ein Spinner!"
IF a$ = "c" THEN GOTO 144
IF a$ = "q" THEN END
SLEEP
INPUT "", nzl
GOTO 143

144 :
CLS
COLOR 9
PRINT ""
PRINT "Wie heiát der Mann denn?"
PRINT
COLOR 12
PRINT "a: Karl von Burlafingen."
PRINT ""
PRINT "b: Regidr Eklansch."
PRINT ""
PRINT "c: Ich kenne seinen Namen nicht."
PRINT ""
PRINT ""
INPUT "Wie heiát er? (a,b,c)", w$
PRINT ""
IF w$ = "a" THEN PRINT "Das kann doch nicht dein Ernst sein."
IF w$ = "b" THEN PRINT "Verarsch mich halt!!"
IF w$ = "c" GOTO 145
SLEEP
INPUT "", nzl
GOTO 144

145 :
CLS
PRINT ""
COLOR 9
PRINT "Was fr eine Autonummer hatte er denn?"
PRINT ""
PRINT ""
COLOR 12
PRINT "a: KS ET 26"
PRINT ""
PRINT "b: HS AB 37"
PRINT ""
PRINT "c: KA GR 48"
PRINT ""
PRINT ""
COLOR 12
INPUT "Welche Autonummer hatte er? (a,b,c)", a$
PRINT ""
IF a$ = "a" THEN PRINT "Du solltest dein Ged„chtnis verbessern!"
IF a$ = "b" THEN PRINT "Du solltest dein Ged„chtnis verbessern!"
IF a$ = "c" GOTO 146
SLEEP
INPUT "", nzl
GOTO 145

146 :
CLS
COLOR 2
PRINT ""
PRINT "Der Polizist gab den guten Tip sofort"
PRINT ""
PRINT "an seine Kollegen weiter. Er dankte"
PRINT ""
PRINT "dir fr die heiáe Spur und du"
PRINT ""
PRINT "verabschiedeste dich und giengst nach"
PRINT ""
PRINT "Hause."
SLEEP
INPUT "", nzl
CLS
PRINT ""
PRINT "Zwei Tage sp„ter kam ein Brief vom"
PRINT ""
PRINT "Polizeirevier:"
SLEEP
INPUT "", nzl
CLS
LOCATE 4, 1
COLOR 15
PRINT "Sehrgeehrter Herr "; name$; ""
PRINT ""
PRINT "dank Ihnen konnten wie eine ganze"
PRINT ""
PRINT "Bande Waffenschieber dingfest machen."
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "Ausfhrlicher Bericht auf der n„chsten"
PRINT ""
PRINT "Seite."
SLEEP
INPUT "", nzl
CLS
PRINT ""
PRINT "Am Montag konnten wir den grnen Audi"
PRINT ""
PRINT "von Sch„fer (so heiát der Bersitzer)"
PRINT ""
PRINT "in der Karlsruher Innenstadt ausfindig"
PRINT ""
PRINT "machen. Wir folgten ihm bis zu seinem"
PRINT ""
PRINT "Hause. Dort umstellten wir es"
PRINT ""
PRINT "und strmten. Beim Verh”r gestand"
PRINT ""
PRINT "er alles (Auftraggeber und alle"
PRINT ""
PRINT "Mitglieder). Am n„chsten Tag konnten"
PRINT ""
PRINT "wir den Rest der Bande verhaften."
PRINT ""
PRINT "Am n„chsten Donnerstag wird Mayr, der"
PRINT ""
PRINT "Boss der Truppe, wegen Mord an Karl"
PRINT ""
SLEEP
INPUT "", nzl
CLS
PRINT ""
PRINT "Mller verurteilt. Auch die Anderen"
PRINT ""
PRINT "werden wegen Beihilfe zum Mord vor"
PRINT ""
PRINT "Gericht gestellt werden."
PRINT ""
PRINT ""
PRINT ""
PRINT "Ich muss nochmal meinen Dank an Sie"
PRINT ""
PRINT "Aussprechen. Denn nur durch Sie konnten"
PRINT ""
PRINT "wir diese gef„hrliche Bande stoppen"
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "            Polizeichef Mattias Huber"
SLEEP
INPUT "", nzl
CLS
LOCATE 13, 10
COLOR 13
PRINT "Sie haben gewonnen!"
SLEEP
INPUT "", nzl
COLOR 15

GOTO xxxxx


END


yy:
CLS
PRINT
PRINT
COLOR 5
PRINT "Hausschlssel"
PRINT "200 Schilling"
IF tlampe% = 1 THEN PRINT "Taschenlampe"
IF schluessel% = 1 THEN PRINT "Schlssel"
IF messer% = 1 THEN PRINT "Messer"
IF kerzenst% = 1 THEN PRINT "Kerzenst„nder"
IF seil% = 1 THEN PRINT "Seil"
RETURN

xxxxx:

v = 4
vv = 1
LOCATE 13, 10
CLS
LINE (79, 40)-(215, 40), v
LINE (79, 40)-(49, 70), v
LINE (245, 70)-(215, 40), v
LINE (245, 70)-(147, 168), v
LINE (49, 70)-(147, 168), v
LINE (80, 39)-(215, 39), v
LINE (79, 39)-(49, 69), v
LINE (246, 70)-(215, 39), v
LINE (246, 70)-(147, 169), v
LINE (48, 70)-(147, 169), v
PAINT (100, 42), vv, v
LOCATE 11, 13
COLOR 14
PRINT "Super  Markus"
SLEEP
END

yx:
PRINT ""
PRINT "M”gliche Befehle:"
PRINT ""
PRINT ""
COLOR 3
PRINT "”ffnen"
PRINT ""
PRINT "benutzen"
PRINT ""
PRINT "untersuchen"
PRINT ""
PRINT "sprechen mit"
PRINT ""
PRINT "gehen (in)"
PRINT
PRINT "nehmen"
RETURN

n:
CLS
LOCATE 12, 5
COLOR 11
PRINT "Neuer Name fr Held", name$
OPEN "c:midds1" FOR INPUT AS #1
INPUT #1, name$
CLOSE
RETURN

speichern:
RETURN

SUB M
PRINT
PRINT
COLOR 5
PRINT "Hausschlssel"
PRINT "200 Schilling"
IF tlampe% = 1 THEN PRINT "Taschenlampe"
IF schluessel% = 1 THEN PRINT "Schlssel"
IF messer% = 1 THEN PRINT "Messer"
IF kerzenst% = 1 THEN PRINT "Kerzenst„nder"
IF seil% = 1 THEN PRINT "Seil"


END SUB
author	meillo@marmaro.de
date	Wed, 05 Sep 2007 00:15:35 +0200
parents	756a5d57522c
children