      function bin2ip(s)
*
*
*
*
*
*
*
*
*
$catalog local
*
      res = ''

      if len(s) <> 4 then return

      res = seq(s[1,1]) : '.' : seq(s[2,1]) : '.' : seq(s[3,1]) : '.' : seq(s[4,1])

      return(res)
   end
