View/Edit #7639:frame

Name(s): frame

1:  {text, ?vborder = "|", ?hborder = "-", ?space = 1} = args
2:  NUM = 0
3:  for x in (text)
4:    if (`length(x) > NUM ! ANY => 0')
5:      NUM = length(x)
6:    endif
7:  endfor
8:  btext = {var = " " + $su:center("", NUM, hborder)}
9:  for x in (text)
10:   btext = setadd(btext, vborder + `$su:center("", space, " ") ! ANY => ""' + x + $su:center("", NUM - length(x), " ") + vborder)
11: endfor
12: return listappend(btext, var)
13: "Last modified by Patrick (#4017) on Tue Nov 20 14:55:12 2001 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Drizzt (#4017)

You are not logged in.