uses chaos
uses timeutil
seed=GetTickCount
int i,j
int d[100] 'int array or any other type
...
for i=100 to 1 step -1
  j=irnd(1,100)
  swap d[i],d[j]
next