home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / VISISORT.bas < prev   
BASIC Source File  |  2023-02-26  |  858b  |  23 lines

  1. 2  HGR : HCOLOR= 3
  2. 5  DIM A(100): HOME : VTAB 22: PRINT "CREATING ARRAY": FOR I = 1 TO 100:A(I) = I: NEXT 
  3. 6  HGR : FOR I = 1 TO 100: HPLOT I,A(I): NEXT 
  4. 7  HOME : VTAB 22: PRINT "SHUFFLING": FOR I = 1 TO 100:B =  INT( RND(1) *100) +1:T = A(B):A(B) = A(I):A(I) = T: NEXT 
  5. 8  HGR : FOR I = 1 TO 100: HPLOT I,A(I): NEXT 
  6. 9 N = 100
  7. 10  HOME : VTAB 22: PRINT "SORTING": PRINT ""
  8. 15  GOSUB 10000
  9. 20  PRINT "": HOME : VTAB 22: PRINT "DONE": END 
  10. 9000  REM  BUBBLE SORT
  11. 9001  REM  A ARRAY TO SORT
  12. 9002  REM  N ELEMENTS IN ARRAY
  13. 10000 N = N -0
  14. 10010 K = N -1
  15. 10015  FOR I = 1 TO K
  16. 10020 L = N -I
  17. 10025  FOR J = 1 TO L
  18. 10030  IF A(J) <A(J +1)  THEN 10105
  19. 10035 T = A(J):A(J) = A(J +1):A(J +1) = T
  20. 10101  HCOLOR= 0: HPLOT J,0 TO J,100: HCOLOR= 3: HPLOT J,A(J)
  21. 10103  HCOLOR= 0: HPLOT J +1,0 TO J +1,100: HCOLOR= 3: HPLOT J +1,A(J +1)
  22. 10105  NEXT : NEXT 
  23. 10120  RETURN