Quelle  Kowalk-p128.cbl

       identification division.
       program-id. kw128.
      * aus Kowalk - Korrekte Software
      * p. 128
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 i      pic 9(4).
       linkage section.
       77 n      pic 9(4).
       77 fak    pic 9(4).
       procedure division using n returning fak.
         move 1 to i fak
         perform until i>n
           multiply i by fak
           add 1 to i
          end-perform
        end-program kw128.