C ----- NCOM MUST BE GREATER THAN OR EQUAL TO NUMCOM IN INITIAL -----
      PARAMETER (NCOM=60,NTERM=21,NCOLOR=28,LSIZE=300)
      COMMON / SYSCOM /  COMMAN(NCOM),     LIST(NCOM),       NUMCOM,
     $ TERMS(NTERM),     LINE,
     $ CLINE,   TLINE,   ITLINE,  X,       Y,       PAGEX,   PAGEY,
     $ OLD,     BUGGIN,  JUSTIF,  HOLOW,   CHECKOUT,SHADY,   WIDTH,
     $ DEVICE,  IUP,     ONETYP(NCOM),     PRINTING,NICE,
     $ RUSSIAN, XDMP,    XLINE,   WHERE,   N_LINE,  TSTAMP,  DSTAMP,
     $ HANDY,   NREAD,   COLORS(NCOLOR),   DISCOL(NCOLOR),   FIELD,   
     $ LF,      ONETIME, OVERD,   SPECIAL, ICOLOR,  FSTAMP
      CHARACTER *(LSIZE) TLINE, XLINE, LINE, CLINE, FIELD
      CHARACTER *8 COMMAN, TERMS, DEVICE, COLORS
      CHARACTER *4 DISCOL
      CHARACTER *1 OLD, ONETYP
      LOGICAL BUGGIN,  HOLOW,  CHECKOUT, SHADY,  PRINTING, NICE
      LOGICAL RUSSIAN, XDMP,   WHERE,    TSTAMP, DSTAMP,   HANDY
      LOGICAL ONETIME, OVERD,  SPECIAL,  FSTAMP