IDENTIFICATION DIVISION.
       PROGRAM-ID. day_01.
       AUTHOR. Trey Bastian.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       SELECT input-file ASSIGN TO "./input.txt"
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD input-file.
       01 input-line.
         02 direction PIC X.
         02 move-text PIC XXX.
       WORKING-STORAGE SECTION.
       01 dial-position PIC 9(2) VALUE 50.
       01 move-num PIC S9(3).
       01 zero-count PIC 9(4) VALUE ZEROS.
       01 eof PIC X.
           88 eof-y VALUE "Y".
           88 eof-n VALUE "N".

       
       PROCEDURE DIVISION.
         OPEN INPUT input-file.
         SET eof-n to TRUE.
         PERFORM UNTIL eof-y
             READ input-file AT END
                 SET eof-y to TRUE
             NOT AT END
               MOVE FUNCTION NUMVAL(move-text) TO move-num
               IF direction = "L"
                COMPUTE move-num = 0 - move-num 
               END-IF
               
               COMPUTE dial-position = FUNCTION MOD(dial-position +
               move-num, 100) 

               if dial-position < 0
                 ADD 100 to dial-position
               END-IF

               if dial-position = 0 
                 ADD 1 to zero-count
               END-IF
              END-READ
         END-PERFORM.
         CLOSE input-file.
         DISPLAY zero-count.
       STOP-RUN.