IDENTIFICATION DIVISION.
        PROGRAM-ID. combination-lock.
        
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01  input-str                           PIC X(20).
        
        01  num-digits                          PIC 9(3) COMP.
        
        01  code-digits-area.
            03  code-digits                     PIC 9(3) COMP
                                                OCCURS 3 TIMES.
        
        01  rotations                           PIC 9(5) COMP.
            
        PROCEDURE DIVISION.
            ACCEPT input-str
            UNSTRING input-str DELIMITED BY SPACES INTO num-digits,
                code-digits (1), code-digits (2), code-digits (3)
        
            COMPUTE rotations = num-digits * 3 + code-digits (1)
                + FUNCTION MOD(code-digits (1) - code-digits (2),
                    num-digits)
            IF code-digits (2) = code-digits (3)
                ADD num-digits TO rotations
            ELSE
                COMPUTE rotations = rotations
                    + FUNCTION MOD(code-digits (3) - code-digits(2),
                        num-digits)
            END-IF
        
            DISPLAY rotations
            .
        END PROGRAM combination-lock.