first commit from strem

1 files changed, 87 insertions, 0 deletions

diff --git a/tictactoe.cbl b/tictactoe.cbl
new file mode 100644
index 0000000..b796111
--- /dev/null
+++ b/tictactoe.cbl
@@ -0,0 +1,87 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. tictactoe.
+       AUTHOR. Trey Bastian.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 Player1.
+           02 Score PIC 99 VALUE ZEROS.
+             88 Win VALUE 15.
+           02 Turn PIC 9 value 1.
+       01 Player2.
+           02 Score PIC 99 VALUE ZEROES.
+             88 Win VALUE 15.
+           02 Turn PIC 9 value ZEROS.
+
+       01 PlayerMove PIC 9 VALUE ZEROS.
+       01 Board.
+         02 Rows OCCURS 3 TIMES.
+           03 Entries OCCURS 3 TIMES.
+             04 EntryScore PIC 9 VALUE ZEROS.
+             04 State PIC Z Value "_".
+
+       01 InitRowIdx PIC S9 VALUE 1.
+       01 AccessRowIdx PIC 9 VALUE 0.
+       01 AccessEntryIdx PIC 9  VALUE 0.
+       01 InitEntryIdx PIC S9 VALUE 2.
+       01 InitScoreValue PIC 99 VALUE 1.
+       01 InitDivideResult PIC S99 VALUE ZEROS. 
+       01 InitDivideRemainder PIC 99 VALUE ZEROS.
+       01 IdxRow PIC 9 VALUE 1.
+       01 IdxCol PIC 9 VALUE 1.
+       01 InitAdd3 PIC 99 VALUE 0.
+       PROCEDURE DIVISION.
+
+       Intro SECTION.
+       DISPLAY "Welcome to Trey's Dev Shed Tic Tac Toe Extravaganza!".
+
+       Setup SECTION.
+              PERFORM VARYING InitScoreValue FROM 1 BY 1 UNTIL
+                InitScoreValue > 9 
+                COMPUTE AccessRowIdx = InitRowIdx + 1
+                COMPUTE AccessEntryIdx = InitEntryIdx + 1
+                MOVE InitScoreValue TO 
+                   EntryScore(AccessRowIdx AccessEntryIdx)                
+
+                DIVIDE InitScoreValue BY 3 GIVING InitDivideResult
+                REMAINDER InitDivideRemainder 
+
+                IF InitDivideRemainder = 0 THEN
+                  COMPUTE InitEntryIdx = InitEntryIdx - 1
+                ELSE
+                   COMPUTE InitRowIdx = InitRowIdx - 1
+                   COMPUTE InitEntryIdx = InitEntryIdx + 1
+                END-IF
+
+                COMPUTE InitAdd3 = InitRowIdx + 3
+                DIVIDE InitAdd3 BY 3 GIVING InitDivideResult REMAINDER
+                InitDivideRemainder 
+                COMPUTE InitRowIdx = InitDivideRemainder
+
+                COMPUTE InitAdd3 = InitEntryIdx + 3
+                DIVIDE InitAdd3 BY 3 GIVING InitDivideResult REMAINDER
+                InitDivideRemainder
+                COMPUTE InitEntryIdx = InitDivideRemainder
+              END-PERFORM.
+       Game SECTION.
+           PERFORM UNTIL Win OF Score OF Player1 OR Win OF Score OF
+             Player2
+             PERFORM VARYING IdxRow FROM 1 BY 1 UNTIL IdxRow > 3
+               PERFORM VARYING IdxCol FROM 1 BY 1 UNTIL IdxCol > 3
+                 Display EntryScore(IdxRow, IdxCol)
+               END-PERFORM
+             END-PERFORM
+             SET Win of Score of Player1 TO true
+      * Accept Input
+      * Validate Input
+      * Make Move
+      * Add Score
+           END-PERFORM.
+
+       Outro SECTION.
+           IF Win OF Score OF Player1 THEN
+               DISPLAY "CONGRATS PLAYER 1 Has Won!"
+             ELSE
+               DISPLAY "CONGRATS PLAYER 2 Has Won!"
+            END-IF
+        STOP RUN.