* 九九の表示 - YCobol 0.19にて動作確認
IDENTIFICATION DIVISION.
PROGRAM-ID. DOUKAKU-62.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 I PIC 9 VALUE 0.
01 J PIC 9.
01 K PIC Z9.
*
PROCEDURE DIVISION.
MAIN.
	PERFORM UNTIL I >= 9
		MOVE 0 TO J
		ADD 1 TO I
		PERFORM UNTIL J >= 9
			ADD 1 TO J
			COMPUTE K = I * J
			DISPLAY I " * " J " = " K
		END-PERFORM
	END-PERFORM
	STOP RUN.