REM Rosetta Code problem: https://rosettacode.org/wiki/Tau_number
REM by Jjuanhdez, 11/2023

    REM Tau number

    LET C = 0
    LET N = 0
    LET X = 100
    LET T = 0
10  LET C = C + 1
	LET T = 0
	LET M = 1
20  IF C - (C / M) * M <> 0 THEN GOTO 30
	LET T = T + 1
30  LET M = M + 1
    IF M < C + 1 THEN GOTO 20
    IF C - (C / T) * T <> 0 THEN GOTO 40
	LET N = N + 1
	PRINT C
40  IF N < X THEN GOTO 10
    END