home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19b.dsk / SORT.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  253 b   |  9 lines
  1. 300  REM  --SORT N ITEMS OF DATA IN D%()
  2. 310  IF N <2  THEN  RETURN : REM  THE LIST IS TOO SMALL TO SORT
  3. 320  FOR I = 2 TO N
  4. 330  FOR J = 1 TO I
  5. 340  IF D%(J) < = D%(I)  THEN 360
  6. 350 T = D%(I):D%(I) = D%(J):D%(J) = T
  7. 360  NEXT J
  8. 370  NEXT I
  9. 380  RETURN