'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=� , ß=á ,§=õ , ©=¸, °=ø
'Tested with FB 0.16b using FBIde 0.4.6
Const MenChr=4, Esc=!"\27"
Dim Shared As Integer FG=0, BG=8
Color FG, BG

Function MenuChar(byVal c As String) As String
  Color MenChr, BG
  Print Chr(c[0]);
  Color FG, BG
  Function=Mid(c, 2)
End Function

Function GetKeyPress(byVal Msg As String, byVal Allowed As String, byVal Upper As Integer=-1) As String
  Dim As String y="", m=Allowed
  If Upper<>0 Then m=UCase(m)
  If Msg<>"" Then Print Msg;
  Do
    y=Input(1)
    If Upper<>0 Then y=UCase(y)
  Loop Until Instr(m, y)
  Print y
  Function=y
End Function

Dim As String Erlaubt="NOSW" &Esc
Dim As String y, Standard="Wohin soll's denn gehen, Fremder:"
Dim As Integer i, myKey=0
Cls
Print "Vordergrund=" &FG, "Hintergrund=" & BG
For i=0 To 15
  Color i, BG
  Print Str(i);" ";
Next
Color FG, BG
Print " (8=Dunkelgrau, also unsichtbar..)"
Print "Von hier f�hren Wege nach ";
Print MenuChar("Norden, "); MenuChar("Osten, "); MenuChar("S�den, "); MenuChar("Westen")
y=GetKeyPress(Standard, Erlaubt)
Select Case y
  Case Chr(Erlaubt[0]): Print "Nach Norden.."
  Case Chr(Erlaubt[1]): Print "Nach Osten.."
  Case Chr(Erlaubt[2]): Print "Nach S�den.."
  Case Chr(Erlaubt[3]): myKey=-1: Print "Let's go west.."
  Case Chr(Erlaubt[4]): Print "Nach ESC geht's hier auch.."
  Case Else : Print "Möchtest du dich wegbeamen, oder was ?!?"
End Select

Do
  Print "Du bist in ytwinky's Flur"
  Print "Von hier f�hren T�ren in die ";
  Print MenuChar("K�che, ins "); MenuChar("Bad, ins "); MenuChar("Wohnzimmer, ins "); MenuChar("Arbeitszimmer")
  y=GetKeyPress(Standard, "KBWA" &Esc)
  Select Case y
    Case "K": Print "Du bist in der K�che.."
    Case "B": Print "Du bist im Bad.."
    Case "W": Print "Du bist im Wohnzimmer.."
    Case "A"
      If myKey<>0 Then
        Print "Du bist im Arbeitszimmer, r„um' hier bloá nich auf.."
      Else
        Print "Die T�r ist verschlossen und du hast keinen Schl�ssel.."
        y=""
      End If
    Case Esc: Print "Nach ESC geht's hier auch.."
    Case Else: Print "Interessant, wie hast du das gemacht?"
  End Select
Loop Until Instr("KBWA" &Esc, y)
Sleep