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