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

isostr = ULSConvertCodepage('Õúþ',, 819 )
IF isostr == '' THEN SAY ULSERR
ELSE SAY isostr

CALL ULSDropFuncs
RETURN 0