Update all new Tasks

Task/Nth/Applesoft-BASIC/nth.applesoft

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