Try this:
Code:
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
}

Last edited by qwerty; 13/10/04 02:23 PM.

/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com