; begin Linear Pachinko
;!
function a($)
    dim $b,$c,$d
    $c=0^$
    $=join(split($,_),'')
    $d=1
    while $
        $b=asc($)
        $=right($,~)
        $d=$d+(asc($)<47)
        $a=$a+50*(2*($b=46|$d*($b=47|$b=92))|$d*($b>99))
        $d=$b=46
    loop
    $a=$a/$c
endfunction
;!
;!
; end Linear Pachinko