Quelle  Loecks-P153.cob

       identification division.
       program-id. sqrt.
      * from Loeck´/Sieber Example 8.4 p 153
       author. "DJ".
       date-written. 25.10.2004.
       date-compiled.
       data division.
       working-storage section.
       77 y2 pic 9(4).
       77 y3 pic 9(4).
       linkage section.
       77 x pic 9(4).
       77 y1 pic 9(4).
       procedure division using x returning y1.
      * calculates the squareroot of x
      * but only if x > 0 !
         move 0 to y1
         move 1 to y2 y3
         perform until y3 < x
           add 1 to y1
           add 2 to y2
           add y2 to y3
         end-perform.
        end-program sqrt.