rock-paper-scissors.cob

       IDENTIFICATION DIVISION.
       PROGRAM-ID. RANDOM-NUMBER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           01 RAND-NUM PIC 9(2).
           01 CURRENT-TIME.
                  05 T-HOURS PIC 99.
                  05 T-MINS PIC 99.
                  05 T-SECS PIC 99.
                  05 T-MS PIC 999.
           01 PLAYER-CHOICE PIC A(8).
           01 COMPUTER-CHOICE PIC A(10).
           01 CHOICE-IND PIC 9.
           01 BLAH PIC 99.
           01 ROCK PIC A(8) VALUE 'rock'.
           01 SCISSORS PIC A(8) VALUE 'scissors'.
           01 PAPER PIC A(8) VALUE 'paper'.
           01 CHOICES.
                  05 CHOICE PIC A(8) OCCURS 3 TIMES.
           01 RESULT PIC X(20) VALUE 'You lose!'.

       PROCEDURE DIVISION.
           MOVE ROCK TO CHOICE(1).
           MOVE SCISSORS TO CHOICE(2).
           MOVE PAPER TO CHOICE(3).
           ACCEPT current-time FROM TIME.
           DISPLAY 'Pick "rock", "paper", or "scissors"'.
           ACCEPT PLAYER-CHOICE.

           COMPUTE RAND-NUM = FUNCTION RANDOM (T-MS) * 100.
           DIVIDE RAND-NUM BY 3 GIVING BLAH REMAINDER CHOICE-IND.
           MOVE CHOICE(CHOICE-IND + 1) TO COMPUTER-CHOICE.
           DISPLAY 'Computer chose ' COMPUTER-CHOICE.

           IF PLAYER-CHOICE = COMPUTER-CHOICE
                  MOVE 'Tie!' TO RESULT
           END-IF.

           IF PLAYER-CHOICE = 'rock' AND COMPUTER-CHOICE = 'scissors'
                  MOVE 'You win!' TO RESULT
           END-IF.

           IF PLAYER-CHOICE = 'scissors' AND COMPUTER-CHOICE = 'paper'
                  MOVE 'You win!' TO RESULT
           END-IF.

           IF PLAYER-CHOICE = 'paper' AND COMPUTER-CHOICE = 'rock'
                  MOVE 'You win!' TO RESULT
           END-IF.

           DISPLAY RESULT.
       STOP RUN.