@verb #8043:"@pages" none none none rdo #8043
@program #8043:"@pages" none none none
lns = {}
if (!$stack.pages)
  return player:Tell("No pages have been recorded.")
endif
count = 0
for x in ($stack.pages)
  count = count + 1
  time = `strsub($time_utils:mmddyy(x[2]), "0") ! ANY => $time_utils:mmddyy(x[2])'
  pager = x[1].name
  if (length(x[3]) > 60)
    message = x[3][1..60] + "..."
  else
    message = x[3]
  endif
  sender = x[1].name
  lns = {@lns, {count, sender, time, message}}
endfor
this:Tellcolumns("rlll", {1, 1, 1, 1}, {"#", "Sender", "Time", "Message"}, @lns)
"Last modified by Russ (#8043) on Tue Sep 28 19:01:48 1999 MDT."
.