@verb #1:"contains" this none this rxd #55
@program #1:"contains" this none this
"obj1:contains(obj2) -- does obj1 contain obj2?"
"Return true iff obj2 is under obj1 in the containment hierarchy; that is, if obj1 is obj2's location, or its location's location, or ..."
{what} = args
while (valid(what))
  what = what.location
  if (what == this)
    return 1
  endif
endwhile
return 0
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
"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."
.