       IDENTIFICATION DIVISION.
        PROGRAM-ID. B.
        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 toets pic x.

      / ge had geen linkage section, dus beschouwde hij getal1 en getal2
      / als waarden van enkel het B prog
      / gerief da ge in de 2 programmas gebruikt moet ge in de linkage
      / zetten en die dan gebruiken in procedure division

        linkage section.
        01 getal1 pic 9(3) value 001.
        01 getal2 pic 9(3) value 002.


       Procedure division using getal1 getal2.
       hoofdprog.
       display "Programma B" at 1508
       display "Getallen:" at 1608
       display "getal1" at 1708
       display getal1 at 1720
       display "getal2" at 1808
       display getal2 at 1820

       add 5 to getal1
       add 6 to getal2

       display "Ga terug naar hoofdprogramma" at 1908
       accept toets at 2008
       exit program
       .

