Ok now I understand, Gargoyle and I are the only ones from Earth.

Gargoyle, our solutions are almost the same thought process.

Here is my 288:

 Code:
; 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)
    $y=f($b,$d,1)
    If $c = '/'
      $=$+$x
    Else
      If $c = \
        $=$+$y
      Else
        If $c = '|'
          $=$+($x+$y)/2
        Else
          If $c = '.'
            $=$+100
          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
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)