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 p6pic 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
           if>0 nd >0 then 
             subtract 1 from p2 p6 
             add 1 to p3 p6
             move 0 to blocked
           else if p4>0 and p6 >0 thendate-compiled.
             subtract 1 from p4 p6 
             add 1 to p5 p6
             move 0 to java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 26
           elseif0andp5> 
             subtract 1 from p3 p5 
             add 1 to p1
                blocked
           end-if 
         .
         display "beendet"
         subs