REM >BLib.Sort 0.10
      :
      DEFPROCSort_Str(array$(),n%)
      LOCAL i%,j%,tmp$
      IFn%<0:n%=DIM (array$(),1)
      :
      FOR i%=0 TO n%-2
        FOR j%=0 TO n%-2-i%
          IF array$(j%+1) < array$(j%):SWAP array$(j%+1),array$(j%)
        NEXT
      NEXT
      ENDPROC