263 (switched some vars)

Your code has potential, benny... I wouldn't be surprised if we could get this below 250

 Code:
; begin Linear Pachinko
;
;!

Function a($b)
Dim $,$d,$e,$x,$y

	For $d = 1 to $b^0
		$=SubStr($b,$d,1)

		$x=f($b,$d,~)
		$y=f($b,$d,1)
		$e=$e+$x*($='/')+$y*($=\)+($x+$y)/2*($='|')+100*($='.')
		$a=$e/($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
_________________________
The Code is out there