PROGRAM FRED

REAL Y

X = (Y-J)+I
I = 6
I = 5

END

 

more