Forums Scripts & Popups while loop

alias hintq {
  var %a, %b = $regsub($1-,/\S/g,.,%a), %r = $r(0,6), %c
  bset -tc &a 1 %a
  bset -tc &b 1 $1-
  while %r {
    %c = $pos($bvar(&a,1-).text,.,$r(1,%b))
    bcopy &a %c &b %c 1
    dec %r | dec %b
  }
  return $bvar(&a,1-).text
}