# HG changeset patch # User meillo@marmaro.de # Date 1188821928 -7200 # Node ID 756a5d57522c380d5d57ddc5aee621658c37f1fe the orginal Midds from 1999 diff -r 000000000000 -r 756a5d57522c Midds_orig.bas --- /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 + diff -r 000000000000 -r 756a5d57522c Midds_orig_install.bas --- /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 + + + + +