long local fn SumDigits( n as long, base as long )
  long sum = 0
  while ( n > 0 )
    sum += n % base
    n = fix(n/base)
  wend
end fn = sum

print fn SumDigits( 1, 10 )
print fn SumDigits( 1234, 10 )
print fn SumDigits( 0xfe, 16 )
print fn SumDigits( 0xf0e, 16 )

HandleEvents