... and completely unnecessary

Kixgolf Score = 151

 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) + instr("/X",$)*($x<!)
endfunction
_________________________