Quelle  Ebb-p174.cob   Sprache: unbekannt

       identification division.
       program-id. ep174.
      * aus Ebbinghaus/Flum/Thomas
      * Math. Logik p. 171
       author. Jens.
       date-written. 6.2.2011.
       date-compiled.
       data division.
       linkage section.
         77 a0 pic 9(4).
         77 r1 pic 9(4).
       procedure division using a0 r1.
       l0. 
         add a0 to r1.
         go to l0.
         stop run.
        end-program ep174.