Quelle  Kowalk-p203.cbl

       identification division.
       program-id. kw203.
      * aus Kowalk - Korrekte Software
      * p. 203
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 b      pic 9(4).
       77 c      pic 9(4).
       linkage section.
       77 a      pic 9(4). 
       77 n      pic 9(4).
       procedure division using n returning a.
         move -8 to a
         move 2 to b
         move 0 to c
         perform n times
           add 6 to a
           add a to b
           add b to c
           call writer using n a b c
          end-perform
        end-program kw203.