IDENTIFICATION DIVISION.
       PROGRAM-ID. TIMEDIFF3.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       01  WS-T1-HH        PIC 99 VALUE 0.
       01  WS-T1-MM        PIC 99 VALUE 0.
       01  WS-T1-TOTAL     PIC 9(5) VALUE 0.

       01  WS-T1-ONLY-MM   PIC 9(4) VALUE 0.
       01  WS-CHOICE       PIC X VALUE SPACE.

       01  WS-T2-HHMM      PIC 9(4).
       01  WS-T2-HH        PIC 99.
       01  WS-T2-MM        PIC 99.
       01  WS-T2-TOTAL     PIC 9(5).

       01  WS-DIFF         PIC 9(5).
       01  WS-OUT-HH       PIC 99.
       01  WS-OUT-MM       PIC 99.

       PROCEDURE DIVISION.
       MAIN-LOGIC.

           DISPLAY "----------------------------------------".
           DISPLAY "   ROCKET COBOL 11.0 TIMEDIFF3".
           DISPLAY "----------------------------------------".

           DISPLAY "Wil je de eerste tijd invoeren als:".
           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-T1-HH
              DISPLAY "Voer minuten in: "
              ACCEPT WS-T1-MM

              COMPUTE WS-T1-TOTAL = (WS-T1-HH * 60) + WS-T1-MM
           ELSE
              DISPLAY "Voer totale minuten in: "
              ACCEPT WS-T1-ONLY-MM

              COMPUTE WS-T1-TOTAL = WS-T1-ONLY-MM
           END-IF.

           DISPLAY "Voer tweede tijd in (HHMM): "
           ACCEPT WS-T2-HHMM

           MOVE WS-T2-HHMM(1:2) TO WS-T2-HH
           MOVE WS-T2-HHMM(3:2) TO WS-T2-MM

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

           IF WS-T2-TOTAL = WS-T1-TOTAL
              DISPLAY "OP TIJD"
              STOP RUN
           END-IF

           IF WS-T2-TOTAL < WS-T1-TOTAL
              COMPUTE WS-DIFF = WS-T1-TOTAL - WS-T2-TOTAL
              COMPUTE WS-OUT-HH = WS-DIFF / 60
              COMPUTE WS-OUT-MM = WS-DIFF - (WS-OUT-HH * 60)

              DISPLAY WS-OUT-HH " UUR " WS-OUT-MM " MINUTEN TE LAAT"
              STOP RUN
           END-IF

           COMPUTE WS-DIFF = WS-T2-TOTAL - WS-T1-TOTAL
           COMPUTE WS-OUT-HH = WS-DIFF / 60
           COMPUTE WS-OUT-MM = WS-DIFF - (WS-OUT-HH * 60)

           DISPLAY "NOG " WS-OUT-HH " UUR EN " WS-OUT-MM " MINUTEN"

           STOP RUN.