Quelle  zeitung.cob

       identification division.
       program-id. zeitung.
       author. " aus dem Hamburger Abendblatt im November 2005".
       date-written. 5.11.2005.
       date-compiled.
       data division.
       working-storage section.
       77 c     pic 9(4).
       01 today.
         05 tt     pic 9(2).
         05 mm     pic 9(2).
         05 jjjj   pic 9(4).
       linkage section.
       77 x     pic 9(4).
       77 y     pic 9(4).
       77 z     pic 9(4).
       77 r1    pic 9(4).
       77 r2    pic 9(4).
       procedure division using y z r1 r2 returning x.
      *  berechnet eine dreistellige Zahl
         move 4 to c
         accept today from date
         if mm of today+tt of today > 
            mm of today+tt of today then
           move 5 to c.
         move z to x
         multiply 2 by x
         add 2 to x
         multiply 50 by x
         add c to x
         subtract y from x
         compute r1 = x / 100
         compute r2 = function mod(x, 100)
      *  Zahl ist x
      *  Ergebnis ist r1 r2
        end-program zeitung.