function eta(stepnum : int) : string
    var eta_ms, eta_m, eta_s : int
    var eta_str : string
    eta_ms := round(Time.Elapsed / (((stepnum / 360) * 1000) / 10) * (100 - (((stepnum / 360) * 1000) / 10)))
    eta_m := round(eta_ms / 1000) div 60
    eta_s := round(eta_ms / 1000) mod 60
    eta_str := intstr(eta_m)+':'+intstr(eta_s)
    result eta_str
end eta