DECLARE SHORT CharToOem IN user32;
    STRING lpszSrc,;
    STRING @ lpszDst
 
DECLARE SHORT OemToChar IN user32;
    STRING lpszSrc,;
    STRING @ lpszDst
 
* source string of Cyrillic characters (1251)
lcSrc = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÜÛÚÝÞß" +;
    "àáâãäåæçèéêëìíîïðñòóôõö÷øùüûúýþÿ"
 
* a buffer for destination string
lcDst = SPACE(Len(lcSrc))
 
? lcSrc 
 
* converting from ANSI to OEM
= CharToOem (lcSrc, @lcDst)
? lcDst
 
* converting back from OEM to ANSI
= OemToChar (lcDst, @lcSrc)
? lcSrc