10 FOR n=0 TO 25
 20 GO SUB 140
 30 PRINT n$;" ";
 40 NEXT n
 50 FOR n=250 TO 265
 60 GO SUB 140
 70 PRINT n$;" ";
 80 NEXT n
 90 FOR n=1000 TO 1025
100 GO SUB 140
110 PRINT n$;" ";
120 NEXT n
130 STOP
140 LET s$="th"
150 LET n$=STR$ n
160 IF LEN n$=1 THEN GO TO 180
170 IF n$(LEN n$-1)="1" THEN GO TO 210
180 IF n$(LEN n$)="1" THEN LET s$="st"
190 IF n$(LEN n$)="2" THEN LET s$="nd"
200 IF n$(LEN n$)="3" THEN LET s$="rd"
210 LET n$=n$+s$
220 RETURN