![]() |
BCX Console Demonstration Program S107.bas |
DIM
IDIM
InnerDIM
OuterDIM
NumberDIM
A$[
101
]
"UnSorted ..."
FOR
I=
1
TO
100
A$[
I]
=
STR$
(
RND
*
100
)
" "
, A$[
I]
NEXT
"Sorting ..."
Number=
100
GOSUB
SortFOR
I=
1
TO
100
" "
, A$[
I]
NEXT
END
Sort:FOR
Outer=
1
TO
Number-
1
FOR
Inner=
Outer+
1
TO
NumberIF
A$[
Inner]
< A$[
Outer]
THEN
SWAP
A$[
Inner]
, A$[
Outer]
NEXT
NEXT
RETURN