[edit]
found out that my tester was corrupt. thus this code does work and 245 is the leading score.
[/edit]
but if it does work on some other kixtart version, here is 245

Code:

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

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

Edited by Jooel (2006-09-16 02:47 PM)