EnableExplicit

Define Eingabe$

Procedure.s CharToOem(String.s)
  CharToOem_(@String, @String)
  ProcedureReturn String
EndProcedure

Procedure.s OemToChar(String.s)
  OemToChar_(@String, @String)
  ProcedureReturn String
EndProcedure

OpenConsole()
  PrintN(CharToOem("ä ö ü"))
  Print("Gebe Text ein: ")
  Eingabe$ = Input()
CloseConsole()

MessageRequester("","Eingegebener Text: "+OemToChar(Eingabe$),0)