INTEGER FUNCTION GETCH (C, FD)
      INTEGER C, FD
      COMMON /CHANNEL/ CHANNEL(0:15), APOS, VPOS, LINEBUF(68,0:15), NC(0
     *:15), IC(0:15), MD(0:15)
      INTEGER CHANNEL
      INTEGER APOS
      INTEGER VPOS
      INTEGER LINEBUF
      INTEGER NC
      INTEGER IC
      INTEGER MD
      IF(.NOT.(0 .LE. FD .AND. FD .LE. 15 .AND. CHANNEL(FD) .NE. 10001))
     *GOTO 23000
      IF(.NOT.(MD(FD) .NE. 0))GOTO 23002
      MD(FD) = 0
      IC(FD) = 1
      NC(FD) = 0
23002 CONTINUE
23004 CONTINUE
      IF(.NOT.(NC(FD) .LT. IC(FD)))GOTO 23007
      NC(FD) = 0
      CALL RDLIN (FD, LINEBUF(1,FD), NC(FD), IER)
      CALL CHKIO (FD, IER)
      IC(FD) = 1
23007 CONTINUE
      IF(.NOT.(NC(FD) .LT. IC(FD)))GOTO 23009
      C = 10003
      GOTO 23010
23009 CONTINUE
      C = BYTE(LINEBUF(1,FD), IC(FD)) .AND. 177K
      IC(FD) = IC(FD) + 1
23010 CONTINUE
23005 IF(.NOT.(C .EQ. 10003 .OR. C .NE. 0))GOTO 23004
23006 CONTINUE
      GOTO 23001
23000 CONTINUE
      C = 10003
23001 CONTINUE
      GETCH=(C)
      RETURN
      END