Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
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 ]