	SUBROUTINE GSINPT(X,Y,LFLAG,IERR)
	LOGICAL LFLAG
C
C	DO A GENERIC GRAPHICS INPUT
C
	BYTE CHAR, SPACE
	DATA SPACE /' '/
C
	CALL GSCRSR(X,Y,IBUTN,IERR)
	IF (IERR .NE. 0) GO TO 100
		LFLAG = (IAND(IBUTN,1) .EQ. 1)
		RETURN
100	CONTINUE
	CALL GSGIN(X,Y,CHAR,IERR)
	IF (IERR .NE. 0) RETURN
	LFLAG = (CHAR .EQ. SPACE)
	RETURN
	END
