@verb #3652:"@say @talk" this none this rxdo #7446
@program #3652:"@say @talk" this none this
player:tell("Type what you want to say; use `.' to end.")
player:xoff()
text = $command_utils:read_lines()
player:announce("")
player:tell("You say:")
player.location:announce(player:title(), " says:")
for l in (text)
  player:announce_all(tostr("> ", l))
endfor
player:announce_all("")
player:xon()
"Last modified by Dax (#789) on Thu Nov  8 15:28:58 2001 MST."
.