PARAMETER (NCOM=47,NTERM=19)
      COMMON / SYSCOM / COMMAN(NCOM),   TERMS(NTERM),   LINE,
     $ CLINE,  TLINE,   ITLINE, X,      Y,      PAGEX,  PAGEY,
     $ OLD,    BUGGIN,  JUSTIF, HOLOW,  CHECKOUT,SHADY, WIDTH,
     $ DEVICE, IUP,     LASER,  ONETYP(NCOM),   PRINTING,NICE,
     $ RUSSIAN,XDMP,    XLINE, WHERE,   N_LINE, TSTAMP, DSTAMP,
     $ HANDY
      COMMON / READUN / NREAD
      CHARACTER *255 TLINE, XLINE
      CHARACTER *255 LINE, CLINE
      CHARACTER *8 COMMAN, TERMS, DEVICE
      CHARACTER *1 OLD, ONETYP
      LOGICAL BUGGIN, HOLOW, CHECKOUT, SHADY, PRINTING, NICE
      LOGICAL RUSSIAN, XDMP, WHERE, TSTAMP, DSTAMP, HANDY