PARAMI9I0518P
C      SQRTF(X) = SQRT(X)
      PRINT 100
100   FORMAT ( 12H HELLO WORLD)
      A = 1.0
      B = 2.0
      C = 3.0
      PRINT 200, A, B, C
200   FORMAT ( 10H ROOTS OF , F7.2, 7H X**2 +, F7.2, 4H X +, F7.2 )
      D = B**2 - 4.0*A*C
      Q = 2.0 * A
      P = -(B / Q)
      PRINT 201, D, Q, P
201   FORMAT (11H D, Q, P = , 3E25.18 )
      IF ( D ) 110, 120, 130
110   ZP = SQRTF(-D)/Q
      ZM = -ZP
      PRINT 210, P, ZP, P, ZM
210   FORMAT (1X, E25.18, 3H + , E25.18, 4H I, , E25.18, 1X , E25.18,
     1 2H I )
      GO TO 900
120   PRINT 220, P
220   FORMAT ( 13H DOUBLE ROOT , E25.18 )
      GO TO 900
130   S = SQRTF(D)/Q
      R1 = P + S
      R2 = P - S
      PRINT 230, R1, R2
230   FORMAT (1X, E25.18, 3H , E25.18 )
900   I = 12
      J = 6
      K = I / J
      P = 3.0
      Q = 5.0
      R = P / Q
      PRINT 300, I, J, K, P, Q, R
300   FORMAT ( 13H I, J, I/J = , 3I6/ 13H P, Q, P/Q = , 3E26.18 )
      END
