; English forum: http://purebasic.myforums.net/viewtopic.php?t=7530&highlight= ; Author: sec ; Date: 13. September 2003 Dim SortmeF(100) OpenConsole() PrintN("before sorting...") For i=0 To 10 SortmeF(i)=Random(500) Print(Str(SortmeF(i))+" ") Next i PrintN("") PrintN("after sorting...") l = 0 r = 10 qsort: i = l j = r pivot = SortmeF(l) While (i<=j) While SortmeF(i)pivot: j-1: Wend If (i<=j) temp=SortmeF(i) : SortmeF(i)=SortmeF(j) : SortmeF(j)=temp i+1 j-1 EndIf Wend If (l