Identification division.
    Program-id. Tafels.

    Environment division.
    Configuration section.
    Source-computer. Cobol-85.
    Object-computer. Cobol-85.

    Data division.
    Working-storage section.
    77 seed     pic 9(1).
    77 result   pic 99(1).

    Procedure division.
    Main.
        Perform Setup
        Perform Initial-calc
        Perform Repeat-calc
        Stop run.

    Setup.
        display "Van welk getal wenst u de tafel te zien? (1-9)"
        accept seed
        move zeros to result.
        display "Deze gaat als volgt:"
        display result.

    Initial-calc.
        add seed to result
        display result.

    Repeat-calc.
        Perform Initial-calc 9 times.