Quelle  Apt-p75.cbl

       identification division.
       program-id. apt-p75.
      * aus Apt-Olderog - Programmverifikation
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 k  pic 9(4).
       77 x  pic 9(4).
       linkage section.
       77 n  pic 9(4).
       77 a  pic 9(4) occurs 100.
       procedure division using n a.
         move 0 to k x
         perform until k=n
           add a(k) to x
           add 1 to k
         end-perform
        end-program apt-p75.