damn, same mistake again!!! my luck that nobody else is watching this thread

Code:
KiXGolf Score    = 219

Code:

function s($a)
   dim $,$i,$c,$n,$t
   $=' '
   for $n = 1-$a to 0
      $ = Wa + $ + aB
   next
   $ = split($,a)
   $t=join($,'')

   for $i = 1-$a to $a
      $n=-$n
      for $c=$n*($a-abs($i)) to -$c step -2*$n
         $[ascan($,' ')] = $[$c+$a]
         $[$c+$a]=' '
         $t=$t+a+join($,'')
         $s=split($t,a)
endfunction