function a($s)
	dim $,$t,$y,$z
	while $s
		$ = left($s,1)
		$s = right($s,~)
		if $>#
			$a = (1+$y+$z)*(10*($=x)+$+($='/')*(10-$t)) + $a
			$z = ($t=x)*$y
			$y = ($=x | $='/')*($s<#)
			$t = $
		;endif
	;loop
endfunction

function a($x)
    dim $v, $b, $
    while $x
        $ = left($x,1)
        $x = right($x,~)
        if $>!
            $v = ($=X)*10 + $ + ($="/")*(10-$v)
            $a = $a + ($b-($b>1)+1)*$v
            $b = ($b>1) + (2*($=X)^$="/")*($x<!)
endfunction

function a($z)
   Dim $o,$j,$,$l,$v[22],$d[22]
   $o=split($z," ")
   $j=join($o,"")
   for $=1 to 22
      $l=substr($j,$,1)
      $d[$]=$l
      $v[$]=iif($l=X,10,iif($l="/",10-$v[$-1],cint($l)))
      $a=$a+$v[$]
   next
   for $=1 to len($j)-len($o[9])
      if $d[$]="/"
         $a=$a+$v[$+1]
      else
         if $d[$]=X
            $a=$a+$v[$+1]+$v[$+2]
;         endif
;      endif
;   next
endfunction

function a($i)
dim $1,$
  $=join(split($i),'')
  $1=left($,1)
  $a=substr($,3,1)
  $=substr($,2,1)
  if $
  $a=($a='/')*(10-$)+$+iif($1=x | $='/',10*(1+(x=$a)+($=x))+$a,$1)+a(right($i,(x=$1)-3))
endfunction

function a($x)
    dim $v, $b, $
    while $x
        $ = left($x,1)
        $x = right($x,~)
        if $>!
            $v = ($=X)*10 + $ + ($="/")*(10-$v)

            $a = $a +($b+($b<2))*$v
            $b = ($b>1) + (2*($=X)^$="/")*($x<!)
endfunction

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

2*($=X)^$="/"