home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 08_09 / sorttest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-05-18  |  218 b   |  21 lines
  1. (*$R+,U+*)
  2. program test;
  3.  
  4. const max = 10000;
  5.  
  6. type elemtyp =  INTEGER;
  7.  
  8. var elem : array[1..MAX] OF elemtyp;
  9.     anzelem : integer;
  10.  
  11. (*$I SORT.PAS *)
  12.  
  13.  
  14.  
  15.  
  16. begin
  17.   anzelem := Max;
  18.   quicksort;
  19. end.
  20.  
  21.