Data commit

Task/Nth/BBC-BASIC/nth.basic

@@ -0,0 +1,16 @@
+      PROCNth(   0,  25)
+      PROCNth( 250, 265)
+      PROCNth(1000,1025)
+      END
+
+      DEF PROCNth(s%,e%)
+      LOCAL i%,suff$
+      FOR i%=s% TO e%
+        suff$="th"
+        IF i% MOD 10 = 1 AND i% MOD 100 <> 11 suff$="st"
+        IF i% MOD 10 = 2 AND i% MOD 100 <> 12 suff$="nd"
+        IF i% MOD 10 = 3 AND i% MOD 100 <> 13 suff$="rd"
+        PRINT STR$i%+suff$+" ";
+      NEXT
+      PRINT
+      ENDPROC