Function asdf(x,y,color)
feld(x,y) = 0
If feld(x+1,y) = color then asdf(x+1,y,color)
'...
End Function

If feld(x+1,y) = color then asdf(x+1,y,color)

Graphics 800,600,0,2

Global Zaehler% , i%
Dim BrickFeld%(30,30)
Dim BrickFeldCopy%(30,30)

For i=0 To 20
   BrickFeld(0,i)=1
   BrickFeld(20,i)=1
   BrickFeld(i,0)=1
   BrickFeld(i,20)=1
Next

For i=0 To 400
   X=Rand(1,19)
   Y=Rand(1,19)
   C=Rand(2,9)
   BrickFeld(x,y)=c
Next

Repeat
   MausX=MouseX()/20
   MausY=MouseY()/20

   If (MausX>0 And MausX<20) And (MausY>0 And MausY<20)
      Cls
      Color 55,55,55
      Rect MausX*20-4,MausY*20-4,20,20
      For X=0 To 20
         For Y= 0 To 20
            Wert=Brickfeld(x,y)
            If Wert>0 Then
               Color Wert*25,111,255-Wert*25
               Text x*20,y*20,Wert
            EndIf
         Next
      Next
   TesteHier MausX, MausY
   Color 255,255,255
   Text 30,500,"Gefunden: " + Zaehler
EndIf
Delay 15
Flip
Until KeyHit(1)
End

Function TesteHier(PosX%, PosY%)
Zaehler=0
   If BrickFeld(posX, posY)>0 Then
   For i=0 To 20
   For j=0 To 20
   brickFeldCopy(i,j)=brickFeld(i,j)
   Next
   Next
   TesteRekursiv PosX, PosY, BrickFeldCopy(posX, posY)
   EndIf
End Function

Function TesteRekursiv(X%, Y%, Wert%)
;leider nicht gewonnen:
If BrickFeldCopy(X,y) <> Wert Then Return
; richtiges Feld gefunden:
BrickFeldCopy(X,Y)=99
Zaehler = Zaehler +1
TesteRekursiv X-1, Y  , Wert
TesteRekursiv X+1, Y  , Wert
TesteRekursiv X  , Y-1, Wert
TesteRekursiv X  , Y+1, Wert
End Function