Data commit

Task/Tau-function/True-BASIC/tau-function.basic

@@ -0,0 +1,16 @@
+PRINT "The tau functions for the first 100 positive integers are:"
+PRINT
+
+FOR N = 1 TO 100
+    IF N < 3 THEN
+       LET T = N
+    ELSE
+       LET T = 2
+       FOR A = 2 TO INT((N+1)/2)
+           IF REMAINDER (N, A) = 0 THEN LET T = T + 1
+       NEXT A
+    END IF
+    PRINT " "; T;
+    IF REMAINDER (N, 10) = 0 THEN PRINT
+NEXT N
+END