function I2RC takes integer dividend returns string
    local integer residue=0
    local string raw_code=null
    loop
        exitwhen dividend==0
        set residue=ModuloInteger(dividend,256)
        set dividend=dividend/256
        set raw_code=SubString(udg_ASCII,residue-33,residue-32)+raw_code
    endloop
    return raw_code
endfunction

function get_char_ascii_index takes string char returns integer
    local integer index=2
    local integer length=StringLength(char)
    if length==1 then
        if char=="!" then
            return 33
        elseif char=="\"" then
            return 34
        endif
        loop
            exitwhen index>93
            if SubString(udg_ASCII,index,index+1)==char then
                return index+32
            endif
            set index=index+1
        endloop
    endif
    return -1
endfunction

function RC2I takes string raw_code returns integer
    local integer result=0
    local integer char_index=4
    local integer ascii_index=0
    local integer modificator=1
    if StringLength(raw_code)==4 then
        loop
            exitwhen char_index==0
            set ascii_index=get_char_ascii_index(SubString(raw_code,char_index-1,char_index))
            if ascii_index!=-1 then
                set result=result+ascii_index*modificator
                set modificator=modificator*256
            else
                set result=-1
                exitwhen true
            endif
            set char_index=char_index-1
        endloop
    else
        set result=-1
    endif
    return result
endfunction

//===========================================================================
function InitTrig_Lib takes nothing returns nothing
    set udg_ASCII=" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrs​tuvwxyz{|}~"
endfunction