DO declare
 
? "System Default LangID:", GetSystemDefaultLangID()
? "User Default LangID:", GetUserDefaultLangID()
 
? "System Default LCID:", GetSystemDefaultLCID()
? "User Default LCID:", GetUserDefaultLCID()
 
? "Current Thread Locale:", GetThreadLocale()
 
? "OEM code-page identifier:", GetOEMCP()
? "ANSI code-page identifier:", GetACP()
? "Current code page (should be the same as GetOEMCP): ",;
    GetKBCodePage()
 
PROCEDURE declare
    DECLARE SHORT GetThreadLocale IN kernel32
    DECLARE SHORT GetSystemDefaultLangID IN kernel32
    DECLARE SHORT GetUserDefaultLangID IN kernel32
    DECLARE SHORT GetSystemDefaultLCID IN kernel32
    DECLARE SHORT GetUserDefaultLCID IN kernel32
    DECLARE INTEGER GetOEMCP IN kernel32
    DECLARE INTEGER GetACP IN kernel32
    DECLARE INTEGER GetKBCodePage IN user32