230
@verb #4:"is_over_quota" this none this rxd #55
@program #4:"is_over_quota" this none this
{byte, object} = {this:free_bytes() < 0, this:free_objects() < 0}
if (byte)
  $quota:revoke_access(this)
elseif (!byte && this in $quota.revokees)
  $quota:restore_access(this)
endif
return byte || object
"Last modified by manta (#7165) on Sat Jul 11 14:16:02 1998 EDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.

0