![]() |
BCX Console Demonstration Program S129.bas |
CLS
GLOBAL
ISET
A![
9
]
5.1
,3
,1.2674
,5.7345
,8
,5.2
,9
,5.56
,7.77
END
SET
QSORT
A!,9
,ASCENDING
FOR
I=
0
TO
8
[
I]
NEXT
SET
B$[
9
]
" B"
," D"
," A"
," H"
," G"
," F"
," I"
," C"
," E"
END
SET
QSORT
B$,9
,DESCENDING
FOR
I=
0
TO
8
[
I]
NEXT