XProfan

WAY from 500,Ord("Ü"),0
WAY from 501,Ord("U"),0
WAY from 502,Ord("Ö"),0
WAY from 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
WAY from 500,u_umlaut%,0
WAY from 501,Ord("U"),0
WAY from 502,o_umlaut%,0
WAY from 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