Quelle  Kowalk-p113.cbl

       identification division.
       program-id. kw113.
      * aus Kowalk - Korrekte Software
      * p. 113
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 b      pic 9(4).
       linkage section.
       77 limit  pic 9(4).
       77 a      pic 9(4).
       77 c      pic 9(4).
       77 s      pic 9(4).
       procedure division using c s limit returning a.
         move 0 to a
         move 1 to b
         perform until a>limit
           compute a = c*a + s*b
           compute b = b/c - a*s/c
          end-perform
        end-program kw113.