D                 pi
     D  numtimes                     15p 5 const
     D  what                          1a   const
     D times           s             10i 0
     D i               s             10i 0
     D startTs         s               z
     D endTs           s               z
     D seconds         s              7p 2

     D x               s              5p 2
     D y               s              7p 3 inz(78.9)
      /free
         times = numtimes;
         if what = 'D' or what = 'd' or what = '/';
            startTs = %timestamp();
            for i = 1 to times;
               x = y / 2;
            endfor;
            endTs = %timestamp();
         else;
            startTs = %timestamp();
            for i = 1 to times;
               x = y * 0.5;
            endfor;
            endTs = %timestamp();
         endif;
         dsply ('result = ' + %char(x));

         eval(h) seconds =
                %diff(endTs : startTs : *mseconds) / 1000000;
         if seconds = 0;
            dsply 'need more iterations';
         else;
            dsply (what + ' ' + %char(times) + ' times : '
                 + %char(seconds) + ' seconds.');
         endif;
         return;