well, this might cause me to lose, but I don't wanna stop playing, even though everyone else has.
so, here is the new leader, 133:

Your solution passed all tests

KiXtart
KiXtart Version  = 4.60 Beta 1
KiXGolf Script   = kixgolf_pq.kix

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Printer Queue
Processing Start = 2007/11/18 04:31:51.325
Processing End   = 2007/11/18 04:31:52.997
Duration         = 0000/00/00 00:00:01.671
KiXGolf Score    = 133

 Code:
Function a($,$p)
Dim $c, $i
	While ~$p
		$a = $a + (x>$c)
		$p = $p - 1
		$c = 0+$
		$ = substr($,3)
		For $i=1 to 8
			If instr($,$c+$i)
				$  = $ + ! + $c
				$c=x
				if $p < 0 $p = ($^) / 2
EndFunction
_________________________
!

download KiXnet