PV_LR_1

!23456
      PROGRAM MAIN
      COMMON /PUBLIC/ A, B, ALPH
      CALL MENU
    1 READ *, ICOMMAND
      SELECT CASE (ICOMMAND)
      CASE (1)
       CALL ENTERNEWTRAINGLE
      CASE (2)
       CALL CALCULATEAREA
      CASE (3)
       CALL FINDSMALLESTANG
      CASE (4)
       CALL FINDSMALLESTCOS
      CASE (5)
       GO TO 2
      CASE (6)
       CALL WRILETRAINGLE
      CASE DEFAULT
       PRINT *, 'UNEXPECTED COMMAND'
      END SELECT
      GO TO 1
    2 END

      SUBROUTINE MENU
      PRINT *, '1) ENTER TRAINGLE'
      PRINT *, '2) CALCULATING THE AREA OF A TRAINGLE'
      PRINT *, '3) CALCULATION OF THE SMALLEST ANGLE IN DEGREES'
      PRINT *, '4) CALCULATION OF THE COSINE OF THE MINIMUM ANGLE'
      PRINT *, '5) END OF WORK'
      PRINT *, '6!) WRITE TRAINGLE'
      END

CCCC  TO DELETE
      SUBROUTINE WRILETRAINGLE
      COMMON /PUBLIC/ A, B, ALPH
      PRINT *, 'NOW TRAINGLE HAS FOLLOWING VALUES: A='
      PRINT *, A
      PRINT *, B
      PRINT *, ALPH
      END
CCCC  TO DELETE

      SUBROUTINE ENTERNEWTRAINGLE
      COMMON /PUBLIC/ A, B, ALPH
      PRINT *, 'ENTER FOLLOWING DATA:'
      PRINT *, 'A='
      READ *, A
      PRINT *, 'B='
      READ *, B
      PRINT *, 'ALPH='
      READ *, ALPH
      END

      SUBROUTINE CALCULATEAREA
      PRINT *, 'THIS COMMAND WILL CALCULATE THE AREA'
      END

      SUBROUTINE FINDSMALLESTANG
      PRINT *, 'THIS COMMAND WILL FIND THE SMALLEST ANGLE IN A TRAINGLE'
      END

      SUBROUTINE FINDSMALLESTCOS
      PRINT *, 'THIS COMMAND WILL FIND THE COSINE OF MINIMUM ANGLE'
      END