IDENTIFICATION DIVISION.
       PROGRAM-ID. FIZZBUZZ.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 I        PIC 9(3) VALUE 1.
       01 REM3     PIC 9(3).
       01 REM5     PIC 9(3).
 
       PROCEDURE DIVISION.
           PERFORM UNTIL I > 100
               COMPUTE REM3 = FUNCTION MOD(I, 3)
               COMPUTE REM5 = FUNCTION MOD(I, 5)
 
               IF REM3 = 0 AND REM5 = 0 THEN
                   DISPLAY "FizzBuzz"
               ELSE
                   IF REM3 = 0 THEN
                       DISPLAY "Fizz"
                   ELSE
                       IF REM5 = 0 THEN
                           DISPLAY "Buzz"
                       ELSE
                           DISPLAY I
                       END-IF
                   END-IF
               END-IF
 
               ADD 1 TO I
           END-PERFORM
 
           STOP RUN.
 

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRklaWkJVWlouCgogICAgICAgREFUQSBESVZJU0lPTi4KICAgICAgIFdPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgMDEgSSAgICAgICAgUElDIDkoMykgVkFMVUUgMS4KICAgICAgIDAxIFJFTTMgICAgIFBJQyA5KDMpLgogICAgICAgMDEgUkVNNSAgICAgUElDIDkoMykuCgogICAgICAgUFJPQ0VEVVJFIERJVklTSU9OLgogICAgICAgICAgIFBFUkZPUk0gVU5USUwgSSA+IDEwMAogICAgICAgICAgICAgICBDT01QVVRFIFJFTTMgPSBGVU5DVElPTiBNT0QoSSwgMykKICAgICAgICAgICAgICAgQ09NUFVURSBSRU01ID0gRlVOQ1RJT04gTU9EKEksIDUpCgogICAgICAgICAgICAgICBJRiBSRU0zID0gMCBBTkQgUkVNNSA9IDAgVEhFTgogICAgICAgICAgICAgICAgICAgRElTUExBWSAiRml6ekJ1enoiCiAgICAgICAgICAgICAgIEVMU0UKICAgICAgICAgICAgICAgICAgIElGIFJFTTMgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgICAgICBESVNQTEFZICJGaXp6IgogICAgICAgICAgICAgICAgICAgRUxTRQogICAgICAgICAgICAgICAgICAgICAgIElGIFJFTTUgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgICAgICAgICAgRElTUExBWSAiQnV6eiIKICAgICAgICAgICAgICAgICAgICAgICBFTFNFCiAgICAgICAgICAgICAgICAgICAgICAgICAgIERJU1BMQVkgSQogICAgICAgICAgICAgICAgICAgICAgIEVORC1JRgogICAgICAgICAgICAgICAgICAgRU5ELUlGCiAgICAgICAgICAgICAgIEVORC1JRgoKICAgICAgICAgICAgICAgQUREIDEgVE8gSQogICAgICAgICAgIEVORC1QRVJGT1JNCgogICAgICAgICAgIFNUT1AgUlVOLgo=