17 lines
413 B
Plaintext
17 lines
413 B
Plaintext
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
|