19 lines
572 B
Text
19 lines
572 B
Text
INSTALL @lib$+"SORTSALIB"
|
|
sort% = FN_sortSAinit(0,0)
|
|
|
|
DIM pair{name$, number%}
|
|
DIM array{(10)} = pair{}
|
|
FOR i% = 1 TO DIM(array{()}, 1)
|
|
READ array{(i%)}.name$, array{(i%)}.number%
|
|
NEXT
|
|
|
|
DATA "Eight", 8, "Two", 2, "Five", 5, "Nine", 9, "One", 1
|
|
DATA "Three", 3, "Six", 6, "Seven", 7, "Four", 4, "Ten", 10
|
|
|
|
C% = DIM(array{()}, 1)
|
|
D% = 1
|
|
CALL sort%, array{()}, array{(0)}.number%, array{(0)}.name$
|
|
|
|
FOR i% = 1 TO DIM(array{()}, 1)
|
|
PRINT array{(i%)}.name$, array{(i%)}.number%
|
|
NEXT
|