; 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,-1)
		$x=f($b,$d,~)
		$y=f($b,$d,1)
;		If $c = '/'
			$=$+$x*($c='/')
;		Else
;			If $c = \
				$=$+$y*($c=\)
;			Else
				;If $c = '|'
					$=$+($x+$y)/2*($c='|')
				;Else
;					If $c = '.'
						$=$+100*($c='.')
;					EndIf
;				EndIf
;			EndIf
;		EndIf
;	Next
	$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
;			EndIf
;		EndIf
;	Loop
EndFunction
;!
;!
; end Linear Pachinko