Type n
   Field n
End type

Print "create type"
For c = 1 To 10
   n.n = New n
   n\n = c

Next

Print "mix"
mix

For n.n = Each n
   Print n\n
next

function mix()
   For d = 1 To 3
      For n.n = Each n
         If Rand(0,3) Insert n Before First n
      Next
   Next
End function

Type n  Field n End Type

Print "create type"
For c = 1 To 10;5000
   n.n = New n
   n\n = c
Next

Print "mix"
time =MilliSecs()
mix
Print MilliSecs ()-time +" Millisekunden"

WaitKey
For n.n = Each n
   Print n\n
Next

WaitKey

Function mix()
    a1.n=First n
    anz =1
    While a1<>Null
        a2.n = a1
        a3.n = a1
        a1 =After a1
        Zaehler =Rand (0,anz)
        While Zaehler
            a3 =Before a3
            Zaehler =Zaehler-1
        Wend
        If a3 =Null Then
            a2=First n
        Else
            Insert a2 Before a3
        EndIf
        Anz = anz +1
    Wend
End Function

For n.n = Each n
         If Rand(0,3) Insert n Before First n
      Next