@verb #6570:"@paste" none none none rd #2633
@program #6570:"@paste" none none none
lines = $command_utils:read_lines()
player.location:announce_all($su:center(" " + player:title() + " @pastes ", player:linelength(), "-", "-"))
for line in (lines)
  player.location:announce_all(line)
endfor
player.location:announce_all($su:space(player:linelength(), "-"))
"Last modified by Eve (#2633) on Fri Sep 25 20:52:04 1998 EDT."
.