      function h2n(s)
*
*
*
*
*
*
*
*
*
$catalog local
*
      res = ''
      for i = len(s) to 1 step -1
         res := s[i,1]
      next i
*
      return(res)
   end
