341 for you benny

Code:
Function s($z)

Dim $,$a,$b,$c,$d,$e

$=' '
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
$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

EndFunction/Code:





_________________________
It's better to have scripted and died, then to never have scripted at all