on 1:TABCOMP:#: {
  if ($0 > 1) {
    set %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32)
  }
  var %s_ = $eval($+($,$0),2)
  if !$istok(%tab,%s_ ,32) {
    set %tab %tab %s_
    tabtus
  }
  .timertab -m 1 300 tabver
}
alias -l tabver {
  var %nextnick = $gettok(%tab,1,32)
  editbox %_pretab %nextnick
  var %newtab = $gettok(%tab,2-,-1)
  unset %tab
  if (%newtab) {
    set %tab %newtab
  }
}
alias -l tabtus {
  .comopen scrll WScript.Shell
  noop $com(scrll,sendkeys,1,bstr,{TAB})
  .comclose scrll
}
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab) 
}