350
@verb #57:"@queued-*" this none none rdo #55
@program #57:"@queued-*" this none none
a = verb[9..$]
info = {}
if (index("dispatch", a))
  for x in (this.dispatch_queue)
    info = {@info, $su:nn(x[1]), $su:nn(x[2]), $su:nn(x[3]), $su:nn(x[4])}
  endfor
else
  for x in [1..length(this.queued_mail)]
    info = {@info, {$su:nn(this.queued_mail[x]), $su:nn(this.queued_rcpts[x]), $su:nn(this.queued_senders[x]), $su:nn(this.queued_boxes[x])}}
    $command_utils:suspend_if_needed()
  endfor
endif
player:tellColumns({20, 15, 15, 20}, {"Object", "To", "From", "\"Box\""}, @info)
"Last modified by Raptor (#6319) on Fri Apr 16 13:36:44 1999 MDT."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:42 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:42 2002 MDT."
.

0