BCX Console Demonstration Program s129.bas

CLS

GLOBAL I

SET 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
  PRINT A![I]
NEXT

PRINT

SET B$[9]
  " B", " D", " A", " H", " G", " F", " I", " C", " E"
END SET

QSORT B$, 9, DESCENDING

FOR I = 0 TO 8
  PRINT B$[I]
NEXT

Result:

1.2674
3
5.1
5.2
5.56
5.7345
7.77
8
9

I
H
G
F
E
D
C
B
A