Quelle  multfast.cob

       identification division.
       program-id. multfast.
      *  aus Wirth, systematisches Programmieren p. 31 
       author. "JD".
       date-written. 11.9.2005.
       date-compiled.
       data division.
       working-storage section.
       77 z pic 9(4).
       77 u pic 9(4).
       77 v pic 9(4).
       linkage section.
       77 x   pic 9(4).
       77 y   pic 9(4).
       77 r   pic 9(4).
       procedure division using x y r.
      * computes x / y
         move 0 to z
         move x to u.
         move y to v.
      * invariant z + u * y = x * y  &&  u > 0   
         perform until u <= 0
           if function odd(u) then
             add v to z
           end-if
           divide 2 into u
           multiply 2 by v
         end-perform.
         move z to r.
        end-program multfast.