SUBROUTINE RATEXIT
      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
      DO23000 I = 0, 15
      CALL FLUSH (I)
23000 CONTINUE
23001 CONTINUE
      CALL EXIT
      END