7 lines
207 B
Text
7 lines
207 B
Text
[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."
|