'use latest sapero api headers file
$INCLUDE "windowssdk.inc"
MESSAGEBOX 0,GetWinLanguage(),"Your system is using this language:"
DO:UNTIL INKEY$ <> ""
END
Sub GetWinLanguage(),string
string buffer
VerLanguageName(GetSystemDefaultLangID(),buffer,100)
return buffer
endsub