IDENTIFICATION DIVISION.
        PROGRAM-ID. SQUARES.
      *
        DATA DIVISION.
        WORKING-STORAGE SECTION.
         01 OUTPUT-FIELD.
      * Note that COMP for 18 digits equates to a quad word.
      * CR1,2,3 are 0x0d = 13 = CR, for on-screen display
            05  SQ1     PIC  9(18)        VALUE 0.
            05  CR1     PIC  X(1)         VALUE X"0D".
            05  SQ2     PIC  9(18)        VALUE 0.
            05  CR2     PIC  X(1)         VALUE X"0D".
            05  SQ3     PIC  9(18)        VALUE 0.
            05  CR3     PIC  X(1)         VALUE X"0D".
         01 CALCULATION-FIELD.
            05  DIFF1   PIC  9(18)        VALUE 1.
            05  DIFF2   PIC  9(18)        VALUE 2.
            05  TEMP    PIC  9(18)        VALUE 1.
      *
       PROCEDURE DIVISION.
       CALCULATE-SQUARES SECTION.
            MOVE TEMP TO SQ1.
            ADD DIFF2 TO DIFF1 GIVING DIFF1.
            ADD DIFF1 TO TEMP GIVING TEMP.
            MOVE TEMP TO SQ2.
            ADD DIFF2 TO DIFF1 GIVING DIFF1.
            ADD DIFF1 TO TEMP GIVING TEMP.
            MOVE TEMP TO SQ3.
       DISPLAY-RESULTS SECTION.
            DISPLAY OUTPUT-FIELD.
      *
            EXIT PROGRAM.
       END PROGRAM SQUARES.