Quelle  double-2.cob

       identification division.
       program-id. dou2.
       author. "Patrick Cousot".
       date-written. 10.3.2006.
       date-compiled.
       data division.
       working-storage section.
       01 pic X.
         88 xfalse value 0.
         88 xtrue  value 1.
       77 x pic 9(4) comp-4.
       77 y pic 9(4) comp-4.
       77 z pic 9(4) comp-4.
       procedure division.
      *   if ((x < -1.0e38) or (x > 1.0e38)) 
          if ((x < -1.0e13) or (x > 1.0e13)) 
           stop run.
         perform until false
          compute y = x + 1.0e21
          compute z = x - 1.0e21
      *     compute y = x + 1.0e18
      *     compute z = x - 1.0e11
           compute x = y - z
         end-perform.
       end-program dou2.