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

uni1990 = '8401'x
sj1990  = ULSConvertFromUCS( uni1990, 943 )
sj1978  = ULSConvertFromUCS( uni1990, 942 )
jis     = ULSConvertFromUCS( uni1990, 955 )

SAY 'U+'uni1990 'in codepage 943 =' C2X( sj1990 )
SAY 'U+'uni1990 'in codepage 942 =' C2X( sj1978 )
SAY 'U+'uni1990 'in codepage 955 =' C2X( jis )

DO row = 1 TO 16
    DO col = 1 TO 16
        byteval = D2C( ((row - 1) * 16) + (col - 1) )
        jisval  = X2C('74') || byteval
        ucval = ULSConvertToUCS( jisval, 955 )
        CALL CHAROUT, C2X( ucval ) || ' '
    END
    SAY
END


CALL ULSDropFuncs
RETURN 0