Quelle  bar.cob

       identification division.
       program-id. bar.
      * aus Dirk Hoffmann,
      * Software-Qualität
      * p340ff, Springer 2008
       author. "JD".
       date-written. 28.1.2009.
       date-compiled.
       data division.
       working-storage section.
        77 i pic 9(4).
        linkage section.
        77 x   pic 9(4).
        77 y   pic 9(4).
       procedure division using x returning y.
         move 0 to i
         perform until i >= 6
           add 1 to i
           divide 2 into x
         end-perform.
        end program bar.