.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 
  } 
}