Nett. Für dieses spezielle Problem hätte ich jetzt in jedes Feld einen Wert 1-64 geschrieben und dann etwa 500x 2 zufällige Zelle "ausgetauscht"
Gernot
Code (glbasic) Select
DIM a[8][8]
// Klar oder?
FOR x=0 TO 7; FOR y=0 TO 7; y[x][y]=x+y*8+1; NEXT; NEXT
FOR i=0 TO 500
x1=RND(7); y1=RND(7); x2=RND(7); y2=RND(7)
merken = a[x1][y1]
a[x1][y1] = a[x2][y2]
a[x2][y2] = merken
NEXT
So long,Gernot