@verb #7639:"draw_grid" this none this rxdo #4017
@program #7639:"draw_grid" this none this
{?height = 25, ?width = 50} = args
text = {}
for x in [1..height]
  if (x == height / 2)
    text = listappend(text, $su:center("", width, "="))
  else
    text = listappend(text, $su:center("|", width))
  endif
endfor
return text
"Last modified by Patrick (#4017) on Tue Nov 20 19:49:09 2001 MST."
.