10 for x = 1002 to 1999
20 a = x * x
30 a$ = str$(a)
40 x$ = str$(x)
50 if instr(x$[1,1], x$[2]) > 0 then 140
60 if instr(x$[2,1], x$[3]) > 0 then 140
70 if instr(x$[3,1], x$[4]) > 0 then 140
80 if instr(x$[1,1], a$) > 0 then 140
90 if instr(x$[2,1], a$) > 0 then 140
91 if instr(x$[4,1], a$) > 0 then 140
100 if a$[5, 1] <> a$[6,1] then 140
110 rem if a$[4,1] <> x$[3,1] then 140
120 if a$[1,1] <> a$[4,1] then 140
130 print x$, a$
140 next