Quelle  A1-Sterne.cob

       identification division.
       program-id. sterne.
      * aus Loyd/Gardner
      * Mathematische Rätsel und Spiele
      * Dumont 2006 Aufgabe 1
       author. JD.
       date-written. 6.2.2011.
       date-compiled.
       data division.
       working-storage section.
         77 erstegroese value 1.
         77 zweitegroesse value 2.
         77 winkel value 55.
         77 i pic 9(4).
       linkage section.
         01 blackboard. 
           05 width pic 9(4) occurs 15.
           05 height pic 9(4) occurs 15.
         01 sterne occurs 15.
           05 radius pic 9(4).
           05 side pic 9(4).
           05 center.
             10 x pic 9(4).
             10 y pic 9(4).
       procedure division using sterne.
         perform varying i from 1 by 1 until i>15
           perform drawstar
         end-perform
         stop run.
      *
        drawstar.
         call moveto using x(i),y(i)
         call moveup using radius(i)
         call lineto using side(i) winkel(i)
         call lineto using side(i) winkel(i)
         call lineto using side(i) winkel(i)
         call lineto using side(i) winkel(i)
         call lineto using side(i) winkel(i)
        crossing.
         if function cross(i) then
           display "nicht kreuzungsfrei"
        end-program sterne.