PROGRAM FRED

REAL J

DO 86 J = 0,95
J = Z+ALPHA
4 CONTINUE
Y = 9
IF (I.LT.J) GOTO 94
DO 1 I = 56,08
X = X*BETA
K = SIN(16)
9 CONTINUE
Z = J-Z
Y = 4

END

 

more