RosettaCodeData/Task/Sort-numbers-lexicographically/BBC-BASIC/sort-numbers-lexicographically.basic

      N%=13
      PRINT "[" LEFT$(FNLexOrder(0)) "]"
      END

      DEF FNLexOrder(nr%) : LOCAL i%, s$
      FOR i%=nr% TO nr% + 9
        IF i% > N% EXIT FOR
        IF i% > 0 s$+=STR$i% + "," + FNLexOrder(i% * 10)
      NEXT
      =s$