/ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#help #OperheLp,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }

/amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if !$istok(#help #XX #x #örnek,$chan(%i),32) { msg $chan(%i) $1- } } }

 
alias ame {
  var %x 1
  while %x <= $chan(0) {
    if ($istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5 #kanal6,$chan(%x),32) == $false) {
      describe $chan(%x) $1-
    }
    inc %x
  }
}
alias amsg {
  var %x 1
  while %x <= $chan(0) { 
    if ($istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5 #kanal6,$chan(%x),32) == $false) {
      msg $chan(%x) $1- 
    }
    inc %x 
  } 
}