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