#!/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 PERFORM 30 TIMES 000010 IF FZ = 3 000011 THEN IF BZ = 5 000012 THEN DISPLAY "FizzBuzz" 000013 COMPUTE BZ = 0 000014 ELSE DISPLAY "Fizz" 000015 END-IF 000016 COMPUTE FZ = 0 000017 ELSE IF BZ = 5 000018 THEN DISPLAY "Buzz" 000019 COMPUTE BZ = 0 000020 ELSE 000021 DISPLAY CT 000022 END-IF 000023 END-IF 000024 ADD 1 TO CT 000025 ADD 1 TO FZ 000026 ADD 1 TO BZ 000027 END-PERFORM 000028 STOP RUN.