*-------------------------------------------------------------------------- function Do_it() ?Mod_String('2291909071000729000', 97) endfunc *-------------------------------------------------------------------------- function Mod_String(s, Divisor) local StepSize, StepMultiplier, i, n StepSize = (15 - ceiling(log10(m.Divisor))) StepMultiplier = int(10 ^ m.StepSize) n = 0 for i = 1 to len(m.s) step m.StepSize n = mod(int(m.n * m.StepMultiplier) + int(val(substr(m.s, m.i, m.StepSize))), m.Divisor) endfor return m.n endfunc *--------------------------------------------------------------------------