#!/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.
000010 PERFORM 30 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.