e.cbl (278B)
- IDENTIFICATION DIVISION.
- PROGRAM-ID. eeeeeeeee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 e PIC X VALUE 0.
- PROCEDURE DIVISION.
- MAIN-PROCEDURE.
- PERFORM UNTIL e > e
- DISPLAY 'e'
- END-PERFORM.
- STOP RUN.
git clone https://hacktivis.me/git/mirror/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee.git
e.cbl (278B)
- IDENTIFICATION DIVISION.
- PROGRAM-ID. eeeeeeeee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 e PIC X VALUE 0.
- PROCEDURE DIVISION.
- MAIN-PROCEDURE.
- PERFORM UNTIL e > e
- DISPLAY 'e'
- END-PERFORM.
- STOP RUN.