Friendpaste

--- Revision 393236386535
+++ Revision 633563306532
@@ -1,20 +1,6 @@
 Sub StringShuffle()
   	ThisComponent.CurrentSelection.FormulaArray = ArrayShuffle(ThisComponent.CurrentSelection.FormulaArray)
 End Sub
-
-Function ArrayRange(ByVal min, ByVal max)
-	Dim len
-	len = max - min
-	Dim res(len - 1)
-	Dim n
-	n = min
-	Dim i
-	For i = 0 To UBound(res)
-		res(i) = n
-		n = n + 1
-	Next
-	ArrayRange = res
-End Function
 
 Function NumberRandom(ByVal min, ByVal max)
 	Dim len
a	b
0	0		Sub StringShuffle()
1	1		ThisComponent.CurrentSelection.FormulaArray = ArrayShuffle(ThisComponent.CurrentSelection.FormulaArray)
2	2		End Sub
...
3		-
3		-	Function ArrayRange(ByVal min, ByVal max)
3		-	Dim len
3		-	len = max - min
3		-	Dim res(len - 1)
3		-	Dim n
3		-	n = min
3		-	Dim i
3		-	For i = 0 To UBound(res)
3		-	res(i) = n
3		-	n = n + 1
3		-	Next
3		-	ArrayRange = res
3		-	End Function
...
17	17
18	18		Function NumberRandom(ByVal min, ByVal max)
19	19		Dim len
...