2f4
@verb #8043:"@mis*sed" none none none rdo #8043
@program #8043:"@mis*sed" none none none
lns = {}
if (!$page.missed)
  return player:Tell("You have no missed pages.")
endif
count = 0
for x in ($page.missed)
  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)
cmd = $cmd_utils:Read("`answer [#]', or `clear' to clear all pages")
$page:parse(cmd)
"Last modified by Russ (#8043) on Tue Sep 14 15:13:07 1999 MDT."
.

0