RosettaCodeData/Task/Tau-number/BASIC256/tau-number.basic

print "The first 100 tau numbers are:"

n = 0
num = 0
limit = 100
while num < limit
	n += 1
	tau = 0
	for m = 1 to n
		if n mod m = 0 then tau += 1
	next m
	if n mod tau = 0 then
		num += 1
		if num mod 10 = 1 then print
		print rjust(string(n), 6);
	end if
end while
end