@verb #8084:"x-list" none none none rdo #8084
@program #8084:"x-list" none none none
if (player != this)
  return $msg:mtell("huh")
endif
data = {}
for x in ({#235, #6984, #2989})
  data = {@data, {x.name, tostr(x), x.location.name, length(x.log), `ctime(x.log[1][1]) ! ANY => "..."', `ctime(x.log[$][1]) ! ANY => "..."'}}
endfor
player:tellcolumns({1, 1, 1, 1, 1, 1}, {"Pet", "#", "Loc", "Logged", "Latest", "Oldest"}, @data)
"Last modified by Lao-Tzu (#8084) on Sun Aug 18 17:13:56 2002 MDT."
.