INTEGER FUNCTION KGETCH(T,CHAN)
      INTEGER T,CHAN,X,IER
      CALL RDSEQ(CHAN,X,1,IER)
      IF(.NOT.(IER.NE.1))GOTO 23000
      GOTO 100
23000 CONTINUE
      T=ISHIFT(X,-8).AND. 177K
      KGETCH=1
      RETURN
100   CONTINUE
      KGETCH=0
      RETURN
      END