11 lines
400 B
Plaintext
11 lines
400 B
Plaintext
DIM table$(100,100)
|
|
PROCsort_default(table$())
|
|
PROCsort_options(table$(), TRUE, 1, FALSE)
|
|
END
|
|
|
|
DEF PROCsort_options(table$(), ordering%, column%, reverse%)
|
|
DEF PROCsort_default(table$()) : LOCAL ordering%, column%, reverse%
|
|
REM The sort goes here, controlled by the options
|
|
REM Zero/FALSE values for the options shall select the defaults
|
|
ENDPROC
|