Code:
function a($)
   dim $s[9], $c, $e, $k, $l, $m, $i
   $s = Split($," ")
   for $i = 9 to 0 step -1
      $k = Substr($s[$i],1,1)
      $l = Substr($s[$i],2,1)
	   if $i = 9
	      if $k = "X"
		      $m = Substr($s[$i],3,1)
				if $m = "/"
				   $a = 20
				else
		         $a = 10 + d($l) + d($m)
				endif
			else
			   if $l = "/"
		         $m = Substr($s[$i],3,1)
		         $a = 10 + d($m)
				else
				   $a = 0 + d($k) + d($l)
				endif
         endif
	      $c = $k
		   $e = $l
      else
	      if $k = "X"
		      $a = $a + d($k) + d($c) + d($e)
            $e = $c
		      $c = $k
		   else
		      if $l = "/"
			      $a = $a + d($l) + d($c)
	            $c = $k
		         $e = 10 - $k
			   else
			      $a = $a + d($k) + d($l)
	            $c = $k
		         $e = $l
			   endif
		   endif
		endif
	next
endfunction
;!
function d($)
   $d = iif(InStr($, "X") or InStr($, "/"),10,iif(InStr($, "-"),0,$))
endfunction


I obviously over complicated it. \:\(