Mercurial > midds

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Midds_orig.bas	Mon Sep 03 14:18:48 2007 +0200
@@ -0,0 +1,1594 @@
+'                                                                            '
+'                                                                            '
+'  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
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Midds_orig_install.bas	Mon Sep 03 14:18:48 2007 +0200
@@ -0,0 +1,51 @@
+'Installationsprogramm fr Midds'
+SCREEN 13
+1 :
+CLS
+LOCATE 3, 1
+COLOR 2
+PRINT "  Dies ist das Installationsprogramm"
+PRINT ""
+PRINT "              fr Midds             "
+PRINT ""
+PRINT ""
+PRINT ""
+PRINT ""
+INPUT "Wollen Sie Midds installieren? (j/n) ", jn$
+IF jn$ = "j" GOTO install
+IF jn$ = "n" THEN END
+GOTO 1
+
+install:
+poi = 1
+OPEN "c:midds1.ini" FOR OUTPUT AS #1
+PRINT #1, poi
+CLOSE
+
+
+
+
+
+
+i:
+DO
+a = a + .01
+LINE (50, 110)-(270, 130), 15, B
+LINE (51, 111)-(51 + a, 129), 7, BF
+LOOP UNTIL a > 218
+LOCATE 20, 3
+COLOR 4
+PRINT "Die Installation ist abgeschlossen."
+PRINT ""
+PRINT ""
+PRINT "             Drcke Enter "
+COLOR 0
+
+
+
+END
+
+
+
+
+