      * Comment line

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  Iteration-If.
       AUTHOR.  Michael Coughlan.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  Num1           PIC 9  VALUE ZEROS.
       01  Num2           PIC 9  VALUE ZEROS.
       01  Result         PIC 99 VALUE ZEROS.
       01  Operator       PIC X  VALUE SPACE.

      * This is not allowed (bad ident):
      PROCEDURE DIVISION.
       
       Calculator.      * comments outside 7th are also not allowed
       PERFORM 3 TIMES
               DISPLAY "Enter First Number      : " WITH NO ADVANCING this is a very long line
               ACCEPT Num1
               DISPLAY "Enter Second Number     : " WITH NO ADVANCING
               ACCEPT Num2 
               DISPLAY "Enter operator (+ or *) : " WITH NO ADVANCING
               ACCEPT Operator
               IF Operator = "+" THEN
                      ADD Num1, Num2 GIVING Result
               END-IF
               IF Operator = "*" THEN
                      MULTIPLY Num1 BY Num2 GIVING Result
               END-IF
               DISPLAY "Result is = ", Result
       END-PERFORM.

       STOP RUN.
