31 lines
755 B
Plaintext
31 lines
755 B
Plaintext
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
|