alias selscript sendkeys % $+ r%v $str({down}, $calc($$1 - 1)) {Enter}
alias sendkeys {
var %i = 1
while ($com(sendkeys $+ %i)) { inc %i }
var %n = sendkeys $+ %i
.comopen %n WScript.Shell
if (!$comerr) {
var %b = $com(%n,SendKeys,3,bstr,$1-)
.comclose %n
}
}