home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib09.dsk
/
VISISORT.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
858b
|
23 lines
2 HGR : HCOLOR= 3
5 DIM A(100): HOME : VTAB 22: PRINT "CREATING ARRAY": FOR I = 1 TO 100:A(I) = I: NEXT
6 HGR : FOR I = 1 TO 100: HPLOT I,A(I): NEXT
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
8 HGR : FOR I = 1 TO 100: HPLOT I,A(I): NEXT
9 N = 100
10 HOME : VTAB 22: PRINT "SORTING": PRINT ""
15 GOSUB 10000
20 PRINT "": HOME : VTAB 22: PRINT "DONE": END
9000 REM BUBBLE SORT
9001 REM A ARRAY TO SORT
9002 REM N ELEMENTS IN ARRAY
10000 N = N -0
10010 K = N -1
10015 FOR I = 1 TO K
10020 L = N -I
10025 FOR J = 1 TO L
10030 IF A(J) <A(J +1) THEN 10105
10035 T = A(J):A(J) = A(J +1):A(J +1) = T
10101 HCOLOR= 0: HPLOT J,0 TO J,100: HCOLOR= 3: HPLOT J,A(J)
10103 HCOLOR= 0: HPLOT J +1,0 TO J +1,100: HCOLOR= 3: HPLOT J +1,A(J +1)
10105 NEXT : NEXT
10120 RETURN