dim a(2)
a(0) = 627615 : a(1) = 39390 : a(2) = 588225
for i = 0 to arraysize(a(),1)
    dr = digitalRoot(a(i))
    print a(i), "\tAdditive persistence = ", ap, "\tDigital root = ", dr
next i
end

sub digitalRoot(n)
    ap = 0
    repeat
        dr = 0
        while n > 0
            dr = dr + mod(n, 10)
            n = int(n / 10)
        wend
        ap = ap + 1
        n = dr
    until dr < 10
    return dr
end sub