commit: fbd18aa5bde998768b73c5a98874822584af8960
parent ae0525dac8b5990d7a15541ed3ab62dba25b17ed
Author: LinuxMercedes <LinuxMercedes@gmail.com>
Date: Sun, 9 Dec 2018 12:40:41 -0600
Merge pull request #312 from 0x0001F36D/patch-3
(Cobol) eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee…
Diffstat:
1 file changed, 14 insertions(+), 0 deletions(-)
diff --git a/e.cbl b/e.cbl
@@ -0,0 +1,14 @@
+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.
+