Data update

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

@@ -0,0 +1,25 @@
+PROGRAM  "Tau number"
+VERSION  "0.0000"
+
+DECLARE FUNCTION  Entry ()
+
+FUNCTION  Entry ()
+  PRINT "The first 100 tau numbers are:"
+
+  n = 0
+  num = 0
+  limit = 100
+  DO WHILE num < limit
+    INC n
+    tau = 0
+    FOR m = 1 TO n
+      IF n MOD m = 0 THEN INC tau
+    NEXT m
+    IF n MOD tau = 0 THEN
+      INC num
+      IF num MOD 10 = 1 THEN PRINT
+      PRINT FORMAT$("######", n);
+    END IF
+  LOOP
+END FUNCTION
+END PROGRAM