22c
@verb #7639:"frame" this none this rxdo #4017
@program #7639:"frame" this none this
{text, ?vborder = "|", ?hborder = "-", ?space = 1} = args
NUM = 0
for x in (text)
  if (`length(x) > NUM ! ANY => 0')
    NUM = length(x)
  endif
endfor
btext = {var = " " + $su:center("", NUM, hborder)}
for x in (text)
  btext = setadd(btext, vborder + `$su:center("", space, " ") ! ANY => ""' + x + $su:center("", NUM - length(x), " ") + vborder)
endfor
return listappend(btext, var)
"Last modified by Patrick (#4017) on Tue Nov 20 14:55:12 2001 MST."
.

0