Quelle  winskel-p77.cob

       identification division.
       program-id. winskel.
       author. "JD".
       date-written. 31.1.2007.
       date-compiled.
       data division.
       working-storage section.
        77 S pic 9(16).
        77 N pic 9(4).
        linkage section.
        77 r   pic 9(16).
       procedure division using r.
      * computes r = n!
         move 0 to S
         move 1 to N.
         perform until N=101
           add N to S
           add 1 to N
         end-perform.
         move S to r.
        end-program winskel.