GnuCOBOL 3.2.0          cobol.cob            Mo Sep 01 2025 20:27:25  Page 0001

LINE    PG/LN  A...B............................................................

000001          IDENTIFICATION DIVISION.
000002          PROGRAM-ID. HALLOPGM.
000003          DATA DIVISION.
000004          WORKING-STORAGE SECTION.
000005          77  C   PIC SV9(07) COMP.
000006          77  CI  PIC SV9(07) COMP.
000007          77  C2  PIC V9(07) COMP.
000008          77  CI2 PIC V9(07) COMP.
000009          77  ZWI PIC V9(07) COMP.
000010          77  I   PIC 9(7)   COMP.
000011          77  BI   PIC 9(8)   COMP.
000012          77  X   PIC SV9(07)   COMP.
000013          77  Y   PIC SV9(07)   COMP.
000014          77  MAXI PIC 9(5) value 5000.
000015          PROCEDURE DIVISION.
000016          P-START.
000017              DISPLAY "LOOK MA! COBOL!"
000018              MOVE 0.1 TO X
000019              MOVE -0.5 TO Y
000020              PERFORM P-MANDEL
000021              EXHIBIT NAMED C CI I
000022              PERFORM P-BENCHMARK
000023              EXHIBIT NAMED C CI I BI
000024              PERFORM P-END.
000025          P-MANDEL.
000026              MOVE 0 TO ZWI C,CI,CI2,C2
000027              PERFORM P-ITER VARYING I FROM 1 BY 1
000028                  UNTIL ZWI > 4 OR I >= MAXI.
000029          P-ITER.
000030              MULTIPLY C BY CI
000031              MULTIPLY 2 BY CI
000032              ADD Y TO CI
000034              SUBTRACT CI2 FROM C2 GIVING C
000035              ADD X TO C
000036              MULTIPLY C BY C GIVING C2
000037              MULTIPLY CI BY CI GIVING CI2
000038              ADD C2 TO CI2 GIVING ZWI.
000039          P-BENCHMARK.
000040              PERFORM P-MANDEL VARYING BI FROM 1 BY 1
000041                      UNTIL BI GREATER THAN 1000.
000042          P-END.
000043              DISPLAY "The ENd"
000044              STOP RUN.


0 warnings in compilation group
0 errors in compilation group
