52b
@verb #3:"tellColumnsEx" this none this rxdo #8084
@program #3:"tellColumnsEx" this none this
"An extension to tellColumns. The first argument is the number of columns to split the data into, and then the rest of the arguments are standard tellColumns arguments. This is used for making lists that might be not too wide, and shoving them next to each other nicely and easily."
{numcol, just, ratio, header, @data} = args
newjust = just
newratio = ratio
newhead = header
for x in [2..numcol]
  newjust = newjust + "c" + just
  newratio = {@newratio, 1, @ratio}
  newhead = {@newhead, " - ", @header}
endfor
newdata = {}
for x in [1..length(data) / numcol]
  append = data[x]
  for y in [1..numcol - 1]
    append = {@append, " - ", @data[x + length(data) / numcol * y + length(data) % numcol]}
  endfor
  newdata = {@newdata, append}
endfor
if (length(data) % numcol)
  partcol = data[$ / numcol + 1]
  for z in [2..length(data) % numcol]
    partcol = {@partcol, " - ", @data[$ / numcol + z]}
  endfor
  newdata = {@newdata, partcol}
  while (length(newdata[$]) != numcol - 1 + length(data[1]) * numcol)
    newdata[$] = listappend(newdata[$], "")
  endwhile
endif
this:tellcolumns(newjust, newratio, newhead, @newdata)
"Last modified by Lao-Tzu (#8084) on Mon Feb  5 13:19:57 2001 MST."
.

0