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