@verb #100:"read" this none none rdo #55
@program #100:"read" this none none
"Take a snapshot of the current heap"
heap = this.heap
if (length(heap) == 3)
  return player:tell("No tasks.")
endif
lines = {}
while (!$lazy_heap_utils:is_empty(heap))
  top = $lazy_heap_utils:minimum(heap)
  heap = $lazy_heap_utils:delete_minimum(heap)
  {info, call_stack, task} = top
  {priority, object, verb, args, perms, plyr} = info
  lines = {@lines, {priority, tostr(object, ":", verb), $string_utils:nn(perms), $string_utils:nn(plyr)}}
endwhile
player:tellColumns({5, 25, 25, 20}, {"priority", "verb call", "perms", "Errors to"}, @lines)
player:tell("--- Total ", length(lines), " tasks.")
"Last modified by Dax (#789) on Thu May 14 14:02:12 1998 EDT."
.