'Einfaches Adventure-Spiel mit IF/THEN/ELSE/ENDIF 

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
IF Eingabe$ = "1" THEN
 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
 IF Eingabe$ = "1" THEN
  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
 END IF
 IF Eingabe$ = "2" THEN
  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
 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 IF
ELSE
 PRINT "Na gut, dann nicht. Starte lieber Excel und erledige langweilige"
 PRINT "Tabellenkalkulationen! Ende."
END IF