Function s($z)
	
	Dim $,$a,$b,$c,$d,$e,$f[$z*($z+2)]
	
	$=' '
	For $a=1 to $z
		$=W+$+B
	Next
	For $a=0 to $z*($z+2)
		$f[$a]=$
		$=Split($)
		$b=$[0] ;Left
		$c=$[1] ;Right
		$d=Right($b,2) ;Right chrs of Left Half
		$e=Left($c,2)  ;Left chrs of Right Half
		Select
			Case $d=WB
				$=Left($b,Len($b)-2)+' BW'+$c
			Case $e=WB
				$=$b+'BW '+Right($c,Len($c)-2)
			Case Not($d=W Or $d=WW) And Left($e,1)=B
				$=$b+'B '+Right($c,Len($c)-1)
			Case 1
				$=Left($b,Len($b)-1)+' W'+$c
		;EndSelect
	;Next
	
	$s=$f
	
EndFunction