Quelle  Loecks-P147.cob

       identification division.
       program-id. lp147.
      * aus Loecks/Sieber p. 147
       author. Jens.
       date-written. 11.9.2005.
       date-compiled.
       data division.
       linkage section.
       77 x      pic 9(4).
       77 u      pic 9(4).
       77 y      pic 9(4).
       procedure division using x u.
          move 1 to x u
          perform until y = 0
            if u = 0 then
              move x to u
              subtract 1 from y
            else
              add 1 to x
              subtract 1 from u 
            end-if
          end-perform
        end-program lp147.