SUBROUTINE FLUSH(FD)
      INTEGER 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) .EQ. 1 .AND. IC(FD) .GT. 1))GOTO 23002
      BYTE(LINEBUF(1,FD),IC(FD)) = 0
      CALL WRLIN (FD, LINEBUF(1,FD), NC(FD), IER)
      CALL CHKIO (FD, IER)
23002 CONTINUE
      IC(FD) = 1
      NC(FD) = 0
23000 CONTINUE
      RETURN
      END