23 lines
452 B
Plaintext
23 lines
452 B
Plaintext
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
|