221
@verb #7165:"pf" this none this rxdo #7165
@program #7165:"pf" this none this
{number} = args
type = typeof(number)
factors = {}
x = type == $INT ? 2 | 2.0
while (x < number)
  if (number % x == (type == $INT ? 0 | 0.0))
    number = number / x
    factors = {@factors, toint(x)}
  else
    x = type == $INT ? 1 | 1.0
  endif
  $command_utils:suspend_if_needed(0, caller_perms())
endwhile
if (tofloat(x) != 1.0)
  factors = {@factors, x}
endif
return factors
"Last modified by Dax (#789) on Tue May  3 13:51:17 2005 MDT."
.

0