alias kaydır {
  $iif($1-,$iif($left($gettok($1-,1,32),1) == $chr(35),set %kaydd. [ $+ [ $gettok($1-,1,32) ] ] $remove($1-,$gettok($1-,1,32)),set %kaydd $remove($1-,$chr(32))),set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBak)
  if (!%kaydd) { %kaydd = %kaydd. [ $+ [ $gettok($1-,1,32) ] ] }
  if (%kaydd == $null) { .set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBak }
  if ($len($remove(%kaydd,$chr(32))) < 40) { %kaydd = $remove($+(%kaydd,$str(.,$calc(40 - $len(%kaydd)))),$chr(32)) }
  else { if ($len($remove(%kaydd,$chr(32))) > 40) { set %kaydd $left($remove(%kaydd,$chr(32)),40) } }
  var %;&#252; 1
  var %b. $len(%kaydd)
  var %tim3 1
  while (%;&#252; <= %b.) {
    $iif($left($gettok($1-,1,32),1) == $chr(35),%activech = $gettok($1-,1,32),$iif($active != Status Window,%activech = $active,return))
    if (%;&#252; <= 10) { msg %activech $right($left(%kaydd,%;&#252;),1) }
    else { 
      if ((%;&#252; >= 10) &&   (%;&#252; <= 20)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;&#252;),1) }
      elseif  ((%;&#252; >= 20) &&   (%;&#252; <= 30))  {  .timer 1 %tim3 msg %activech $right($left(%kaydd,%;&#252;),1) }
      elseif ((%;&#252; >= 30) &&   (%;&#252; <= 40))  { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;&#252;),1) }
    }
    inc %;&#252;
  }
  unset %kaydd
  unset %kaydd. [ $+ [ $gettok($1-,1,32) ] ]
  unset %q-
  unset %activech
}