identification division.
       program-id. convert.
      *  aus Wirth, systematisches Programmieren p. 102/ p. 103 ??? 
       author. "JD".
       date-written. 11.9.2005.
       date-compiled.
       data division.
       working-storage section.
       77 h   pic 9(4).
       linkage section.
       77 m pic 9(4)V9(4).
       77 b pic 9(4).
       77 d pic 9(4).
       procedure division using m b d.
      * converts reals to strings
         move 0 to d
         if b >= 0 then
           perform until b not = 0
      *  b>=0 &&   x = m * 2**b * 10**d   0.1 <= m < 1     
             multiply 2 by m
             subtract 1 from b
             if m >= 1 then
               divide 10 into m
               add 1 to d
             end-if
           end-perform
         else
           perform until b = 0
      *  b<0 &&  x = m * 2**b * 10**d   0.1 <= m < 1     
             divide 2 into m
             add 1 to b
             if m < 0.1 then
               multiply 10 by m
               subtract 1 from d
             end-if 
           end-perform
         end-if
      * now m ist the result
        end-program convert.