Quelle  News2008-p28.cob

       identification division.
       program-id. News2008-p28.
      * aus MathWorks News&Notes 2008
       author. Jens.
       date-written. 27.10.2009.
       date-compiled.
       data division.
       working-storage section.
        77 y pic S9(8).
        77 k pic S9(8).
        77 l pic S9(8).
       linkage section.
        77 inp pic S9(8).
        77 x   pic S9(8).
       procedure division using inp returning x.
          divide 100 into inp giving k
          move 2 to x
          add k 5 giving y
          perform until x >= 10
            add 1 to x
            add 3 to y
          end-perform
          if 3*k + 100 > 43 then
            add 1 to y
            compute x = x / (x-y)
          end-if
        end-program News2008-p28.