My 174. I'm already getting Doh! moments looking at some of the tricks in the code that has already been posted.


Function a($p)
    Dim $b,$c,$x,$
    $c=1
    For $a=1 to $p^0
        $x=SubStr($p,$a,1)
        If $x<>_
            $=$+$c*InStr("|/",$x)
            $c=0
            If $x="."
                $=$+2+$b
                $c=1
            EndIf
            $b=InStr("|\",$x)
        EndIf
    Next
    $a=($+$b)*50/($p^0)
EndFunction