10
REM ----------------------------------------------
20
REM Bubble Sort of A$ array with A% elements
30
REM ----------------------------------------------
40
REPEAT
50
fin%=1
60
FOR
I%=1
TO
A%-1
70
IF
A$(I%)>A$(I%+1):
PROC
swap
80
NEXT
90
UNTIL
fin%=1
100
END
110
120
DEF
PROC
swap
130
fin% = 0
140
temp$ = A$(I%)
150
A$(I%) = A$(I%+1)
160
A$(I%+1) = temp$
170
ENDPROC
Download BUBBLE
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.