1ae
@verb #7407:"linesplit" this none this rd #7407
@program #7407:"linesplit" this none this
{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)}
.

0