;Trideni metodou Quicksort

N=100
Dim pole(N)

Statement Vypis{}
SHARED pole(),N
For i=0 To Int(N/10)-1
  For j=1 To 10
    Print pole(i*10+j)," "
  Next j
  NPrint ""
Next i
End Statement


Statement QuickSort{odkud,kam}
SHARED pole()
  pivot=pole(Int((odkud+kam)/2))
  i=odkud
  j=kam
  While ij Then QuickSort{i,kam}

End Statement


For i=1 To N
  pole(i)=Int(Rnd(200))
Next i

NPrint "Nesetridene pole:"
Vypis{}
QuickSort{1,N}
NPrint "Setridne pole"
Vypis{}
MouseWait
End