Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50446/listen.f4
There are no other files named listen.f4 in the archive.
	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