@verb #6570:"textwrap" this none this rxd #2633
@program #6570:"textwrap" this none this
"EveHang:textwrap(<str> [, linelen], [tab])"
{sstr = args[1], ll = length(args) > 1 ? abs(toint(args[2])) | player:linelength(), tab = length(args) > 2 ? tostr(args[3]) | "  "}
sstr = $su:wrap(tostr(sstr), ll)
result = {}
for line in [1..length(sstr)]
  indent = line > 1 ? tab | ""
  result = {@result, indent + sstr[line]}
endfor
return result
"Last modified by Dax (#789) on Tue May  3 14:11:58 2005 MDT."
.