well, here is 294:
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 $d<W & Left($z,1)=B
$=$b+'B '+Right($c,~)
Case 1
$=Left($b,~)+' W'+$c
EndFunction