Code:
On *:Start: {
  echo -a $event
  dialog -mo loaded.scripts loaded.scripts
}

dialog loaded.scripts {
  title "Loaded Scripts"
  size -1 -1 112 111
  option dbu
  list 1, 3 3 105 105, size
  box "", 2, 2 -1 108 111
}

On *:Dialog:loaded.scripts:init:0: {
  var %x = 1
  did -b $dname 1
  while (%x <= $script(%x)) {
    .timer 1 %x if ($dialog(loaded.scripts)) did -a $dname 1 $nopath($script(%x))
    inc %x
  }
}


-Andy