Quelle  div-wirth.cob

       identification division.
       program-id. div.
      *  aus Wirth, systematisches Programmieren p. 31 
       author. "JD".
       date-written. 25.10.2004.
       date-compiled.
       data division.
       working-storage section.
       77 q 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 r
         move x to q.
      * invariant q * y + r = x  &&  r >= 0   
         perform until q < y
           subtract y from q
           add      1 to   r
         end-perform.
      *  r = x div y
        end-program div.