Quelle  Apt-p2.cbl   Sprache: unbekannt

       identification division.
       program-id. apt-p2.
      * aus Apt-Olderog - Programmverifikation
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 found pic 9(4).
       linkage section.
       77 x     pic 9(4).
       procedure division returning x.
         move 0 to found
         move 0 to x
         perform until found=1
           add 1 to x
           if function f(x)=0 then move 1 to found
         end-perform
        end-program apt-p2.