'Einfaches Adventure-Spiel mit SELECT/CASE

COLOR 14, 1
CLS

PRINT "Willkommen zum Mysterious QBASIC Adventure. Du mu�t immer die Zahl"
PRINT "eingeben, die neben der gew�hlten Option steht. 'aT' steht f�r"
PRINT "eine beliebige andere Taste."
PRINT
PRINT "Du stehst vor einem Schlo�. Wagst Du Dich, es zu betreten?"
PRINT
PRINT "  ( 1)  Ja"
PRINT "  (aT)  N�"
PRINT

LINE INPUT Eingabe$
CLS
SELECT CASE Eingabe$
 CASE "1"
  PRINT "Jetzt bist Du im Schlo�. Du hast die Wahl, ob Du nach Westen oder"
  PRINT "nach Osten gehst. Nat�rlich kannst Du auch das Schlo� verlassen"
  PRINT "(Feigling!) Wof�r entscheidest Du Dich, oh edler Ritter?"
  PRINT
  PRINT "  ( 1)  Westen"
  PRINT "  ( 2)  Osten"
  PRINT "  (aT)  Schlo� verlassen"
  PRINT
  LINE INPUT Eingabe$
  CLS
  SELECT CASE Eingabe$
   CASE "1"
    PRINT "Da ist ein b�ser Drache, den Du, edler Ritter, mit Deinem Schwert"
    PRINT "zu Hackfleisch verarbeitest! Du hast die holde Prinzessin"
    PRINT "gerettet und darfst sie jetzt zur Belohnung zur Frau nehmen (und"
    PRINT "mit ihr 'ne Menge Spa� haben)! Ende."
    END
   CASE "2"
    PRINT "Oh, Du armer Held. Kaum gehst Du nach Osten, f�llst Du in einen"
    PRINT "bodenlosen Abgrund! Und wenn er nicht gestorben ist, dann f�llt er"
    PRINT "noch heute. Ende."
    END
   CASE ELSE
    PRINT "Kaum hast Du das Schlo� verlassen, f�llt das Tor hinter Dir zu. Du"
    PRINT "hast Deine Chance vertan, denn 'rein kannst Du nimmer! Ende."
    END
  END SELECT
 CASE ELSE
  PRINT "Na gut, dann nicht. Starte lieber Excel und erledige langweilige"
  PRINT "Tabellenkalkulationen! Ende."
END SELECT