IDENTIFICATION DIVISION.
       PROGRAM-ID. TIMEDIFF.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

      * Huidige tijd via FUNCTION CURRENT-DATE
       01  WS-NOW-DATETIME.
           05 WS-NOW-YYYY    PIC 9(4).
           05 WS-NOW-MO      PIC 9(2).
           05 WS-NOW-DD      PIC 9(2).
           05 WS-NOW-HH      PIC 9(2).
           05 WS-NOW-MM      PIC 9(2).
           05 WS-NOW-SS      PIC 9(2).
           05 FILLER         PIC X(9).

      * Ingevoerde tijd
       01  WS-IN-HHMM       PIC 9(4).
       01  WS-IN-HH         PIC 99.
       01  WS-IN-MM         PIC 99.

      * Tijd in minuten
       01  WS-NOW-TOTAL     PIC 9(5).
       01  WS-IN-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 TIJDVERGELIJKING".
           DISPLAY "----------------------------------------".

      * Huidige tijd ophalen
           MOVE FUNCTION CURRENT-DATE TO WS-NOW-DATETIME.

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

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

      * Minuten berekenen
           COMPUTE WS-NOW-TOTAL = (WS-NOW-HH * 60) + WS-NOW-MM.
           COMPUTE WS-IN-TOTAL  = (WS-IN-HH  * 60) + WS-IN-MM.

      * Vergelijking
           IF WS-NOW-TOTAL = WS-IN-TOTAL
              DISPLAY "OP TIJD"
           ELSE
              IF WS-NOW-TOTAL > WS-IN-TOTAL
                 COMPUTE WS-DIFF = WS-NOW-TOTAL - WS-IN-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"
              ELSE
                 COMPUTE WS-DIFF = WS-IN-TOTAL - WS-NOW-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"
              END-IF
           END-IF.

           DISPLAY "----------------------------------------".

           STOP RUN.