Let's continue...338 \:D

 Code:
Your solution passed all tests

KiXtart
KiXtart Version  = 4.60
KiXGolf Script   = kixgolf_ls.KIX

Computer
OS               = Windows XP Professional
CPU              = Intel(R) Pentium(R) D CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 1008 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Latin Squares
Processing Start = 2009/01/07 15:16:38.304
Processing End   = 2009/01/07 15:16:38.508
Duration         = 0000/00/00 00:00:00.204
KiXGolf Score    = 338

Thank you for participating in KiXtart Golf!


 Code:
; begin KiXgolfUDF
;
;!
Function S($o)
  Dim $i, $, $k, $t, $x, $v, $p
  
  For $x = 0 to 16
    ReDim $s[3, 3, $x], $r[11]
    
    For $ = 0 to 7
      For $i = 0 to 3
        $v = $o[$ mod 4, $i]
        $k = 3-2*($ mod 4 <2)-($i<2)
        If $ < 4
          $r[$i] = $r[$i] + $v
          $r[4+$] = $r[4+$] + $v
          $r[8+$k] = $r[8+$k] + $v
          $s[$, $i, $x] = $v
        Else
          If 0 > AScan($r,x,,,1)
            Exit
          Else
            $p = @
            For $t = 1 to 4
              If 0 = InStr($r[$]+$r[$i]+$r[8+$k],$t) + $v
                $p = $p + $t
              EndIf
            Next
    
            If 1=($p^)
              $o[$-4,$i] = $p
              $ = 7
              $i = 3
EndFunction

;!
;!
; end KiXgolfUDF
_________________________
The Code is out there