alias  amsg {
var %ahua = 1 
while $chan(%ahua) { 
  if !$istok(%knl,$v1,32) {
    msg $chan(%ahua) $1- 
  }
  inc %ahua
}

alias Ekle {
  if #* !iswm $1 {
    echo -a 2Kanalları eklerken başına %x koyun.
  }
  elseif $1 isin %knl {
    echo -a 2 $1 Kanalı listede zaten var
  }
  else {
    set %knl $addtok(%knl,$1,32) | echo -a 2 $1 Kanalı eklendi.
  }
}
alias Sil {
  if #* !iswm $1 {
    echo -a 2Kanalları silerken başına %x koyun.
  }
  elseif $1 !isin %knl {
    echo -a 2 $1 listede bulunamadığı için silinemedi
  }
  else {
    set %knl $remtok(%knl,$1,32) | echo -a 2 $1 silindi
  }
}