Something

menu * {
  .control
  ..halfop: /firstwhileloop
  ..dehalfop: /firstwhileloop2
}
alias firstwhileloop {
  var %i = 1
  while (%i <= $snick(#,0)) {
    /mode $active +h $snick($active,%i)
    inc %i
  }
} 
alias firstwhileloop2 {
  var %i = 1
  while (%i <= $snick(#,0)) {
    /mode $active -h $snick($active,%i)
    inc %i
  }
}