Quelle  francez-p65.cob

       Identification Division.
       Program-Id. francez-p65.
       Author. "Nissim Francez".
      * "aus Program Verification"  
       Data Division.
       Working-Storage Section.
         77 exp   pic S9(8).
         77 mr    pic S9(8).
         77 md    pic S9(8).
         77 base  pic S9(8).
         77 r     pic S9(8).
       Procedure Division.
         display "start".
         move 1 to r
        l.
         if exp=0 then
           go to le
         end-if.  
         subtract 1 from exp
         move base to mr
         move r to md
         move 0 to r
        l1.   
         if mr=0 then
           go to l
         else
           subtract 1 from mr
           add md to mr
      *    ??? parallel zuweisung
         end-if
         go to l1
        le.
         display "halt r=" r
       End-Program francez-p65.