Quelle  Aufbruch.cob

       identification division.
       program-id. aufbruch.
      ********************************************
      * eine schöne geometrische Figur aus der Zeit
      * vom 12.6.2008 im Jahr-der-mathematik
      ********************************************
       author. Jens.
       date-written. 25.10.2004.
       date-compiled.
       data division.
       working-storage section.
         77 x pic 9(8)V9(4).
         77 y pic 9(8)V9(4).
         77 z pic 9(8)V9(4).
         77 t pic 9(8)V9(4).
         77 r pic 9(8)V9(4).
       procedure division.
         display "gestartet"
         perform varying x from 0 by 0.01 until x >= 1
           perform varying y from 0 by 0.01 until y >= 1
             perform varying z from 0 by 0.01 until z >= 1
               compute r=8*x*x*y*z*z
               compute t=0.04*x*x*x*x+x*y*y+0.04*y*y*y*z
               compute z=z*t
               compute z=z*(z+6)
               compute z=z+5*x*(9*z-25)-z*y*y
               if z=0 then display "z="z 
             end-perform
           end-perform
         end-perform.
         display "beendet"
        end-program geometric.