@verb #4980:"update_hyperlist" none none none rxd #9223
@program #4980:"update_hyperlist" none none none
h = this.hyperpeople
this.owner:tell()
this.owner:tell("          ==================================================================")
this.owner:tell("          **************** hyperlist (by :update hyperlist) ****************")
this.owner:tell("          ==================================================================")
tmp = tmp2 = tmp3 = {}
for rec in (h)
  rec = {"     ", @rec}
  tmp = {@tmp, rec}
endfor
a1 = $list_utils:slice(tmp, 1)
a2 = $list_utils:slice(tmp, 2)
a3 = $list_utils:slice(tmp, 3)
a4 = $list_utils:slice(tmp, 4)
tmp = {@a1, @a2, a3, a4}
item2 = ""
tmp3 = {}
for item in (tmp)
  if (typeof(item) == $LIST)
    for critter in (item)
      tmp3 = {@tmp3, toliteral(critter)}
    endfor
  else
    tmp3 = {@tmp3, item}
  endif
endfor
tmp = tmp3
tmp = $string_utils:columnize(tmp, 4)
for line in (tmp)
  this.owner:tell(":update_hyperlist line -> ", line)
endfor
this.owner:tell("          ==================================================================")
this.owner:tell()
"Last modified by Dax (#789) on Tue May  3 13:45:06 2005 MDT."
.