Identification Division.
       Program-Id. Display-of-Pattern-No-1.

       Environment Division.

       Data Division.
       Working-Storage Section.
       77 N       Pic 9.
       77 Counter Pic 9 Value 1.
       77 j       Pic 9 Value 1.

      * The Designing of the Main Screen of the Program.

       Screen Section.
       01 Main-Screen.
           02 Blank-Screen.
           02 Line 2 Column 15 "The Pattern to be Displayed is : "
             Reverse-Video Blink.
           02 Line 4 Column 15 "1".
           02 Line 5 Column 15 "2  1".
           02 Line 6 Column 15 "3  2  1".
           02 Line 7 Column 15 "4  3  2  1".
           02 Line 10 Column 15 "Please Enter the No. of Lines for the a
              "bove Pattern :".
           02 Line 10 Column 70 Pic 9 To N.

       Procedure Division.

       Main-Para.
           Display Main-Screen.
           Accept Main-Screen.
           Move 12 To Lin.
           Move 15 To Col.
           Perform Lines-Loop Varying Counter From 1 By 1 Until
           ( Counter > N ).
           Stop Run.

      * The Main Loop of varying the Lines is Below.

       Lines-Loop.
           Perform Display-Loop Until j < 1.
           Add 1 To Lin.
           Move 15 To Col.
           Compute j = Counter + 1.

      * The Main Loop of Displaying the Pattern is Below.

       Display-Loop.
           Display(Lin, Col) j.
           Add 3 To Col.
           Compute j = j - 1.