Right Gentlemen,
for what's it worth anyway, I'll just post, beyond competition,
my 472(changed last case condition to case 1)

Code:

function s($)
    dim $![$+$*($+1)], $_, $0, $1
    $![0] = " "
    for $_ = 1 to $
        $![0] = "W" + $![0] + "B"
    next
    for $_ = 1 to ubound($!)
        $ = split($![$_-1]," ")
        $0 = right($[0],1)
        $1 = left($[1],1)
        select
            case instr($[1],"B")=2 and $1 = "W"                                                       ;^B
                $![$_] = $[0] + "B" + $1 + " " + right($[1],-2)
            case ($0 = "B" and $1 = "B" and instr($[0],'W')) or ($0 = "B" and instr($[1],'B') = 0)    ;W^
                $![$_] = left($[0],-2) + " " + $0 + "W" + $[1]
            case $0 = "W" and ( instr($[0],"B")=0 or instr($[1],"B")=0 )                              ;W->
                $![$_] = left($[0],~) + " W" + $[1]
            case 1                                                                                    ;<-B
                $![$_] = $[0] + "B " + right($[1],~)
        endselect
    next
    $s = $!
endfunction


that is :

Code:

Shuttle Puzzle passed all 10 tests (100% correct)

KiXtart
KiXtart Version  = 4.52
KiXforms Version = 
KiXGolf Script   = KIXGOL~1.KIX

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 13
Speed            = 1698 MHz
Memory           = 1022 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.2

KiXtart Golf Score
Tournament       = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/16 15:42:24.625
Processing End   = 2006/09/16 15:42:24.665
Duration         = 0000/00/00 00:00:00.040
KiXGolf Score    = 472
 
Thank you for participating in KiXtart Golf!


Having said that, I wish y'all a superb weekend and
successful golfing
_________________________