SSL Ebb-p171.cob

       identification division.
       program-id. ep171.
      * aus Ebbinghaus/Flum/Thomas
      * Math. Logik p. 171
       author. Jens.
       date-written. 6.2.2011.
       date-compiled.
       data division.
       linkage section.
       77 r0 pic 9(4).
       procedure division returning r0.
         if r0 = 0 then goto l6.
          subtract 1 from r0.
         if r0 = 0 then goto l5.
          subtract 1 from r0.
         if r0 = 0 then goto l6.
       l5. 
         add 1 to r0.
       l6.  
         display "fertig"
        end-program ep171.