Quelle  Apt-p81.cbl

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