function Dec_To_Oct takes integer X returns integer
    local integer Rez = 0
    local real i = 0.
 
    loop 
       exitwhen (X == 0) 

       set Rez = Rez + (X - (X/8)*8)*R2I(Pow(10,i))
       set X = (X / 8)

       set i = i + 1
    endloop

    return Rez
 endfunction