REM >BLib.Sort 0.10
:
DEF
PROC
Sort_Str(array$(),n%)
LOCAL
i%,j%,tmp$
IF
n%<0:n%=
DIM
(array$(),1)
:
FOR
i%=0
TO
n%-2
FOR
j%=0
TO
n%-2-i%
IF
array$(j%+1) < array$(j%):
SWAP
array$(j%+1),array$(j%)
NEXT
NEXT
ENDPROC
Download Sort
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.