C-----------------------------------------------------------------------
C  Setup permitted device types:
C  ITERM is the generic type and ITERM2 is a specific device.
C  Note that values for ITERM2 can be duplicated as long as ITERM
C  is different.  In particular the values of ITERM2 for the PC
C  refer to specific video modes and should not be changed.
C
C  Feel free to add to this list.
C-----------------------------------------------------------------------
      INTEGER TEK,    T4010,  T4663,  VT340,  T4107,
     $                QMSTEK, LN03TK, W99GT,
     $        HPGL,
     $        POSTSC,
     $        PC,     CGA,    HERC,   EGAM,    EGA,
     $                MCGA,   VGAM,   VGA,
     $        X11,
     $        RASTER, EPSON,  PROPRT, PRINTX, IMAGEW
      PARAMETER (TEK    =  1,  HPGL  =  2,  POSTSC =  3, PC     =  4,
     $           RASTER =  5,  X11   =  6)
      PARAMETER (T4010  = 11,  T4663 = 12,  VT340 = 13,  T4107  = 14,
     $           QMSTEK = 15,  LN03TK = 16, W99GT = 17)
      PARAMETER (CGA    =  6,  HERC   =  8, EGAM  = 15,  EGA    = 16,
     $           MCGA   = 17,  VGAM   = 17, VGA   = 18)
      PARAMETER (EPSON  = 51,  PROPRT = 52, PRINTX = 53, IMAGEW = 54)
C-----------------------------------------------------------------------
C  The following common block defines the current devices and their
C  resolutions.  This block is for EDRAW internal use only
C-----------------------------------------------------------------------
      INTEGER ITERM,  ITERM2, ITSAV1, ITSAV2,
     $        EDXRES, EDYRES, EDFCOL, EDBCOL,
     $        EDDASH, EDIX,   EDIY,   EDTSIZ
      REAL    PCXMUL, PCYMUL
      COMMON /EDEVS/ ITERM,  ITERM2, ITSAV1, ITSAV2,
     $               EDXRES, EDYRES, EDFCOL, EDBCOL,
     $               EDDASH, EDIX,   EDIY,   EDTSIZ,
     $               PCXMUL, PCYMUL
      CHARACTER*12    TERMTP, TERMGR, PRINTR, PRINTP, PLOTR,  PLOTP
      COMMON /IEDEVC/ TERMTP, TERMGR, PRINTR, PRINTP, PLOTR,  PLOTP
C-----------------------------------------------------------------------
C  The following defines the codes for CXDRAW.
C  NOTE:  If you change these you must also change the definitions in
C         CXDRAW.C
C-----------------------------------------------------------------------
      INTEGER     XOPEN,  XCLOSE, XMOVE,  XDRAW,  XDRAWD, XCLEAR,
     $            XWRITE, XFLUSH, XFGCOL, XBGCOL, XCROSS, XCHSIZ
      PARAMETER ( XOPEN  = 1, XCLOSE = 2, XMOVE  = 3, XDRAW  = 4,
     $            XDRAWD = 5, XCLEAR = 6, XWRITE = 7, XFLUSH = 8,
     $            XFGCOL = 9, XBGCOL = 10,XCROSS = 11,XCHSIZ = 12)