20 lines
473 B
Plaintext
20 lines
473 B
Plaintext
0 OP = 1
|
|
10 FOR N = 0 TO 25 : GOSUB 100 : NEXT
|
|
20 FOR N = 250 TO 265 : GOSUB 100 : NEXT
|
|
30 FOR N = 1000 TO 1025 : GOSUB 100 : NEXT
|
|
40 END
|
|
|
|
100 GOSUB 200"NTH
|
|
110 PRINT NTH$ " ";
|
|
120 RETURN
|
|
|
|
200 M1 = N - INT(N / 10) * 10
|
|
210 M2 = N - INT(N / 100) * 100
|
|
220 NTH$ = "TH"
|
|
230 IF M1 = 1 AND M2 <> 11 THEN NTH$ = "ST"
|
|
240 IF M1 = 2 AND M2 <> 12 THEN NTH$ = "ND"
|
|
250 IF M1 = 3 AND M2 <> 13 THEN NTH$ = "RD"
|
|
260 IF NOT OP THEN NTH$ = "'" + NTH$
|
|
270 NTH$ = STR$(N) + NTH$
|
|
280 RETURN
|