Hit myself against my head for missing this:

Left($b,Len($b)-2) = Left ($b,-2)

So bringing the total down to 308

Code:
Function s($z)
	
	Dim $,$a,$b,$c,$d
	
	$=' '
	For $a=1 to $z
		$=W+$+B
		$b=$b+$z+2
	Next
	ReDim $s[$b]
	For $a=0 to $b
		$s[$a]=$
		$=Split($)
		$b=$[0] ;Left
		$c=$[1] ;Right
		$d=Right($b,2) ;Right chrs of Left Half
		$z=Left($c,2)  ;Left chrs of Right Half
		Select
			Case $d=WB
				$=Left($b,-2)+' BW'+$c
			Case $z=WB
				$=$b+'BW '+Right($c,-2)
			Case Not($d=W Or $d=WW) And Left($z,1)=B
				$=$b+'B '+Right($c,~)
			Case 1
				$=Left($b,~)+' W'+$c
		;EndSelect
	;Next
	
EndFunction
Code:
Shuttle Puzzle passed all 10 tests (100% correct)

KiXtart
KiXtart Version  = 4.51
KiXforms Version =
KiXGolf Script   = kixgolf_shuttle.kix

Computer
OS               = Windows Server 2003
CPU              = AMD Athlon(tm) XP 2000+
Speed            = 1670 MHz
Memory           = 1024 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.2

KiXtart Golf Score
Tournament       = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/18 17:34:04.064
Processing End   = 2006/09/18 17:34:04.486
Duration         = 0000/00/00 00:00:00.421
KiXGolf Score    = 308

Thank you for participating in KiXtart Golf!

Edited by RemcovC (2006-09-18 05:38 PM)
_________________________
It's better to have scripted and died, then to never have scripted at all