Code:
/parsemodes {
  /set -u0 %param 2
  /set -u0 %m 1
  while (%m <= $len($gettok($1, 1, 32))) {
    /set -u0 %chr $mid($gettok($1, 1, 32), %m, 1)
    if (%chr == +) || (%chr == -) { /set -u0 %mod %chr }
    else {
      if ((%chr isincs $remove($gettok($chanmodes,1-3,44),$chr(44))) || (%chr isincs qaohv)) {
        /set -u0 %modes $addtok(%modes, $+(%mod,%chr,:,$gettok($1, %param, 32)), 32)
        /inc -u0 %param
      }
      else { /set -u0 %modes $addtok(%modes, $+(%mod,%chr), 32) }
    }
    /inc -u0 %m
  }
  return %modes
}



Use that alais, then sue something like:

menu channel {
$iif($istok($parsemodes($chan(#).mode, +mode, 32), True, False): /blah
}
}