Save/Load Shortening Problem

function DecimalStr takes string base36String returns integer
    local integer i = 0
    loop
        if (SubStringBJ("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", i + 1, i + 1) == base36String) then
            return i
        endif
        set i = i + 1
    endloop
    return 0
endfunction

function Base362Decimal takes string base36String returns integer
    local integer array multiplyResults
    local integer numResults = 0
    local integer result = 0
    local integer i = StringLength(base36String)
    loop
        exitwhen numResults == (StringLength(base36String))
        set multiplyResults[numResults] = DecimalStr(SubStringBJ(base36String, i, i))

        set multiplyResults[numResults] = multiplyResults[numResults] * R2I(Pow(36, I2R(numResults)))

        set numResults = numResults + 1
        set i = i - 1

    endloop

    loop
        exitwhen numResults == 0
        set numResults = numResults - 1
        set result = result + multiplyResults[numResults]
    endloop
    return result
endfunction

function Base36Num takes integer decimalNum returns string
    return SubStringBJ("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", decimalNum + 1, decimalNum + 1)
endfunction

function Decimal2Base36 takes integer decimalNum returns string
    local string array divideRemainders
    local integer numRemainders = 0
    local string result = ""

    loop
        exitwhen decimalNum == 0
        set numRemainders = numRemainders + 1
        set divideRemainders[numRemainders] = Base36Num(ModuloInteger(decimalNum, 36))
        set decimalNum = decimalNum / 36
    endloop

    loop
        exitwhen numRemainders == 0
        set result = result + divideRemainders[numRemainders]
        set numRemainders = numRemainders - 1
    endloop
    return result
endfunction