IDENTIFICATION DIVISION.
       PROGRAM-ID. UM.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       01  WS-CHOICE       PIC X VALUE SPACE.
       01  WS-HH           PIC 99 VALUE 0.
       01  WS-MM           PIC 99 VALUE 0.
       01  WS-TOTAL-MM     PIC 9(5) VALUE 0.

       01  WS-IN-MM        PIC 9(5) VALUE 0.
       01  WS-OUT-HH       PIC 99 VALUE 0.
       01  WS-OUT-MM       PIC 99 VALUE 0.

       PROCEDURE DIVISION.
       MAIN-LOGIC.

           DISPLAY "----------------------------------------".
           DISPLAY "ROCKET COBOL 11.0".
           DISPLAY "UM-CONVERTER".
           DISPLAY "----------------------------------------".

           DISPLAY "Kies invoermethode:".
           DISPLAY "A = uren + minuten".
           DISPLAY "B = alleen minuten".
           ACCEPT WS-CHOICE.

           IF WS-CHOICE = "A" OR WS-CHOICE = "a"
              DISPLAY "Voer uren in:"
              ACCEPT WS-HH
              DISPLAY "Voer minuten in:"
              ACCEPT WS-MM

              COMPUTE WS-TOTAL-MM =
                      (WS-HH * 60) + WS-MM

              DISPLAY "Totaal minuten:"
              DISPLAY WS-TOTAL-MM
           END-IF

           IF WS-CHOICE = "B" OR WS-CHOICE = "b"
              DISPLAY "Voer totaal minuten in:"
              ACCEPT WS-IN-MM

              COMPUTE WS-OUT-HH =
                      WS-IN-MM / 60
              COMPUTE WS-OUT-MM =
                      WS-IN-MM - (WS-OUT-HH * 60)

              DISPLAY "Uren:"
              DISPLAY WS-OUT-HH
              DISPLAY "Minuten:"
              DISPLAY WS-OUT-MM
           END-IF

           IF WS-CHOICE NOT = "A" AND
              WS-CHOICE NOT = "a" AND
              WS-CHOICE NOT = "B" AND
              WS-CHOICE NOT = "b"
              DISPLAY "Ongeldige keuze."
           END-IF

           STOP RUN.