@verb #3512:"object_inven_string" this none this rxdo #6319
@program #3512:"object_inven_string" this none this
o = args[1]
nam = o:title()
namelen = length(nam) < 40 ? length(nam) | 39
return tostr($string_utils:right(o, 6), " ", $string_utils:left(nam[1..namelen], 40), $string_utils:right(parent(o), 6), " ", o.owner:title())
"Last modified by Dax (#789) on Mon May 10 08:45:46 1999 MDT."
.