PROGRAM CH1201
      IMPLICIT LOGICAL (A-Z)
      REAL X
         PRINT *,' TYPE IN AN ANGLE (IN RADIANS)'
         READ *,X
         PRINT *,' SINE OF ', X ,' = ',SIN(X)
      END PROGRAM CH1201