IDENTIFICATION DIVISION.
         PROGRAM-ID.  E.
      *  REMARKS. generate digits of e
         ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
         DATA DIVISION.
         WORKING-STORAGE SECTION.
         01 ARRAYS.
             02 A PIC 9(04) COMP OCCURS 200 TIMES.
         01 X PIC 9(04) COMP VALUE 0.
         01 TMOD PIC 9(04) COMP VALUE 0.
         01 TM PIC 9(04) COMP VALUE 0.
         01 TD PIC 9(04) COMP VALUE 0.
         01 N PIC 9(04) COMP VALUE 0.
         01 HV PIC 9(04) COMP VALUE 0.
         01 NXX PIC 99.

         PROCEDURE DIVISION.
         MAIN.
             DISPLAY 'computing e'.
             PERFORM INITA-ROUTINE.
             PERFORM INITA-ROUTINE-B.
             PERFORM INITA-ROUTINE-C.
             PERFORM OUTER-LOOP.
             DISPLAY 'done'.
             STOP RUN.

         INITA-ROUTINE.
             MOVE 200 TO HV.
             MOVE 0 TO X.
             MOVE 199 TO N.

         INITA-ROUTINE-B.
             MOVE 1 TO A( N + 1 ).
             SUBTRACT 1 FROM N.
             IF N > 0 GO TO INITA-ROUTINE-B.

         INITA-ROUTINE-C.
             MOVE 2 TO A( 2 ).
             MOVE 0 TO A( 1 ).
          
         OUTER-LOOP.
             SUBTRACT 1 FROM HV.
             MOVE HV TO N.
             PERFORM INNER-LOOP.
             IF HV > 9 GO TO OUTER-LOOP.

         INNER-LOOP.
             DIVIDE X BY N GIVING TD.
             COMPUTE TMOD = ( X - ( TD * N ) )
             IF 0 = X MOVE 0 TO TMOD.
             MOVE TMOD TO A( N + 1 ).
             MULTIPLY 10 BY A( N ) GIVING TM.
             COMPUTE X = TM + TD.
             SUBTRACT 1 FROM N.
             IF N > 0 GO TO INNER-LOOP.
             MOVE X TO NXX.
             DISPLAY NXX.