alias flash {
  var %a = $ticks, %b = $$1, %c = $$2
  if (!$com(%a)) .comopen %a wscript.shell
  if (!$comerr && %b isnum 1-) { 
    while (0 <= %b) { 
      .timer 1 %c /noop $com(%a,sendkeys,3,bstr*,$+($chr(123), $&
        $gettok(CAPSLOCK NUMSLOCK SCROLLLOCK,$r(1,3),32), $& 
        $chr(125)))
      dec %b
    }
  }
}