2a0
@verb #1247:"pack" this none this rxdo #8219
@program #1247:"pack" this none this
map = args[1]
while (this:row_empty(map[1]))
  map = map[2..$]
endwhile
while (this:row_empty(map[$]))
  map = map[1..$ - 1]
endwhile
while (this:col_empty(map, 1))
  newmap = {}
  for x in (map)
    newmap = {@newmap, x[2..$]}
  endfor
  $command_utils:suspend_if_needed(0)
  map = newmap
endwhile
while (this:col_empty(map, length(map[1])))
  newmap = {}
  for x in (map)
    newmap = {@newmap, x[1..$ - 1]}
  endfor
  $command_utils:suspend_if_needed(0)
  map = newmap
endwhile
return map
"Last modified by Avenger (#8219) on Sun Sep  8 19:49:12 2002 MDT."
.

0