Quelle  normal.cob   Sprache: unbekannt

       identification division.
       program-id. normal.
       author. "Patrick Cousot".
       date-written. 10.3.2006.
       date-compiled.
       environment division.
       special-names.
       decimal-point is comma.
       data division.
       working-storage section.
       01 pic X.
         88 xfalse value 0.
         88 xtrue  value 1.
       77 x pic 9(8)V4 comp-5.
       77 y pic 9(4)V2 comp-5.
       77 z pic 9(4)V2 comp-5.
       77 r pic 9(4)V2 comp-5.
       procedure division.
      *   x = ldexp(1.,50)+ldexp(1.,26)
         compute x = 1125899,0 
         compute y = x + 1
         compute z = x - 1
         compute r = y - z
         display 23,45
      * ./a.out
      * 134217728.000000
         display r.
       end-program normal.