SUBROUTINE STDSETUP (FDI, FDO, FDE)
      INTEGER FDI, FDO, FDE
      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
      DATA CHANNEL /10001, 15*10001/
      DATA APOS / 32767 /
      DATA VPOS / 32767 /
      DATA NC / 0, 15*0 /
      DATA IC / 1, 15*1 /
      DATA MD / 2, 15*2 /
      CHANNEL(3) = 0
      CHANNEL(6) = 1
      CHANNEL(10) = 1
      CHANNEL(11) = 0
      CHANNEL(12) = 1
      IF(.NOT.(FDI.GE.0))GOTO 23000
      CHANNEL(FDI) = 0
23000 CONTINUE
      IF(.NOT.(FDO.GE.0))GOTO 23002
      CHANNEL(FDO) = 1
23002 CONTINUE
      IF(.NOT.(FDE.GE.0))GOTO 23004
      CHANNEL(FDE) = 1
23004 CONTINUE
      RETURN
      END