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