IDENTIFICATION DIVISION.
       PROGRAM-ID. FIZZBUZZ.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 I        PIC 9(3) VALUE 1.
       77 MOD3     PIC 9 VALUE 0.
       77 MOD5     PIC 9 VALUE 0.
       77 TMP      PIC 9(3).
 
       PROCEDURE DIVISION.
       PERFORM UNTIL I > 100
           COMPUTE TMP = I / 3
           COMPUTE MOD3 = I - (TMP * 3)
           COMPUTE TMP = I / 5
           COMPUTE MOD5 = I - (TMP * 5)
 
           IF MOD3 = 0 AND MOD5 = 0 THEN
               DISPLAY "FizzBuzz"
           ELSE
               IF MOD3 = 0 THEN
                   DISPLAY "Fizz"
               ELSE
                   IF MOD5 = 0 THEN
                       DISPLAY "Buzz"
                   ELSE
                       DISPLAY I
                   END-IF
               END-IF
           END-IF
 
           ADD 1 TO I
       END-PERFORM.
       STOP RUN.

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRklaWkJVWlouCgogICAgICAgREFUQSBESVZJU0lPTi4KICAgICAgIFdPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgNzcgSSAgICAgICAgUElDIDkoMykgVkFMVUUgMS4KICAgICAgIDc3IE1PRDMgICAgIFBJQyA5IFZBTFVFIDAuCiAgICAgICA3NyBNT0Q1ICAgICBQSUMgOSBWQUxVRSAwLgogICAgICAgNzcgVE1QICAgICAgUElDIDkoMykuCgogICAgICAgUFJPQ0VEVVJFIERJVklTSU9OLgogICAgICAgUEVSRk9STSBVTlRJTCBJID4gMTAwCiAgICAgICAgICAgQ09NUFVURSBUTVAgPSBJIC8gMwogICAgICAgICAgIENPTVBVVEUgTU9EMyA9IEkgLSAoVE1QICogMykKICAgICAgICAgICBDT01QVVRFIFRNUCA9IEkgLyA1CiAgICAgICAgICAgQ09NUFVURSBNT0Q1ID0gSSAtIChUTVAgKiA1KQoKICAgICAgICAgICBJRiBNT0QzID0gMCBBTkQgTU9ENSA9IDAgVEhFTgogICAgICAgICAgICAgICBESVNQTEFZICJGaXp6QnV6eiIKICAgICAgICAgICBFTFNFCiAgICAgICAgICAgICAgIElGIE1PRDMgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkZpenoiCiAgICAgICAgICAgICAgIEVMU0UKICAgICAgICAgICAgICAgICAgIElGIE1PRDUgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgICAgICBESVNQTEFZICJCdXp6IgogICAgICAgICAgICAgICAgICAgRUxTRQogICAgICAgICAgICAgICAgICAgICAgIERJU1BMQVkgSQogICAgICAgICAgICAgICAgICAgRU5ELUlGCiAgICAgICAgICAgICAgIEVORC1JRgogICAgICAgICAgIEVORC1JRgoKICAgICAgICAgICBBREQgMSBUTyBJCiAgICAgICBFTkQtUEVSRk9STS4KICAgICAgIFNUT1AgUlVOLg==