#!/usr/bin/env /friends/bin/cobolscript
000001 IDENTIFICATION                   DIVISION.
000002 PROGRAM-ID.                      HELLO.
000003 AUTHOR.                          koji.
000004 DATA                             DIVISION.
000005 WORKING-STORAGE                  SECTION.
000006 01 CNT PIC 9(3)                  VALUE 0.
000009 01 FIZZ PIC 9(01)                VALUE 0.
000010 01 BUZZ PIC 9(01)                VALUE 0.
000011 PROCEDURE                        DIVISION.
000014     PERFORM 30 TIMES
000015         ADD 1 TO CNT
000016         COMPUTE FIZZ = FUNCTION MOD(CNT 3)
000017         COMPUTE BUZZ = FUNCTION MOD(CNT 5)
000018         IF FIZZ = 0 AND BUZZ = 0 THEN
000019             DISPLAY "FizzBuzz"
000020         ELSE IF FIZZ = 0 THEN
000021             DISPLAY "Fizz"
000022         ELSE IF BUZZ = 0 THEN
000023             DISPLAY "Buzz"
000024         ELSE
000025             DISPLAY CNT
000026         END-IF
000027     END-PERFORM.
000028 STOP RUN.