Data commit

Task/Tau-function/XBasic/tau-function.basic

@@ -0,0 +1,24 @@
+PROGRAM	"Tau"
+VERSION	"0.0000"
+
+DECLARE FUNCTION Entry ()
+DECLARE FUNCTION numdiv(n)
+
+FUNCTION  Entry ()
+	PRINT "The tau functions for the first 100 positive integers are:\n"
+	FOR i = 1 TO 100
+		PRINT FORMAT$("###", numdiv(i));
+		IF i MOD 10 = 0 THEN PRINT
+	NEXT i
+END FUNCTION
+
+FUNCTION numdiv(n)
+    c = 1
+    FOR i = 1 TO (n+1)\2
+        IF n MOD i = 0 THEN INC c
+    NEXT i
+    IF n = 1 THEN DEC c
+    RETURN c
+
+END FUNCTION
+END PROGRAM