@verb #56:"dispatch" this none this rxdo #55
@program #56:"dispatch" this none this
caller_perms():controls(this) || raise(E_PERM)
this.dispatch_queue = $list_utils:remove_duplicates({@this.dispatch_queue, @args}, 1)
if (!this.dispatch_queue)
  return
endif
if ($code_utils:task_valid(this.dispatch_task))
  return
endif
if (this.enabled)
  fork t (0)
    rt = 0
    while (this.dispatch_queue)
      if (!$code_utils:task_valid(rt))
        rt = this:_dispatch()
      endif
      suspend(15)
    endwhile
    boot_player(this)
  endfork
  this.dispatch_task = t
endif
"Last modified by Cecil (#7407) on Thu Jul 12 11:15:02 2001 MDT."
.