SSL betrag.cob

       identification division.
       program-id. betrag.
      * von Appell/Väth 
      * aus Funktionalanalysis S. 324
      * eine Approximation der Betragsfunktion
       author. "JD".
       date-written. 18.9.2006.
       date-compiled.
       data division.
       working-storage section.
         77 xn        pic 9(8)V99.
         77 t         pic 9(4).
       procedure division.
         display "start"
         move 0 to t xn
         perform 100 times
           add 1 to t
           compute xn=xn+1/2*(t*t- xn*xn)
         end-perform
         display "done, xn="xn.
        end-program betrag.