#!/usr/bin/env /friends/bin/cobolscript
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. FIZZBUZZ.
000003 DATA            DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 CT PIC 999 VALUE 1.
000006 01 FZ PIC 999 VALUE 1.
000007 01 BZ PIC 999 VALUE 1.
000008 PROCEDURE DIVISION.
000009 FIZZ-BUZZ-MAIN SECTION.
000010 PERFORM 100 TIMES
000011             IF FZ = 3
000012                  THEN IF BZ = 5
000013                     THEN DISPLAY "FizzBuzz"
000014                     COMPUTE BZ = 0
000015                     ELSE DISPLAY "Fizz"
000016                     END-IF
000017                     COMPUTE FZ = 0
000018                  ELSE IF BZ = 5
000019                  THEN DISPLAY "Buzz"
000020                          COMPUTE BZ = 0
000021                  ELSE
000022                          DISPLAY CT
000023                  END-IF
000024          END-IF
000025          ADD 1 TO CT
000026          ADD 1 TO FZ
000027          ADD 1 TO BZ
000028     END-PERFORM
000029     STOP RUN.