Something

/amode {
  var %x = 0
  while (%x < $chan(0)) {
    inc %x
    if ($chan(%x) != #Vivec) {
      mode $chan(%x) $1-
    }
  }
}