>>SOURCE FORMAT FREE
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ReadAndPrintFile.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT InputFile ASSIGN TO "input.txt"
               ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD  InputFile.
       01  FileRecord          PIC X(80).

       WORKING-STORAGE SECTION.
       01  EOF-SWITCH          PIC X VALUE 'N'.
           88  At-Eof          VALUE 'Y'.

       PROCEDURE DIVISION.
       MAIN-LOGIC.
           OPEN INPUT InputFile
           
           PERFORM UNTIL At-Eof
               READ InputFile
                   AT END
                       SET At-Eof TO TRUE
                   NOT AT END
                       DISPLAY FileRecord
               END-READ
           END-PERFORM

           CLOSE InputFile
           STOP RUN.