Function sort(array:Int[] Var)
	Local tmp:Int = 0
	Local swap:Int = 0
	Local depth:Int = 0
	Repeat
		swap = 0
		For Local i:Int = 0 To array.length - 2 - depth
			If array[i] > array[i + 1]
				tmp = array[i]
				array[i] = array[i + 1]
				array[i + 1] = tmp
				swap = 1
			End If
		Next
		depth = depth + 1
	Until swap = 0
End Function

SuperStrict

Local arrayLength:Int = 1000

Local value:Int[arrayLength]

Print "Unsortiert:"
For Local i:Int = 0 To arrayLength - 1
	value[i] = Rand(20)
	Print value[i]
Next

Local ms:Int = MilliSecs()
sort(value)
Local ms2:Int = MilliSecs()


Print "Sortiert:"
For Local i:Int = 0 To arrayLength - 1
	Print value[i]
Next
Print ""
Print "Sortierdauer: " + (ms2 - ms) + " ms"

sort(array:Int[] Var

sort(array:Float[] Var)