IDENTIFICATION DIVISION.
       PROGRAM-ID. BIRD.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.


       01  THE-BIRD.
           05 BIRD-SHELL       PIC X(10) VALUE "          ".
           05 BIRD-ENTRY       PIC X(10) VALUE "THE BIRD".

       01  Y-N-TRACK           PIC X     VALUE " ".

       01  BIRD-FOOD.
           05 SUNFLOWER-SEED   PIC X(17) VALUE "1 SUNFLOWER-SEED ".
           05 BIRD-SEED        PIC X(12) VALUE "2 BIRD-SEED ".
           05 MIXED-SEED       PIC X(13) VALUE "3 MIXED-SEED ".
           05 PUMPKIN-SEED     PIC X(15) VALUE "4 PUMPKIN-SEED ".
           05 BANANA           PIC X(8)  VALUE "5 BANANA".

       01  ANS-SELECTOR        PIC X     VALUE " ".
       01  ANS-TRACK           PIC X(17) VALUE " ".

       01  DATE-FORM           PIC XXXX/XX/XX.
       01  TIME-FORM.
           03   HOUR           PIC XX.
           03   BRACKET        PIC X VALUE "h".
           03   MINUTES        PIC XX.


       PROCEDURE DIVISION.
       PROGRAM-BEGIN.
           PERFORM BIRD-PROCESS.

           IF BIRD-SHELL = BIRD-ENTRY
               PERFORM BIRD-FEED
               UNTIL Y-N-TRACK = "Y" OR "N".

           IF ANS-TRACK = "INVALID INPUT"
               PERFORM FEED-THREE
                   ELSE PERFORM FEED-FOUR.


       PROGRAM-DONE.
           STOP RUN.

       BIRD-PROCESS.
           DISPLAY "NAME OF THE BIRD? (10 chrctrs or less)".
           ACCEPT BIRD-ENTRY.
           MOVE BIRD-ENTRY TO BIRD-SHELL.
           DISPLAY "THE BIRD'S NAME IS " BIRD-ENTRY.

       BIRD-FEED.
           DISPLAY "WILL YOU FEED " BIRD-ENTRY " NOW? (Y/N)".
           ACCEPT Y-N-TRACK.

           IF Y-N-TRACK = "Y" OR "N"
               THEN PERFORM FEED-TWO
                   ELSE DISPLAY "INVALID INPUT"
                       END-IF.
       FEED-TWO.
           IF Y-N-TRACK = "N"
               THEN EXIT PARAGRAPH.
           IF Y-N-TRACK = "Y"
               THEN PERFORM FEED-THREE.

       FEED-THREE.

           DISPLAY "SELECT FOOD (1-5)".
           DISPLAY BIRD-FOOD.
           ACCEPT ANS-SELECTOR.

           EVALUATE ANS-SELECTOR

               WHEN "1"
                   MOVE SUNFLOWER-SEED TO ANS-TRACK
               WHEN "2"
                   MOVE BIRD-SEED TO ANS-TRACK
               WHEN "3"
                   MOVE MIXED-SEED TO ANS-TRACK
               WHEN "4"
                   MOVE PUMPKIN-SEED TO ANS-TRACK
               WHEN "5"
                   MOVE BANANA TO ANS-TRACK

               WHEN OTHER
                   MOVE "INVALID INPUT" TO ANS-TRACK
                   DISPLAY "INVALID INPUT"
           END-EVALUATE.

       FEED-FOUR.
           MOVE FUNCTION CURRENT-DATE(1:8)  TO DATE-FORM.
           MOVE FUNCTION CURRENT-DATE(9:2)  TO HOUR.
           MOVE FUNCTION CURRENT-DATE(11:2) TO MINUTES.
           DISPLAY "YOU FED "
                   BIRD-ENTRY ANS-TRACK
                   " ON " DATE-FORM
                   " @" TIME-FORM.