000010  IDENTIFICATION		DIVISION.
000020  PROGRAM-ID.			FIZZBUZZ.
000030*
000040	ENVIRONMENT		DIVISION.

000000  DATA	DIVISION.
000000  WORKING-STORAGE		SECTION.
000000    01 A		    PIC 99.
000000    01 X		    PIC 99.
000000    01 TEPPEN	    PIC Z9.		*> ゼロパディングしない
000000    01 GOAL	    PIC Z9.
000000    01 HENSU		PIC 99.
000000    01 SHOU		PIC 99.
000000    01 AMARI3		PIC 9.
000000    01 AMARI5		PIC 9.
000000	PROCEDURE		DIVISION.
000000	MAIN			SECTION.
000000	     ACCEPT TEPPEN
000000	     PERFORM VARYING GOAL FROM 1 BY 1 UNTIL GOAL > TEPPEN
000000	       PERFORM AMARI-DASHI
000000         IF AMARI3 = 0 THEN
000000           DISPLAY 'Fizz ' WITH NO ADVANCING
000000         END-IF
000000         IF AMARI5 = 0 THEN
000000           DISPLAY 'Buzz ' WITH NO ADVANCING
000000         END-IF
000000         IF AMARI3 NOT = 0 AND AMARI3 NOT = 0 THEN
000000           DISPLAY GOAL ' ' WITH NO ADVANCING
000000         END-IF
000000	     END-PERFORM.
000000	AMARI-DASHI.		*> これは段落
000000	       DIVIDE 3 INTO GOAL GIVING SHOU REMAINDER AMARI3
000000	       DIVIDE 5 INTO GOAL GIVING SHOU REMAINDER AMARI5.
000000	AMARI-DASHI-END.	*> セクションの中に段落を作れる
000000	MAIN-END.
000000	  EXIT
000000	EXIT EXIT PROGRAM.