IDENT TSQRT C TEST HSF 7 FORMAT(1H ,F10.2) A=3 B=1.7 C=-31.92 ROOT = (-B+SQRT(B**2 - 4.0*A*C))/(2.0*A) WRITE (2,7) ROOT PAUSE PA A=3 B=4 ROOT = SQRT(A*A + B*B) WRITE (2,7) ROOT STOP ST END :EOS :EOF