Quelle  winskel-p95.cob

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