mat sort Example10 CLEAR SCREEN
20 PRINT "*** TEST ****"
30 DIM A(1:4),B(3)
40 DATA 5, 9, 2, 8, 6, 9, 0, 1
50 RESTORE
60 READ A(*)
70 PRINT "A = ";A(*)
80 MAT SORT A(*)
90 PRINT "Array A sorted"
100 PRINT "A = ";A(*)
110 MAT SORT A(*) DES
120 PRINT "Array A sorted in descending order."
130 PRINT "A = ";A(*)
140 PRINT
150 READ B(*)
160 PRINT "B = ";B(*)
170 MAT SORT B(*) TO B
180 PRINT "Sorting B to A gives:"
190 PRINT "B = ";B(*)
200 END
|