Ultra-SiMPLE
Do a = 1 To 9L
   Do b = 0 To 9L
      Do c = 0 To 9L
         Do d = 0 To 9L
            abcd = 1000*a +100*b + 10*c + d
            dcba = 1000*d +100*c + 10*b + a
            If (4*abcd = dcba) Display abcd
         Loop
      Loop
   Loop
Loop