I believe it's the insertion sort algorithm although I am not sure
Declare Integer index
Declare Integer scan
Declare Integer unsortedValue
For index = 1 To arraySize - 1
Set unsortedValue = array[index]
Set scan = index
While scan > 0 AND array[scan-1] < array[scan]
Call swap(array[scan-1], array[scan])
Set scan = scan - 1
End While
Set array[scan] = unsortedValue
End For