XProfan

AddHotKey 500,Ord("Ü"),0
AddHotKey 501,Ord("U"),0
AddHotKey 502,Ord("Ö"),0
AddHotKey 503,Ord("O"),0
cls

While 1

    WaitInput
    Case MenuItem(500):print "ü"
    Case MenuItem(501):print "u"
    Case MenuItem(502):print "ö"
    Case MenuItem(503):print "o"

Wend

declare u_umlaut%, o_umlaut%
u_umlaut% = 186
o_umlaut% = 192
AddHotKey 500,u_umlaut%,0
AddHotKey 501,Ord("U"),0
AddHotKey 502,o_umlaut%,0
AddHotKey 503,Ord("O"),0
cls

While 1

    WaitScan
    Print "Key:",%ScanKey
    Case MenuItem(500):print "ü"
    Case MenuItem(501):print "u"
    Case MenuItem(502):print "ö"
    Case MenuItem(503):print "o"

Wend