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