100 CLS
110 PRINT "The first 100 tau numbers are:"
120 N = 0
130 NUM = 0
140 LIMIT = 100
150 IF NUM > LIMIT THEN GOTO 230
160  N = N+1
170  TAU = 0
180  FOR M = 1 TO N
190   IF N MOD M = 0 THEN TAU = TAU+1
200  NEXT M
210  IF N MOD TAU = 0 THEN NUM = NUM+1 : PRINT N;
220 GOTO 150
230 END