Найти все меньшие 100 натуральные числа, которые при возведении в квадрат дают палиндром- QBasic(Бейсик)

dim a(4)
for i=1 to 99
m=i^2
k=0
f=0
do
k=k+1
a(k)=m mod 10
m=m\10
loop until m=0
for j=1 to k\2
if a(j)<>a(k+1-j)then f=1
next
if f=0 then print i;
next