25 lines
467 B
Plaintext
25 lines
467 B
Plaintext
10 FOR N=0 TO 25
|
|
20 GOSUB 160
|
|
30 PRINT N$;" ";
|
|
40 NEXT N
|
|
50 PRINT
|
|
60 FOR N=250 TO 265
|
|
70 GOSUB 160
|
|
80 PRINT N$;" ";
|
|
90 NEXT N
|
|
100 PRINT
|
|
110 FOR N=1000 TO 1025
|
|
120 GOSUB 160
|
|
130 PRINT N$;" ";
|
|
140 NEXT N
|
|
150 STOP
|
|
160 LET N$=STR$ N
|
|
170 LET S$="TH"
|
|
180 IF LEN N$=1 THEN GOTO 200
|
|
190 IF N$(LEN N$-1)="1" THEN GOTO 230
|
|
200 IF N$(LEN N$)="1" THEN LET S$="ST"
|
|
210 IF N$(LEN N$)="2" THEN LET S$="ND"
|
|
220 IF N$(LEN N$)="3" THEN LET S$="RD"
|
|
230 LET N$=N$+S$
|
|
240 RETURN
|