Quelle  winskel-p93.cob

       identification division.
       program-id. winskel.
       author. "JD".
       date-written. 31.1.2007.
       date-compiled.
       data division.
       working-storage section.
        77 x pic 9(16).
        77 y pic 9(4).
        linkage section.
        77 n   pic 9(4).
        77 r   pic 9(16).
       procedure division using n r.
      * computes r = n!
         move n to x
         move 1 to y.
         perform until x<=0
           multiply y by x
           subtract 1 from x
         end-perform.
         move Y to r.
        end-program winskel.