Quelle  Kowalk-p130.cbl

       identification division.
       program-id. kw130.
      * aus Kowalk - Korrekte Software
      * p. 130, 3. Prog
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 b      pic 9(4).
       linkage section.
       77 a      pic 9(4).
       77 t      pic 9(4).
       77 u      pic 9(4).
       77 s      pic 9(4).
       77 r      pic 9(4).
       77 c      pic 9(4).
       procedure division using t u s r returning a.
         compute a =2*t-6*u
         compute b=u-t+s
         move r to c
         perform until cond
           compute a = a + 6*u
           add a to b
           add b to c
          end-perform
        end-program kw130.