Quellcode-Bibliothek schach.cob

       identification division.
       program-id. schach.
      * aus Baumgarten Petri-Netze p60
       author. "JD".
       date-written. 16.5.2008.
       date-compiled.
       data division.
       working-storage section.
        77 spieler1     pic 9.
        77 spieler2     pic 9.
        77 schachbrett  pic 9.
        77 spieler1dran pic 9.
        77 spieler2dran pic 9.
        77 blocked      pic 9.
       procedure division.
         display "Spiel gestartet"
         move 0 to spieler2 
                   spieler2dran
                   blocked
         move 1 to schachbrett
                   spieler1 
                   spieler1dran                    
         perform until blocked=1
           move 1 to blocked
           if spieler1>0 and spieler1dran then 
             subtract 1 from spieler1dran
                              spieler1 
              add 1 to spieler2dran
                      schachbrett
              move 0 to blocked
           else if spieler2>0 and spieler2dran then
             subtract 1 from spieler2dran
                              spieler2 
             add 1 to spieler1dran
                      schachbrett
              move 0 to blocked
           end-if
         end-perform.
         display "Spiel beendet"
        end-program subs.