IDENTIFICATION DIVISION.
       PROGRAM-ID. WRITE3SEC.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FIETS-FILE ASSIGN TO "fiets.dat"
                   ORGANIZATION IS SEQUENTIAL.
           SELECT LOOP-FILE ASSIGN TO "loop.dat"
                   ORGANIZATION IS SEQUENTIAL.
           SELECT ZWEM-FILE ASSIGN TO "zwem.dat"
                   ORGANIZATION IS SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.

       FD  FIETS-FILE.
       01  FIETS-REC.
           05 F-DATE       PIC X(8).
           05 F-DIST       PIC 9(5).
           05 F-TIMESEC    PIC 9(5).
           05 F-HR         PIC 9(3).
           05 F-WGT        PIC 9(3).

       FD  LOOP-FILE.
       01  LOOP-REC.
           05 L-DATE       PIC X(8).
           05 L-DIST       PIC 9(5).
           05 L-TIMESEC    PIC 9(5).
           05 L-HR         PIC 9(3).
           05 L-WGT        PIC 9(3).

       FD  ZWEM-FILE.
       01  ZWEM-REC.
           05 Z-DATE       PIC X(8).
           05 Z-DIST       PIC 9(5).
           05 Z-TIMESEC    PIC 9(5).
           05 Z-HR         PIC 9(3).
           05 Z-WGT        PIC 9(3).

       WORKING-STORAGE SECTION.
       01  WS-CHOICE       PIC X VALUE SPACE.
       01  WS-MORE         PIC X VALUE "J".

       01  WS-DATE         PIC X(8).
       01  WS-DIST         PIC 9(5).
       01  WS-MIN          PIC 9(3).
       01  WS-SEC          PIC 9(2).
       01  WS-TOTSEC       PIC 9(5).
       01  WS-HR           PIC 9(3).
       01  WS-WGT          PIC 9(3).

       PROCEDURE DIVISION.
       MAIN-LOGIC.

           DISPLAY "----------------------------------------".
           DISPLAY "SCHRIJFPROGRAMMA (MIN+SEC → SEC)".
           DISPLAY "----------------------------------------".

           DISPLAY "Kies bestand (F/L/Z):"
           ACCEPT WS-CHOICE

           IF WS-CHOICE = "F" OR WS-CHOICE = "f"
              OPEN EXTEND FIETS-FILE
           END-IF

           IF WS-CHOICE = "L" OR WS-CHOICE = "l"
              OPEN EXTEND LOOP-FILE
           END-IF

           IF WS-CHOICE = "Z" OR WS-CHOICE = "z"
              OPEN EXTEND ZWEM-FILE
           END-IF

           PERFORM UNTIL WS-MORE NOT = "J"
              AND WS-MORE NOT = "j"

              DISPLAY "Datum (YYYYMMDD):"
              ACCEPT WS-DATE

              DISPLAY "Afstand meters:"
              ACCEPT WS-DIST

              DISPLAY "Minuten:"
              ACCEPT WS-MIN

              DISPLAY "Seconden:"
              ACCEPT WS-SEC

              COMPUTE WS-TOTSEC =
                      (WS-MIN * 60) + WS-SEC

              DISPLAY "Hartslag:"
              ACCEPT WS-HR

              DISPLAY "Gewicht:"
              ACCEPT WS-WGT

              IF WS-CHOICE = "F" OR WS-CHOICE = "f"
                 MOVE WS-DATE   TO F-DATE
                 MOVE WS-DIST   TO F-DIST
                 MOVE WS-TOTSEC TO F-TIMESEC
                 MOVE WS-HR     TO F-HR
                 MOVE WS-WGT    TO F-WGT
                 WRITE FIETS-REC
              END-IF

              IF WS-CHOICE = "L" OR WS-CHOICE = "l"
                 MOVE WS-DATE   TO L-DATE
                 MOVE WS-DIST   TO L-DIST
                 MOVE WS-TOTSEC TO L-TIMESEC
                 MOVE WS-HR     TO L-HR
                 MOVE WS-WGT    TO L-WGT
                 WRITE LOOP-REC
              END-IF

              IF WS-CHOICE = "Z" OR WS-CHOICE = "z"
                 MOVE WS-DATE   TO Z-DATE
                 MOVE WS-DIST   TO Z-DIST
                 MOVE WS-TOTSEC TO Z-TIMESEC
                 MOVE WS-HR     TO Z-HR
                 MOVE WS-WGT    TO Z-WGT
                 WRITE ZWEM-REC
              END-IF

              DISPLAY "Nog een record? (J/N)"
              ACCEPT WS-MORE

           END-PERFORM

           IF WS-CHOICE = "F" OR WS-CHOICE = "f"
              CLOSE FIETS-FILE
           END-IF

           IF WS-CHOICE = "L" OR WS-CHOICE = "l"
              CLOSE LOOP-FILE
           END-IF

           IF WS-CHOICE = "Z" OR WS-CHOICE = "z"
              CLOSE ZWEM-FILE
           END-IF

           STOP RUN.