RosettaCodeData/Task/Sort-an-integer-array/BBC-BASIC/sort-an-integer-array.basic

      INSTALL @lib$+"SORTLIB"
      sort% = FN_sortinit(0,0)

      DIM array(8)
      array() = 8, 2, 5, 9, 1, 3, 6, 7, 4

      C% = DIM(array(),1) + 1
      CALL sort%, array(0)

      FOR i% = 0 TO DIM(array(),1) - 1
        PRINT ; array(i%) ", ";
      NEXT
      PRINT ; array(i%)