; begin Linear Pachinko 
; 
;! 
Function a($)
dim $l,$i,$r
	$l=0^$
	$r=split("_  . 1 \1 11 |/ |0 || 22 1/ 11 \| 0| 0|1 21 1|0 12 / 1 \ 1 222 2 | 1")
	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