153 from jochen's:
 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 = ($b>1) + (2*($=X)^$="/")*($x<!)
endfunction
_________________________
!

download KiXnet