for i   = 1 to 5000
  x$    = str$(i * i)
  if i  = 1 then x$ = "10"
  for j = 1 to len(x$) - 1
   if (val(left$(x$,j)) + val(mid$(x$,j+1)) = i and val(mid$(x$,j+1)) <> 0) or i = 1  then print "Kaprekar :";left$(x$,j);" + ";mid$(x$,j+1);" = ";i
  next j
next i