215
@verb #110:"wrap" this none this rxdo #55
@program #110:"wrap" this none this
{text, col} = args
newtext = {}
for x in (text)
  while (length(x) > col)
    split = col
    split = rindex(x[1..col], " ") || col
    newtext = {@newtext, x[1..split]}
    x = x[split + 1..$]
  endwhile
  newtext = {@newtext, x}
endfor
return newtext
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:05 2002 MDT."
.

0