Identification Division.
       Program-Id. divisio.
       Author. "Hoare".
      * ".. Informatik-Handbuch Rechenberg/Romberger"  
       Data Division.
       Working-Storage Section.
         77 div  pic S9(8).
         77 quo  pic S9(8).
         77 rem  pic S9(8).
       Linkage Section.
         77 x  pic S9(8).
         77 y  pic S9(8).
       Procedure Division using x y.
      *  Berechnung von Quotient und Rest
         move zero to div quo
         move x to rem
         perform until rem < y
           subtract y from rem
           add 1 to quo
         end-perform  
      *  nun ist quo = x div y, rem x mod y
       End-Program divisio.