Quelle  Loecks-P139.cob   Sprache: Cobol

       identification division.
       program-id. lp139.
      * aus Loecks/Sieber p. 139
       author. Jens.
       date-written. 11.9.2005.
       date-compiled.
       data division.
       working-storage section.
       77 y1     pic 9(4).
       77 y2     pic 9(4).
       linkage section.
       77 x      pic 9(4).
       77 z      pic 9(4).
       procedure division using x returning z.
          move x to y1
          move 1 to y2
        test1.
          if y1 > 100 then
            if y2 not = 1 then
                subtract 10 from y1
                subtract 1 from y2
                go to test1
            else
              subtract 10 from y1 giving z
            end-if
          else
            add 11 to y1
            add 1 to y2
            go to test1
          end-if.
      *   display "z is "z
        end-program lp139.