333
 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 = 11-2*($ mod 4 <2)-($i<2)
        If $ < 4
          $r[$i] = $r[$i] + $v
          $r[4+$] = $r[4+$] + $v
          $r[$k] = $r[$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[$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