function RS_Arrays takes integer ID,integer OffSet,integer Value returns nothing
    local integer RawID    = ID
    local integer RawSet   = OffSet
    local integer RawValue = Value
    if RawID > 511 then
        set RawID = 511
    endif
    if RawID < 0 then
        set RawID = 0
    endif
    if RawSet > 15 then
        set RawSet = 15
    endif
    if RawSet < 0 then
        set RawSet = 0
    endif
    set udg_LH_RS[RawID+512*RawSet] = Value
endfunction

function GetInit takes integer ID, integer OffSet returns integer
return udg_LH_RS[ID+512*OffSet]
endfunction

function Setup takes integer ID, string Data returns boolean
    local integer Set    = 0
    local integer IsInt  = 0
    local string  Temp   = ""
    local string  Check  = ""
    local boolean IsTrue = false
    local integer Slot   = 0
    local integer Last   = 1

    if SubString(Data,0,1) != "$" then
        return false
    endif
    
    loop
        set IsTrue = false
        set Set = Set+1
        set Temp = SubString(Data,Set,Set+1)
        set IsInt = S2I(Temp)
        set Check = I2S(IsInt)

        if Temp == Check then
            set IsTrue = true
        endif

        if Temp == ":" then
            set IsTrue = true
            call RS_Arrays(ID,Slot,S2I(SubString(Data,Last,Set)))
            set Last = Set + 1
            set Slot = Slot + 1
        endif

        exitwhen IsTrue == false
    endloop
    call RS_Arrays(ID,Slot,S2I(SubString(Data,Last,Set)))
    return true
endfunction