Here is my 229. I could never figure out how to do it without 100.0 and the fix(). 
; begin Linear Pachinko 
; 
;! 
function a($)
  dim $l,$i,$r
  $l=0^$
  $r=split("_cc.c1c\1c11c|/c|0c||c22c1/c11c\|c0|c0|1c21c1|0c12c/c1c\c1c222c2c|c1",c)
  while $i<26
    $=join(split($,$r[$i]),$r[$i+1])
    $i=$i+2
  loop
  while $
    $a=$a+100.0/$l/($ mod 10)
    $=left($,~)
  loop
  $a=fix($a)
endfunction
;! 
;! 
; end Linear Pachinko