@verb #7854:"linesplit" this none this rxdo #7854
@program #7854:"linesplit" this none this
"Copied from Cecil (#7407):linesplit Aug 17 09:58:33 1997"
{line, len} = args
cline = {}
while ($ansi_utils:length(line) > len)
  ptr = len + $ansi_utils:extra_space_delimited(line, 1, len)
  ptr = rindex(line[1..ptr > $ ? $ | ptr], " ") || ptr
  cline = {@cline, tostr(cline ? " " | "", line[1..ptr])}
  line = line[ptr + 1..$]
endwhile
return {@cline, tostr(cline ? " " | "", line)}
.