anyways, now I'm proud of myself. didn't like the cryptic line of maciep's code, so shrank it:
Code:

Shuttle Puzzle passed all 10 tests (100% correct)

KiXtart
KiXtart Version  = 4.53 Release Candidate 1
KiXforms Version =
KiXGolf Script   = kixgolf_shuttle.kix

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 13
Speed            = 800 MHz
Memory           = 760 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.2

KiXtart Golf Score
Tournament       = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/16 22:39:56.031
Processing End   = 2006/09/16 22:39:56.265
Duration         = 0000/00/00 00:00:00.233
KiXGolf Score    = 220

Code:

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

   for $i = -$a+1 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