Forums Scripts & Popups Make this go faster?

alias bm7 {
  var %start = $ticks
  bset -t &a 1 $str($lf,900)
  while ($bvar(&a,0) < 7200) bcopy &a $calc($v1 + 1) &a 1 -1
  bcopy &a 7201 &a 1 2800
  btrunc gazillion.txt 0
  bwrite gazillion.txt 0 -1 &a
  filter -ffnc gazillion.txt gazillion.txt
  echo -a (qwerty) Filter benchmark took $calc(($ticks - %start) / 1000) seconds
}