INTEGER DIDASC
      logical fill
      COMMON /DEFAULT/ KTYP,IXAX,IYAX,ICHTYP,ITFRAM,
     %  IXCH,IMARK,ISYMB,IDASH,NOP,KFORM,NEGPOS,NSPP,KFILL,
     %  NDEC,IUNI,ICON,IHCPY,ITAX,ICOLF,ICOL,ICOLC,DIDASC,
     %  XOR,YOR,ipos,ineg,fill
      common /offset/ xoffset(1000),yoffset(1000)
      common /plotid/ iplhs