;Aufgabe: Nie 3 Werte bei X oder Y sollen aufeinander folgen.

SeedRnd = MilliSecs()
;Dim wird erstellt mit 10 * 10 Feld´
Dim test%(10,10)
Local temp%
Local tempString$
;Routine
For x = 0 To 10
   For y = 0 To 10
      ;Falls noch keine 3 Werte erstellt wurden sind,
      ;wird nix überprüft
      If y < 2 Then
         test(x,y) = Int(Rnd(0,6))
      Else
         ;
         .startY
         test(x,y) = Int(Rnd(0,6))
         ;Alle Beide Positionen vor Y werden zu einem String gefügt
          tempString$=String(test(x,y),1)+String(test(x,y-1),1)+String(test(x,y-2),1)
         ;Jetzt wird Überprüft ob es 3 aufeinander folgende Zahlen sind
         Select tempString$
            Case "000","111","222","333","444","555","666"
               ;Falls 3 aufeinander folgende Zahlen vorhanden sind, dann wird
               ;zu startY gesprungen und von dort aus wird nochmal ein neuer
               ;Rnd Wert erstellt
               Goto startY
         End Select
      EndIf 
      ;Bei X ist das selbe Schema wie bei Y
      If x < 2 Then
         test(x,y) = Int(Rnd(0,6))
      Else
         .startX
         test(x,y) = Int(Rnd(0,6))
          tempString$=String(test(x,y),1)+String(test(x-1,y),1)+String(test(x-2,y),1)
         Select tempString$
            Case "000","111","222","333","444","555","666"
               Goto startX
         End Select
      EndIf          
   Next
Next

Graphics 800,600,16,2
SetBuffer BackBuffer()

;Feld wird gezeichnet
For x = 0 To 10
   For y = 0 To 10
      Text 10+15*x,10+15*y,test%(x,y)
   Next
Next 

WaitKey()
End