@verb #144:"diff" this none this rxdo #55
@program #144:"diff" this none this
":diff(a, b, c)"
"=> a - b - c"
{@bignums} = args
decoded = {}
for x in (bignums)
  decoded = {@decoded, decode_binary(x, 1)}
endfor
r = ""
s = 0
while (decoded)
  s = decoded[1][$]
  decoded[1][$..$] = {}
  for x in [2..length(decoded)]
    s = s - decoded[x][$]
    decoded[x][$..$] = {}
    $command_utils:suspend_if_needed()
  endfor
  if (s < 0)
    n = s / -256 + 1
    s = s + 256 * n
    decoded[1][$] = decoded[1][$] - n
  endif
  r = encode_binary(s % 256) + r
  while (decoded != (decoded = setremove(decoded, {})))
  endwhile
endwhile
while (index(r, "~00") == 1)
  r[1..3] = ""
endwhile
return r
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.