Код:
        PROGRAM MANDEL

        COMPLEX C, Z
        REAL X0, DX, Y0, DY
        INTEGER I, J, K

        DATA X0/-2./, Y0/-1.1/, DX/.04/, DY/.1/

        DO 10 I = 1, 21
          DO 20 J = 1, 79
            C = CMPLX(X0 + J * DX, Y0 + I * DY)
            Z = (0., 0.)
            DO 30 K = 1, 99
              Z = Z ** 2 + C
              IF (REAL(ABS(Z)) .GT. 2.) GOTO 40
30          CONTINUE
40          TYPE 50, MOD(K, 10)
50          FORMAT ('$', I1)
20        CONTINUE
          TYPE 60
60        FORMAT (' ')
10      CONTINUE

        END