/* */
CALL RxFuncAdd 'ULSLoadFuncs', 'RXULS', 'ULSLoadFuncs'
CALL ULSLoadFuncs

string = 'We had lunch at a caf‚ in Reykjav¡k.'   /* codepage 850 string */
SAY string
up_str = ULSTransform( string, 'upper')
SAY up_str
de_str = ULSTransform( string, 'decompose')
stripped = ''
DO i = 1 TO LENGTH( de_str )
   c = SUBSTR( de_str, i, 1 )
   IF c == X2C('7f') THEN ITERATE
   IF ULSQueryAttr( c, 'diacritic') <> 1 THEN
       stripped = stripped || c
END
SAY stripped
RETURN