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
}
}