; begin Linear Pachinko
;
;!
Function a($b)
Dim $c,$d,$,$x,$y

	For $d = 1 to $b^0
		$c=SubStr($b,$d,1)
		$x=f($b,$d,~)
		$y=f($b,$d,1)
		$=$+$x*($c='/')+$y*($c=\)+($x+$y)/2*($c='|')+100*($c='.')

	$a=$/($b^)

EndFunction

Function f($g,$,$h)
	Dim $j
	
	While $h
		$=$+$h
		$j=SubStr($g,$,1)
		If $j <> _
			$h=0
			If $j = '.' | $ < 1 | $ > ($g^)
				$f=100
EndFunction
;!
;!
; end Linear Pachinko