IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
 
	ENVIRONMENT DIVISION.
 
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77  I             PIC 9(3) VALUE 1.
	77  MOD3          PIC 9(3).
	77  MOD5          PIC 9(3).
 
	PROCEDURE DIVISION.
		PERFORM UNTIL I > 100
			COMPUTE MOD3 = FUNCTION MOD(I, 3)
			COMPUTE MOD5 = FUNCTION MOD(I, 5)
 
			EVALUATE TRUE
				WHEN MOD3 = 0 AND MOD5 = 0
					DISPLAY "FizzBuzz"
				WHEN MOD3 = 0
					DISPLAY "Fizz"
				WHEN MOD5 = 0
					DISPLAY "Buzz"
				WHEN OTHER
					DISPLAY I
			END-EVALUATE
 
			ADD 1 TO I
		END-PERFORM
 
		STOP RUN.

CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoKCUVOVklST05NRU5UIERJVklTSU9OLgoKCURBVEEgRElWSVNJT04uCglXT1JLSU5HLVNUT1JBR0UgU0VDVElPTi4KCTc3ICBJICAgICAgICAgICAgIFBJQyA5KDMpIFZBTFVFIDEuCgk3NyAgTU9EMyAgICAgICAgICBQSUMgOSgzKS4KCTc3ICBNT0Q1ICAgICAgICAgIFBJQyA5KDMpLgoKCVBST0NFRFVSRSBESVZJU0lPTi4KCQlQRVJGT1JNIFVOVElMIEkgPiAxMDAKCQkJQ09NUFVURSBNT0QzID0gRlVOQ1RJT04gTU9EKEksIDMpCgkJCUNPTVBVVEUgTU9ENSA9IEZVTkNUSU9OIE1PRChJLCA1KQoKCQkJRVZBTFVBVEUgVFJVRQoJCQkJV0hFTiBNT0QzID0gMCBBTkQgTU9ENSA9IDAKCQkJCQlESVNQTEFZICJGaXp6QnV6eiIKCQkJCVdIRU4gTU9EMyA9IDAKCQkJCQlESVNQTEFZICJGaXp6IgoJCQkJV0hFTiBNT0Q1ID0gMAoJCQkJCURJU1BMQVkgIkJ1enoiCgkJCQlXSEVOIE9USEVSCgkJCQkJRElTUExBWSBJCgkJCUVORC1FVkFMVUFURQoKCQkJQUREIDEgVE8gSQoJCUVORC1QRVJGT1JNCgoJCVNUT1AgUlVOLg==