real b
      real g
      integer i
      integer j
      integer k
      character*22 name
      real r
!
      open ( unit = 1, file = 'color_names.txt', status = 'old' )
      open ( unit = 2, file = 'color_255.txt', status = 'old' )
      open ( unit = 3, file = 'color.txt', status = 'replace' )

10    continue

      read ( 1, '(a)', end = 20 ) name
      read ( 2, * ) i, j, k
      r = real ( i ) / 255.0
      g = real ( j ) / 255.0
      b = real ( k ) / 255.0
      write ( 3,
     &  '(a22,2x,i3,2x,i3,2x,i3,2x,f10.4,2x,f10.4,2x,f10.4)' )
     &  name, i, j, k, r, g, b
      go to 10

20    continue

      close ( unit = 1 )
      close ( unit = 2 )
      close ( unit = 3 )

      stop
      end