menu channel {
  .$iif($group(#coltxt).status iswm on, Auto-color is on, Auto-Color is off)
  ..Turn auto-color off:disable #coltxt
  ..Turn auto-color on:enable #coltxt
}

#coltxt off
on *:input:*:{
  if ($left($1,1) == /) || ($left($1,1) == !) { goto last }
  msg $active PUT COLOR CODE HERE $+ $1-
  halt
  :last
}
#coltxt end