COMMON   / P_COM /   PANGLE,   PBCOLOR,  PBORDER,  PCENTER,  
     $ PCOLOR,   PDATE,    PFONT,    PLEFT,    POVER,    PPORT,
     $ PPROPOR,  PRIGHT,   PSIZE,    PSPACE,   PTABS(0:20),
     $ PTHICK,   PTIME,    PUNDER,   PXRIGHT,  PXSCALE,  PXSHIFT,
     $ PYSCALE,  PYSHIFT,  PXLEFT,   PXCENTER, PWARROW,  PLARROW,
     $ PROTATE
      COMMON   / D_COM /   DANGLE,   DBCOLOR,  DBORDER,  DCENTER,  
     $ DCOLOR,   DDATE,    DFONT,    DLEFT,    DOVER,
     $ DPROPOR,  DRIGHT,   DSIZE,    DSPACE,   DTABS(0:20),
     $ DTHICK,   DTIME,    DUNDER,   DXRIGHT,  DXSCALE,  DXSHIFT,
     $ DYSCALE,  DYSHIFT,  DWARROW,  DLARROW,  DROTATE
C
      CHARACTER *8 PBCOLOR, PCOLOR,  PFONT
      LOGICAL PBORDER, PCENTER, PDATE, POVER, PPORT, PPROPOR, PRIGHT,
     $ PTIME, PUNDER,  PLEFT
      INTEGER PSHADE
      CHARACTER *8 DBCOLOR, DCOLOR,  DFONT
      LOGICAL DBORDER, DCENTER, DDATE, DOVER, DPROPOR, DRIGHT,
     $ DTIME, DUNDER,  DLEFT
      INTEGER DSHADE