alias scripts {
  if ($dialog(loaded_scripts)) dialog -x loaded_scripts
  dialog -m loaded_scripts loaded_scripts
  var %s 1
  var %l 1
  while (%s <= $nopath($script(0))) {
    if ($left($replace($script(%s), $mircdir, $null),5) == LiGHT) {
      did -a loaded_scripts 4 $nopath($script(%s)) $crlf
      did -a loaded_scripts 5 $bytes($file($shortfn($script(%s))).size,k3) Kb $crlf
      did -a loaded_scripts 6 $replace($script(%s), $mircdir, $null) $crlf
      did -a loaded_scripts 8 $lines($script(%s)) $crlf
      var %size = $calc($bytes($file($shortfn($script(%s))).size,k3) + %size)
      var %lines = $calc($lines($script(%s)) + %lines)
      inc %l 
    }
    inc %s
  }
  did -a loaded_scripts 4 $crlf *.mrc
  did -a loaded_scripts 8 $crlf %lines $crlf
  did -a loaded_scripts 5 $crlf %size Kb $crlf
  did -a loaded_scripts 6 $crlf LiGHT\* $crlf
  did -a loaded_scripts 7 Total number of loaded scripts: %s ( %l LiGHT )
}