home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / telecomm / storm100 / sort.bas < prev    next >
BASIC Source File  |  1993-11-03  |  701b  |  25 lines
  1. 'Simple bubble sort to demonstrate string functions and data statements.
  2. FAST ON :'Maximize speed
  3. t = TIMER
  4. DIM a$(19)
  5. FOR i = 0 TO 19:READ a$(i):NEXT i
  6. Start:sw = 0:p = p + 1
  7. FOR i = 0 TO 18
  8.     IF a$(i) > a$(i + 1) THEN
  9.         b$ = a$(i):a$(i) = a$(i + 1):a$(i + 1) = b$:sw = 1
  10.     ENDIF
  11. NEXT i
  12. PRINT "Pass ";p:IF sw = 1 THEN Start
  13. PRINT "Sort Done in "; TIMER - t;" seconds."
  14. FOR i = 0 TO 19
  15.     PRINT a$(i)
  16. NEXT i
  17. FAST OFF
  18. END
  19. DATA "Electron","LA smog","diamond","pea","marble"
  20. DATA "bowling ball","balloon","ball of string","747 tire","doughnut"
  21. DATA "#3 ball bearing","Faberge egg","baseball","orange"
  22. DATA "goodyear blimp","perisphere","rama","phobos","mars","earth"
  23.  
  24.  
  25.