100 cls
110 imprimeordinal(0,25)
120 print : print
130 imprimeordinal(250,265)
140 print : print
150 imprimeordinal(1000,1025)
160 print
170 end
180 sub ordinal$(n)
190 ns$ = str$(n)
200 ordinal$ = ""
210 select case right$(ns$,1)
220  case "1"
230   if right$(ns$,2) = "11" then ordinal$ = ns$+"th" : goto 340
240   ordinal$ = ns$+"st" : goto 340
250  case "2"
260   if right$(ns$,2) = "12" then ordinal$ = ns$+"th" : goto 340
270   ordinal$ = ns$+"nd" : goto 340
280  case "3"
290   if right$(ns$,2) = "13" then ordinal$ = ns$+"th" : goto 340
300   ordinal$ = ns$+"rd" : goto 340
310  case else
320   ordinal$ = ns$+"th" : goto 340
330 end case
340 return
350 sub imprimeordinal(a,b)
360 for i = a to b
370  print ordinal$(i);" ";
380 next i
390 return