SUBROUTINE KPUTCH(T,CHAN)
      INTEGER T
      INTEGER CH,IER,X
      X=ISHIFT(T,8)
      CALL WRSEQ(CHAN,X,1,IER)
      IF(.NOT.(IER.NE.1))GOTO 23000
      TYPE "error in kputch ",IER
23000 CONTINUE
      RETURN
      END