      IMPLICIT INTEGER(A-Z)
      IMPLICIT CHARACTER*12 ($)
      PARAMETER TABLESIZE=2000
      PARAMETER REHASHSIZE=10
      PARAMETER MAJOR=17
      PARAMETER NOPTS=56
      PARAMETER BUFFSIZE=500
      PARAMETER PADSIZE=100
      PARAMETER NCLASS=8
      DIMENSION $NAME(0:TABLESIZE)
      DIMENSION KEYS(0:TABLESIZE)
      DIMENSION AUXVAL(0:TABLESIZE)
      CHARACTER*1 $UNREF(0:TABLESIZE)
      LOGICAL REFIT(0:TABLESIZE)
      DIMENSION $CLASS(0:NCLASS), CLASSCT(0:NCLASS)
      LOGICAL REFDEF(0:NCLASS)
      CHARACTER*140 $LINE, $LEX
      CHARACTER*8 $COMMAND(MAJOR),$OPTIONS(NOPTS)
      CHARACTER*4 $OPT(NOPTS)
      DIMENSION OPTVAL(NOPTS)
      CHARACTER*20 $BLANKS
      CHARACTER*11 $FID
      DIMENSION CLASS(NOPTS)
      DIMENSION BUFFER(BUFFSIZE),PAD(PADSIZE)
      INTEGER REHASHVALUES(0:REHASHSIZE)
      DIMENSION PTCH(30)
      CHARACTER*1 $SEP, $TAB
      LOGICAL TROUBLE,LIST,LISTED,EXIST,NAMED,OPENED,BREAK,XREF
      DOUBLE PRECISION OUTKEY
      COMMON /STRINGS/ $NAME,$LEX,$SEP,$COMMAND,$OPTIONS,$LINE,
     + $BLANKS, $CLASS, $CLASSXX, $OPT, $UNREF, $FID, $TAB
      COMMON /UNITS/ TEXTFILE, INSTFILE, INUNIT, OUTUNIT
      COMMON /VALUES/ KEYS, AUXVAL, LINEX, LINEND, KEY, CLASS,
     + NEXTOBJECT, NEXTPLACE, NEXTTEXT, NEXTVERB, NEXTVAR,
     + NEXTINIT, NEXTLABEL, NEXTREPEAT,  SYMCNT,
     + BUFFER,PAD,  MAXBUFF, CLASSCT, NEXTNULL, TROUBLE, LIST, REFIT,
     + REFDEF, ININCLUDE, INMAIN, OPTVAL, NREC, REHASHVALUES, REHASHN,
     + LISTED, EXIST, NAMED, OPENED, CACHEDW, CACHEHW, XREF, FNUM
      COMMON /BREAK/ BREAK
      COMMON /DOUBLES/ OUTKEY
      COMMON /PATCH/ PTCH
