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