RosettaCodeData/Task/Knuth-shuffle/M2000-Interpreter/knuth-shuffle.m2000

Dim Base 0, A(3)
For k=1 to 6 {
      A(0):=10,20, 30
      For i=len(A())-1 to 0 {
            let j=random(0,i)
            Swap a(i), a(j)
      }
 Print A()
}