Initial data commit

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

@@ -0,0 +1,18 @@
+10 DEFINT A-Z
+20 FOR I=1 TO 100
+30 N=I: GOSUB 100
+40 PRINT USING " ##";T;
+50 IF I MOD 20=0 THEN PRINT
+60 NEXT
+70 END
+100 T=1
+110 IF (N AND 1)=0 THEN N=N\2: T=T+1: GOTO 110
+120 P=3
+130 GOTO 180
+140 C=1
+150 IF N MOD P=0 THEN N=N\P: C=C+1: GOTO 150
+160 T=T*C
+170 P=P+2
+180 IF P*P<=N GOTO 140
+190 IF N>1 THEN T=T*2
+200 RETURN