       IDENTIFICATION DIVISION.
        PROGRAM-ID. hoofdprogramma.
        AUTHOR.YANNIS-DE-WOLF.
        DATE-WRITTEN.ERGENS-IN-OKTOBER.

       ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
        SOURCE-COMPUTER.PC.
        OBJECT-COMPUTER.PC.

       DATA DIVISION.
        working-storage section.
        01 getal1 pic 9(3) value 000.
        01 getal2 pic 9(3) value 000.
        01 toets pic x.

       Procedure division using getal1 getal2.
        main.
        display spaces upon crt
        display "getallen: "           at 0808
        display "getal1"               at 0908
        display getal1                 at 0920
        display "getal2"               at 1008
        display getal2                 at 1020

        move 100 to getal1
        move 200 to getal2

        display "Voer programma B uit" at 1208
        accept toets                   at 1308

        Call "B" using by reference getal1 getal2
        end-call

        display "getal1"               at 2208
        display getal1                 at 2220
        display "getal2"               at 2308
        display getal2                 at 2320


        stop run.
