Data commit

Task/Nth/ZX-Spectrum-Basic/nth.basic

@@ -0,0 +1,22 @@
+ 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