PROCNth(   0,  25)
      PROCNth( 250, 265)
      PROCNth(1000,1025)
      END

      DEF PROCNth(s%,e%)
      LOCAL i%,suff$
      FOR i%=s% TO e%
        suff$="th"
        IF i% MOD 10 = 1 AND i% MOD 100 <> 11 suff$="st"
        IF i% MOD 10 = 2 AND i% MOD 100 <> 12 suff$="nd"
        IF i% MOD 10 = 3 AND i% MOD 100 <> 13 suff$="rd"
        PRINT STR$i%+suff$+" ";
      NEXT
      PRINT
      ENDPROC