2025 day 1 part 1

1 files changed, 51 insertions, 0 deletions

diff --git a/2025/day_01.cbl b/2025/day_01.cbl
new file mode 100644
index 0000000..9c5c062
--- /dev/null
+++ b/2025/day_01.cbl
@@ -0,0 +1,51 @@
+       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.
+