Quelle  Apt-p47.cbl

       identification division.
       program-id. apt-p47.
      * aus Apt-Olderog - Programmverifikation
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 quo  pic 9(4).
       77 rem  pic 9(4).
       linkage section.
       77 x  pic 9(4).
       77 y  pic 9(4).
       procedure division using x y.
         move 0 to quo
         move x to rem
         perform until rem < y
           subtract y from rem
           add 1 to quo
         end-perform
        end-program apt-47.