alias chmm {
  var %mc1 = 1,%mch = $comchan($me,0) 
  while (%mc1 <= %mch) { 
    if !$istok(#kanal1 #kanal2 #kanal3,$comchan($me,%mc1),32) { 
    /mode $comchan($me,%mc1) +m }
    inc %mc1
  }
}
alias chm_ { 
  var %cm1 = 1,%ch_m = $comchan($me,0) 
  while (%cm1 <= %ch_m) { 
    if !$istok(#kanal1 #kanal2 #kanal3,$comchan($me,%cm1),32) { 
    /mode $comchan($me,%cm1) -m }
    inc %cm1
  }
}
menu channel {
  .Kanal +-m Modu
  ..+m:/chmm
  ..-m:/chm_
}