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