--- Revision 653663393632
+++ Revision 323563663339
@@ -5,17 +5,27 @@
 Function ArrayShuffle(ByVal src())
 	Dim res
 	res = ArrayCopy(src)
-	Dim t
-	Dim j
 	Dim u
 	u = UBound(res)
+	Dim i
 	For i = u To 1 Step -1
+		Dim j
 		j = NumberRandom(0, i + 1)
+		Dim t
 		t = res(j)
 		res(j) = res(i)
 		res(i) = t
 	Next
 	ArrayShuffle = res
+End Function
+
+Function ArrayCopy(ByVal src())
+	Dim res(UBound(src))
+	Dim i
+	For i = 0 To UBound(res)
+		res(i) = src(i)
+	Next
+	ArrayCopy = res
 End Function
 
 Function NumberRandom(ByVal min, ByVal max)
@@ -25,11 +35,3 @@
 	res = Int(Rnd() * len) + min
 	NumberRandom = res
 End Function
-
-Function ArrayCopy(ByVal src())
-	Dim res(UBound(src))
-	For i = 0 To UBound(res)
-		res(i) = src(i)
-	Next
-	ArrayCopy = res
-End Function