well...
how about 149?
 Code:
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 = instr("/X",$)*($x<!) + $b/2
endfunction
_________________________
!

download KiXnet