1e0
@verb #7871:"remainder" this none this rxdo #7871
@program #7871:"remainder" this none this
{dividend, divisor} = args
divisor = abs(divisor)
if (dividend < 0)
  dividend = -1 * dividend
  sign = -1
else
  sign = 1
endif
if (divisor == 0)
  return E_INVARG
endif
while (dividend >= divisor)
  dividend = dividend - divisor
  $command_utils:suspend_if_needed(0)
endwhile
return dividend * sign
"Last modified by Gehn (#7871) on Mon Jan  4 23:17:16 1999 MST."
.

0