commit 0004ce89543ea16fffff832eb3684a340f365a0e · treybastian.com/cobol-tic-tac-toe

+87

tictactoe.cbl

···

       1
       +
              IDENTIFICATION DIVISION.

     

       2
       +
              PROGRAM-ID. tictactoe.

     

       3
       +
              AUTHOR. Trey Bastian.

     

       4
       +
       

     

       5
       +
              DATA DIVISION.

     

       6
       +
              WORKING-STORAGE SECTION.

     

       7
       +
              01 Player1.

     

       8
       +
                  02 Score PIC 99 VALUE ZEROS.

     

       9
       +
                    88 Win VALUE 15.

     

       10
       +
                  02 Turn PIC 9 value 1.

     

       11
       +
              01 Player2.

     

       12
       +
                  02 Score PIC 99 VALUE ZEROES.

     

       13
       +
                    88 Win VALUE 15.

     

       14
       +
                  02 Turn PIC 9 value ZEROS.

     

       15
       +
       

     

       16
       +
              01 PlayerMove PIC 9 VALUE ZEROS.

     

       17
       +
              01 Board.

     

       18
       +
                02 Rows OCCURS 3 TIMES.

     

       19
       +
                  03 Entries OCCURS 3 TIMES.

     

       20
       +
                    04 EntryScore PIC 9 VALUE ZEROS.

     

       21
       +
                    04 State PIC Z Value "_".

     

       22
       +
       

     

       23
       +
              01 InitRowIdx PIC S9 VALUE 1.

     

       24
       +
              01 AccessRowIdx PIC 9 VALUE 0.

     

       25
       +
              01 AccessEntryIdx PIC 9  VALUE 0.

     

       26
       +
              01 InitEntryIdx PIC S9 VALUE 2.

     

       27
       +
              01 InitScoreValue PIC 99 VALUE 1.

     

       28
       +
              01 InitDivideResult PIC S99 VALUE ZEROS. 

     

       29
       +
              01 InitDivideRemainder PIC 99 VALUE ZEROS.

     

       30
       +
              01 IdxRow PIC 9 VALUE 1.

     

       31
       +
              01 IdxCol PIC 9 VALUE 1.

     

       32
       +
              01 InitAdd3 PIC 99 VALUE 0.

     

       33
       +
              PROCEDURE DIVISION.

     

       34
       +
       

     

       35
       +
              Intro SECTION.

     

       36
       +
              DISPLAY "Welcome to Trey's Dev Shed Tic Tac Toe Extravaganza!".

     

       37
       +
       

     

       38
       +
              Setup SECTION.

     

       39
       +
                     PERFORM VARYING InitScoreValue FROM 1 BY 1 UNTIL

     

       40
       +
                       InitScoreValue > 9 

     

       41
       +
                       COMPUTE AccessRowIdx = InitRowIdx + 1

     

       42
       +
                       COMPUTE AccessEntryIdx = InitEntryIdx + 1

     

       43
       +
                       MOVE InitScoreValue TO 

     

       44
       +
                          EntryScore(AccessRowIdx AccessEntryIdx)                

     

       45
       +
       

     

       46
       +
                       DIVIDE InitScoreValue BY 3 GIVING InitDivideResult

     

       47
       +
                       REMAINDER InitDivideRemainder 

     

       48
       +
       

     

       49
       +
                       IF InitDivideRemainder = 0 THEN

     

       50
       +
                         COMPUTE InitEntryIdx = InitEntryIdx - 1

     

       51
       +
                       ELSE

     

       52
       +
                          COMPUTE InitRowIdx = InitRowIdx - 1

     

       53
       +
                          COMPUTE InitEntryIdx = InitEntryIdx + 1

     

       54
       +
                       END-IF

     

       55
       +
       

     

       56
       +
                       COMPUTE InitAdd3 = InitRowIdx + 3

     

       57
       +
                       DIVIDE InitAdd3 BY 3 GIVING InitDivideResult REMAINDER

     

       58
       +
                       InitDivideRemainder 

     

       59
       +
                       COMPUTE InitRowIdx = InitDivideRemainder

     

       60
       +
       

     

       61
       +
                       COMPUTE InitAdd3 = InitEntryIdx + 3

     

       62
       +
                       DIVIDE InitAdd3 BY 3 GIVING InitDivideResult REMAINDER

     

       63
       +
                       InitDivideRemainder

     

       64
       +
                       COMPUTE InitEntryIdx = InitDivideRemainder

     

       65
       +
                     END-PERFORM.

     

       66
       +
              Game SECTION.

     

       67
       +
                  PERFORM UNTIL Win OF Score OF Player1 OR Win OF Score OF

     

       68
       +
                    Player2

     

       69
       +
                    PERFORM VARYING IdxRow FROM 1 BY 1 UNTIL IdxRow > 3

     

       70
       +
                      PERFORM VARYING IdxCol FROM 1 BY 1 UNTIL IdxCol > 3

     

       71
       +
                        Display EntryScore(IdxRow, IdxCol)

     

       72
       +
                      END-PERFORM

     

       73
       +
                    END-PERFORM

     

       74
       +
                    SET Win of Score of Player1 TO true

     

       75
       +
             * Accept Input

     

       76
       +
             * Validate Input

     

       77
       +
             * Make Move

     

       78
       +
             * Add Score

     

       79
       +
                  END-PERFORM.

     

       80
       +
       

     

       81
       +
              Outro SECTION.

     

       82
       +
                  IF Win OF Score OF Player1 THEN

     

       83
       +
                      DISPLAY "CONGRATS PLAYER 1 Has Won!"

     

       84
       +
                    ELSE

     

       85
       +
                      DISPLAY "CONGRATS PLAYER 2 Has Won!"

     

       86
       +
                   END-IF

     

       87
       +
               STOP RUN.