Sorting algorithms/Bubble sort: Difference between revisions
Applesoft BASIC
(Applesoft BASIC) |
|||
Line 516:
NEXT
LOOP WHILE(NOT changed)</lang>
==={{header|Applesoft BASIC}}===
<lang basic>0 GOSUB 7 : IC = I%(0)
1 FOR HC = -1 TO 0
2 LET IC = IC - 1
3 FOR I = 1 TO IC
4 IF I%(I) > I%(I + 1) THEN H = I%(I) : I%(I) = I%(I + 1) : I%(I + 1) = H : HC = -2 * (IC > 1)
5 NEXT I, HC
6 GOSUB 9 : END
7 DIM I%(18000) : I%(0) = 50
8 FOR I = 1 TO I%(0) : I%(I) = INT (RND(1) * 65535) - 32767 : NEXT
9 FOR I = 1 TO I%(0) : PRINT I%(I)" "; : NEXT I : PRINT : RETURN</lang>
==={{header|Sinclair ZX81 BASIC}}===
| |||