       IDENTIFICATION DIVISION.
       PROGRAM-ID.
       PROG1.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. P3500.
       OBJECT-COMPUTER. P3500.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 COUNTER  PIC 9(6).
       01 N        PIC 9(6).
       01 DATUM    PIC 9(6).
       01 TIMER.
        03 HOURS                       PIC 99 USAGE COMP-1 VALUE ZERO.
        03 MINUTES                     PIC 99 USAGE COMP-1 VALUE ZERO.
        03 SECONDS                     PIC 99 USAGE COMP-1 VALUE ZERO.
       01 TIMEX.
        03 STUNDE                      PIC 99.
        03 MINUTE                      PIC 99.
        03 SEKUND                      PIC 99.
       PROCEDURE DIVISION.
       ANFANG.
           DISPLAY " " ERASE.
           DISPLAY "START" LINE 3 POSITION 35.
           ACCEPT DATUM FROM DATE.
           CALL "SET.HEX".
           MOVE 0 TO COUNTER.
           PERFORM COUNTS VARYING N FROM 1 BY 1 UNTIL N > 1000.
           DISPLAY "DATUM   : " LINE 5 POSITION 1 DATUM.
           CALL "GET.HEX" USING TIMER
                      MOVE HOURS TO STUNDE
                      MOVE MINUTES TO MINUTE
                      MOVE SECONDS TO SEKUND
                      DISPLAY "STUNDEN : " STUNDE
                      DISPLAY "MINUTEN : " MINUTE
                      DISPLAY "SEKUNDEN: " SEKUND.
        COUNTS.
                      ADD 1 TO N.
        ENDE.
           STOP RUN.
