Quelle  Loecks-P169.cob

       identification division.
       program-id. lp169.
      * aus Loecks/Sieber p. 169
      * berechnet die Wurzel aus x
       author. Jens.
       date-written. 11.9.2005.
       date-compiled.
       data division.
       working-storage section.
       77 y1 pic 9(4).
       77 y2 pic 9(4).
       77 y3 pic 9(4).
       linkage section.
       77 x      pic 9(4).
       77 r      pic 9(4).
       77 z      pic 9(4).
       procedure division using x r returning z.
          move 0 to y1
          move 1 to y2 y3
          perform until y3 <= x
            subtract 1 from y1
            add 2 to y2
            add y2 to y3
          end-perform
          move y1 to z
        end-program lp169.