Data commit

Task/Nth/Sinclair-ZX81-BASIC/nth.basic

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