PROGRAM EDMAIN
C     PURPOSE--THIS IS THE MAIN ROUTINE FOR THE    FED    EDITOR
C
      INCLUDE 'DPCOPA.INC'
C
      CHARACTER*4 ISOURC
      CHARACTER*4 IDPSW
      CHARACTER*80 IEDIFI
C
C-----START POINT------------------------------------------------
C
C     STEP 1--
C     DEFINE DEFAULT DIRECTORY, EXTENSION AND CASE FOR THE EDITOR
C
      IEDDIR=' '
      IEDDIR='FED$'
      NCEDT1=4
C
      IEDEXT=' '
      IEDEXT='.DAT'
      NCEDT2=4
C
      IEDCAS=' '
      IEDCAS='UPPE'
C
C     STEP 2--
C     CALL THE EDITOR
C
      ISOURC='FILE'
      IDPSW='OFF'
      CALL EDMAI2(ISOURC,IEDIFI,IDPSW)
C
      STOP
      END