анекдоты на FORTRAN

http://www.fortranlib.com/gotoless.htm

Example:

               DO 60 I=6,32

       20          X=I*6+14

               IF (X-20.) 10, 30, 50,

       10          ASSIGN 40 TO JUMP

       30          Y=2*X**2.-17.4

               COME FROM JUMP, (40,20,30)

               ASSIGN 30 TO JUMP

               X=X*Y-X**2

       40          ASSIGN 40 TO JUMP

               IF (Y-X) 20, 60, 50

       50          ASSIGN 20 TO JUMP

       60           CONTINUE

     

Explanation:

This example is self-explanatory.