	SUBROUTINE LISTEN(STATUS)

C  THIS SUBROUTINE LISTENS TO THE GT40 FOR A PERIOD
C  OF TIME DEFINED BY THE DO LOOP. IF NO CHARACTER
C  IS FORTHCOMING THE ROUTINE RETURNS A -1

	IMPLICIT INTEGER (A - Z)
	DO 10 I = 1, 1000
		STATUS = GETCHR(0)
		IF(STATUS .NE. -1) RETURN
10	CONTINUE
	RETURN
	END

