	CALL PLOTS(IERR,'TTY')
100	CALL XHAIRS(X,Y,LETTER)
	CALL PLOT(X,Y,2)
	IF(LETTER.NE.'X') GOTO 100
	CALL PLOT(X,Y,999)
	END

