subroutine 	WRITE_LINE (line, x_offset, top)

c  Writes a line to the left of the plotted MINUIT fit.  Replaces the
c  pep4 routine RLINE in MINSHOW.
c  Glen Cowan 8.4.88

	implicit	NONE

c  constants

	Real*4		char_size
	Parameter	(char_size = 0.40)
	Real*4		x_left
	Parameter	(x_left = 0.2)
	Real*4		y_size
	Parameter	(y_size = char_size * 1.5)
	Real*4		y_top
	Parameter	(y_top = 18.)

c  argumenets

	Character*(*)	line
	Integer*4	x_offset
	Logical		top

c  local variables

	Real*4		x
	Real*4		y
	save            y

c  begin

	if ( top ) then
	  y = y_top
	else
	  y = y - y_size
	endif

	x = float (x_offset) * char_size * 0.8  +  x_left

	call HPLSOF (x, y, line, char_size, 0., 0., -1)
	call IGTERM

	return
	END