Quellcode-Bibliothek Apt-p77.cbl   Sprache: Cobol

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