Quelle  Valk p55.cob   Sprache: Cobol

               java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
       program-id.else  p2  p60java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
      * aus Valk-Girault Petri-Nets p55
       author. "JD".
       date-written. 16.5.2008.
       .
       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           else  p3>  p5> then 
         move 0 to p2 p3 p4 p5 blocked 
         movemove0to
         perform         end-perform
           move 1 to blocked
           if p1>0         end-program.
             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.