rotating gives 276

Code:

Function s($a)
	
	Dim $,$d,$c
	
	$=' '
	For $d=1 to $a
		$=W+$+B
		$c=$c+$a+2
	Next
	ReDim $s[$c]
	For $a=0 to $c
		$s[$a]=$
		$=Split($)
		$c=$[0]
		$=$[1]
		$d=Right($c,2) ;Right chrs of Left Half
		Select
			Case $d=WB
				$=Left($c,-2)+' BW'+$
			Case Left($,2)=WB
				$=$c+'BW '+Right($,-2)
			Case $d<W & Left($,1)=B
				$=$c+'B '+Right($,~)
			Case 1
				$=Left($c,~)+' W'+$	
EndFunction
_________________________
!

download KiXnet