Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/listen.lst
There is 1 other file named listen.lst in the archive. Click here to see a list.
LISTEN	LISTEN.FOR	FORTRAN V.5A(621) /KI	1-FEB-81	11:37	PAGE 1


00001		SUBROUTINE LISTEN(STATUS)
00002	
00003	C  THIS SUBROUTINE LISTENS TO THE GT40 FOR A PERIOD
00004	C  OF TIME DEFINED BY THE DO LOOP. IF NO CHARACTER
00005	C  IS FORTHCOMING THE ROUTINE RETURNS A -1
00006	
00007		IMPLICIT INTEGER (A - Z)
00008		DO 10 I = 1, 1000
00009			STATUS = GETCHR(0)
00010			IF(STATUS .NE. -1) RETURN
00011	10	CONTINUE
00012		RETURN
00013		END


SUBPROGRAMS CALLED

GETCHR


SCALARS AND ARRAYS [ "*" NO EXPLICIT DEFINITION - "%" NOT REFERENCED ]

*STATUS	1	 .S0000	2	*I	3	

TEMPORARIES

 .A0016	4	

LISTEN	[ NO ERRORS DETECTED ]