Quelle  Valk p55.cob   Sprache: Cobol

       identification division.
       program-id. bound-live-reversible.
      * aus Valk-Girault Petri-Nets p55
       author. "JD".
       date-written. 16.5.2008.
       date-compiled.
       data division.
       working-storage section.
        77 p1       pic 9.
        77 p2       pic 9.
        77 p3       pic 9.
        77 p4       pic 9.
        77 p5       pic 9.
        77 p6       pic 9.
        77 blocked  pic 9.
       procedure division.
         display "gestartet"
         move 0 to p2 p3 p4 p5 blocked 
         move 1 to p1 p6
         perform until blocked=1
           move 1 to blocked
           if p1>0 then 
             subtract 1 from p1 
             add 1 to p2 p4
             move 0 to blocked
           else if p2>0 and p6 >0 then 
             subtract 1 from p2 p6 
             add 1 to p3 p6
             move 0 to blocked
           else if p4>0 and p6 >0 then 
             subtract 1 from p4 p6 
             add 1 to p5 p6
             move 0 to blocked
           else if p3>0 and p5>0 then 
             subtract 1 from p3 p5 
             add 1 to p1
             move 0 to blocked
           end-if 
         end-perform.
         display "beendet"
        end-program subs.