配列の要素をシャッフルしたい

DIM list[] = 1,2,3,4,5,6,7,8,9,10

shuffle(list)

For num = 0 TO length(list)-1
	PRINT list[num]
NEXT

//---シャッフル関数
Procedure shuffle(var list[])
　Dim n = length(list)	//配列の要素数
　Dim i, r, tmp
　for i = 0 to n -1
　　r = random(n)
　　tmp = list[r]		//ランダムに選ばれたr番目の配列の値を取得
　　list[r] = list[i]	//配列i番目の値をr番目に入れる
　　list[i] = tmp		//入替え完了
　next
Fend