19a
@verb #4:"disk_used" this none this rxd #55
@program #4:"disk_used" this none this
q = 0
for x in (this.owned_objects)
  if (!valid(x))
    "Strange, but this will vanish next time I'm kicked."
  elseif (!`x:_get_petrified() ! E_PROPNF => 0')
    q = q + x:_obj_disk_Size()
  endif
  $cmd_utils:suspend_if_needed()
endfor
return q
"Last modified by Dax (#789) on Thu Jul  9 21:06:21 1998 EDT."
.

0