PROGRAM COINED
   do2: DO 10 , i = 1, 100, 2
   10   LOCATION = I + 2

END

