IDENTIFICATION DIVISION.
       PROGRAM-ID. TIMEDIFF2.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

      * Ingevoerde tijden
       01  WS-T1-HHMM       PIC 9(4).
       01  WS-T1-HH         PIC 99.
       01  WS-T1-MM         PIC 99.

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

      * Tijd in minuten
       01  WS-T1-TOTAL      PIC 9(5).
       01  WS-T2-TOTAL      PIC 9(5).
       01  WS-DIFF          PIC 9(5).

      * Resultaat
       01  WS-OUT-HH        PIC 99.
       01  WS-OUT-MM        PIC 99.

       PROCEDURE DIVISION.
       MAIN-LOGIC.
           DISPLAY "----------------------------------------".
           DISPLAY "   ROCKET COBOL 11.0 TIJDVERSCHIL".
           DISPLAY "----------------------------------------".

      * Tijd 1 invoeren
           DISPLAY "Voer eerste tijd in (HHMM): ".
           ACCEPT WS-T1-HHMM.

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

      * Tijd 2 invoeren
           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.

      * Omzetten naar minuten
           COMPUTE WS-T1-TOTAL = (WS-T1-HH * 60) + WS-T1-MM.
           COMPUTE WS-T2-TOTAL = (WS-T2-HH * 60) + WS-T2-MM.

      * Als tijd 2 eerder is dan tijd 1 → volgende dag
           IF WS-T2-TOTAL < WS-T1-TOTAL
              COMPUTE WS-T2-TOTAL = WS-T2-TOTAL + (24 * 60)
           END-IF.

      * Verschil berekenen
           COMPUTE WS-DIFF = WS-T2-TOTAL - WS-T1-TOTAL.

      * Omzetten naar uren en minuten (zonder MOD)
           COMPUTE WS-OUT-HH = WS-DIFF / 60.
           COMPUTE WS-OUT-MM = WS-DIFF - (WS-OUT-HH * 60).

           DISPLAY "----------------------------------------".
           DISPLAY "Verschil: " WS-OUT-HH " uur en "
                   WS-OUT-MM " minuten.".
           DISPLAY "----------------------------------------".

           STOP RUN.