Sorry your browser is not supported!

function QuickSort(Lower, Upper)

   pivot=0
   Left = Lower
   Right = Upper
   pivot = GeneralArray(Left)

   while Left < Right
      while (GeneralArray(Right) >= pivot) and (Left < Right)
         dec Right
      endwhile

      if Right <> Left
         GeneralArray(Left) = GeneralArray(Right)
         inc Left
      endif

      while (GeneralArray(Left) <= pivot) and (Left < Right)
         inc Left
      endwhile

      if Right <> Left
         GeneralArray(Right) = GeneralArray(Left)
         dec Right
      endif
   endwhile

   GeneralArray(Left) = pivot
   pivot = Left

   if Lower < pivot then QuickSort(Lower, pivot - 1)
   if Upper > pivot then QuickSort(pivot + 1, Upper)

endfunction

rem Data Sort Test
sync on

Randomize timer()
dim SortArray(5)
dim NameArray$(5)

rem ************* Fill Arrays
for a = 1 to 5
   read NameArray$(a), SortArray(a)
next a

cls
for a = 1 to 5
   print NameArray$(a) + "  -  " + str$(SortArray(a))
next a

highscore = 325
highscorename$="Fred"
print "----------------------"
print "Freds Score - " + str$(highscore)

print "press a key to sort"
wait key

sync
cls

rem *********************************************************
rem ******* The actual sorting routine just compares and swaps
rem unlike visual basic it can not decrease a for loop so we cheat and
rem create a variable to create our reverse increment
rem *********************************************************

for g = 1 to 5
	rem **** we subtract our variable from our array size plus one  to get the last *****
	rem **** record first. *****
	a = 6 - g
   if (highscore > SortArray(a)) = 1
      if a < 5
         f= a + 1
         SortArray(f) = SortArray(a)
         NameArray$(f) = NameArray$(a)
         SortArray(a)=highscore
         NameArray$(a)=highscorename$
             print str$(a) + " = " + NameArray$(a) + "  -  " + str$(SortArray(a)) + "   F = " + str$(f)
      endif
      if a = 5
         SortArray(a)=highscore
         NameArray$(a)=highscorename$
             print str$(a) + " = " + NameArray$(a) + "  -  " + str$(SortArray(a))
      endif
   endif
next a

for a = 1 to 5
   print NameArray$(a) + "  -  " + str$(SortArray(a))
next a
wait key

end

data "Adam", 500, "Bill",400, "Charles",300, "David",200, "Eunice",100