Forums Scripts & Popups speed of access

alias speedtest {
  var %cnt = 1
  var %ticks = $ticks
  while (%cnt <= 5000) {
    noop mode $chan +q $snicks $+ $crlf $+ mode $chan -q $snicks $+ $crlf $+ mode $chan +v $snicks
    inc %cnt
  }
  echo -a Time to complete: $calc(($ticks - %ticks) / 1000)
}

alias speedtest {
  var %cnt = 1
  window @SpeedTest
  var %ticks = $ticks, %chan = $chan, %snicks = $snicks
  while (%cnt <= 5000) {
    echo @SpeedTest mode %chan +q %snicks $+ $crlf $+ mode %chan -q %snicks $+ $crlf $+ mode %chan +v %snicks
    inc %cnt
  }
  echo -a Time to complete: $calc(($ticks - %ticks) / 1000)
}

alias speedtest1 {
  var %cnt = 10000, %ticks = $ticks
  while (%cnt) {
    noop mode $chan +q $snicks $+ $crlf $+ mode $chan -q $snicks $+ $crlf $+ mode $chan +v $snicks
    dec %cnt
  }
  echo -a (speedtest1): $calc(($ticks - %ticks) / 1000)
}
alias speedtest2 {
  var %cnt = 10000, %ticks = $ticks, %chan = $chan, %snicks = $snicks
  while (%cnt) {
    noop mode %chan +q %snicks $+ $crlf $+ mode %chan -q %snicks $+ $crlf $+ mode %chan +v %snicks
    dec %cnt
  }
  echo -a (speedtest2): $calc(($ticks - %ticks) / 1000)
}
alias speedtest {
  var %cnt = 5
  while (%cnt) {
    speedtest1
    speedtest2
    linesep -a
    dec %cnt
  }
}