Quelle  saegezahn.cob

       identification division.
       program-id. saegezahn.
      * Autor Jens-D. Doll
      * Dies ist eine Schwingung aus ganzen
      * Zahlen und der Restklassenarithmetik
      * aufgebaut aus mod, abs und sign
       author. "JD".
       date-written. 27.8.2006.
       date-compiled.
       data division.
       working-storage section.
         77 Periode   pic 9(4).
         77 Amplitude pic 9(4).
         77 P4        pic 9(4).
         77 n         pic 9(4).
         77 fn        pic 9(4).
         77 sig       pic S9(4).
         77 te        pic 9(4).
       procedure division.
         display "start"
         accept Periode
         accept Amplitude
         perform until n > 2*Periode
           if n < Periode/2 then move 1 to sig
           else                  move -1 to sig end-if
           compute te=n- Periode/4
           compute fn = function mod(te,Amplitude)
           call plot using n fn
         end-perform
         display "done".
        end-program saegezahn.