Quelle  npluseinhalb.cob

       identification division.
       program-id. npluseinhalb.
      *  aus Pomberger, Dobler
      * Algorithmen und Datenstrukturen, p91
       author. "JD".
       date-written. 3.6.2008.
       date-compiled.
       data division.
       working-storage section.
       77 x pic 9(4).
       77 k pic 9(4).
       linkage section.
       77 n   pic 9(4).
       77 r   pic 9(4).
       procedure division using n r.
      * computes something
         move 1 to x
         move 0 to k.
       label1.
       A1.
         multiply x by k.
         if x>5 then 
           go to label2
         end-if
       A2.
         add 1 to k
         go to label1. 
       label2.
          move x to r.
          display r
        end-program fak.