Save

//By Serious07

//a - number
//str - cod
//-save
function Save takes integer a, string str returns string
local integer array ost1
local integer array ost2
local integer i
local integer j
local integer s

local string answ
set answ = ""
set s = StringLength(str)
set i = 0
set j = 0

//delenie
loop
    set ost1[i] = ModuloInteger(a, s)
    set a = a/s
    set i = i+1
    exitwhen a<s
endloop

//set i = i+1
set ost1[i] = a

//reverse(perevorot)
loop
    set ost2[j] = ost1[i]
    set i = i-1
    set j = j + 1
    exitwhen i<0
endloop

//convert to str
set i = 0
loop
    set answ = answ + SubString(str, ost2[i], ost2[i]+1)
    set i = i + 1
    exitwhen i==j
endloop

return answ

endfunction