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