home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / SORT.TRU < prev    next >
Encoding:
Text File  |  1985-01-05  |  753 b   |  38 lines
  1. ! Program to sort text in a list.
  2.  
  3. DIM name$(1)                      ! We'll redim later
  4.  
  5. CALL Get_list                     ! Get list of items 
  6.  
  7. LET n = Ubound(name$)             ! How many we have
  8.  
  9. CALL Sort_list                    ! Sort the list
  10. MAT PRINT name$                   ! Now print sorted list
  11.  
  12. SUB Get_list
  13.  
  14.     PRINT "Enter items to be sorted"
  15.     MAT INPUT name$(?)            ! Redimension to input
  16.  
  17. END SUB
  18.  
  19. SUB Sort_list
  20.  
  21.     FOR i = n to 2 step -1  
  22.        FOR j = 1 to i-1
  23.           IF name$(j) > name$(j+1) then CALL Swap
  24.        NEXT j
  25.     NEXT i
  26.  
  27. END SUB
  28.  
  29. SUB Swap
  30.  
  31.     LET temp$ = name$(j)          ! Temporary variable
  32.     LET name$(j) = name$(j+1)
  33.     LET name$(j+1) = temp$
  34.  
  35. END SUB
  36.  
  37. END
  38.