[start]
if right$(str$(n*n),6)="269696" then
    print "n = "; using("###,###", n);
    print "   n*n = "; using("###,###,###,###", n*n)
end if
if n<100000 then n=n+1: goto [start]
print "Program complete."