100 PROGRAM "TauNr.bas"
110 LET LIMIT=100
120 LET N,NUM=0
130 PRINT "The first";LIMIT;"tau numbers are:"
140 DO WHILE NUM<LIMIT
150   LET N=N+1
160   LET TAU=0
170   FOR M=1 TO N
180     IF MOD(N,M)=0 THEN LET TAU=TAU+1
190   NEXT
200   IF MOD(N,TAU)=0 THEN LET NUM=NUM+1:PRINT N,
210 LOOP