View/Edit #7871:remainder

Name(s): remainder

1:  {dividend, divisor} = args
2:  divisor = abs(divisor)
3:  if (dividend < 0)
4:    dividend = -1 * dividend
5:    sign = -1
6:  else
7:    sign = 1
8:  endif
9:  if (divisor == 0)
10:   return E_INVARG
11: endif
12: while (dividend >= divisor)
13:   dividend = dividend - divisor
14:   $command_utils:suspend_if_needed(0)
15: endwhile
16: return dividend * sign
17: "Last modified by Gehn (#7871) on Mon Jan  4 23:17:16 1999 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Datum (#7871)

You are not logged in.