1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
* 九九の表示 - 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.