function a($,$p)
  dim $i,$t
  for $i=9 to 1 step -1
    while instr($,$i) & $t=0
      $t=$p=0 & $i=$
      $p=iif($p,$p-1,($^)/2)
      $a=$a+1*$/$i
      $=right($,-2) + left(_+$,($i>$)*2)
endfunction

Your solution passed all tests

KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_pq.kix

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Printer Queue
Processing Start = 2007/11/16 13:25:35.515
Processing End   = 2007/11/16 13:25:36.109
Duration         = 0000/00/00 00:00:00.593
KiXGolf Score    = 149

Thank you for participating in KiXtart Golf!