identification division.
       program-id. kw126.
      * aus Kowalk - Korrekte Software
      * p. 126
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 a      pic 9(4).
       77 b      pic 9(4).
       linkage section.
       77 n      pic 9(4).
       77 a0     pic 9(4).
       77 b0     pic 9(4).
       77 x1     pic 9(4).
       77 x2     pic 9(4).
       77 x3     pic 9(4).
       77 y1     pic 9(4).
       77 y2     pic 9(4).
       77 y3     pic 9(4).
       procedure division using b0 x1 x2 x3 y1 y2 y3
                          returning a0.
         move a0 to a
         move b0 to b
         perform until a>n
           compute a = a*x1+b*x2+x3
           compute b = a*y1+b*y2+y3
          end-perform
        end-program kw126.