*COMDECK ALCOMMON 
      IMPLICIT INTEGER (A-Z)
      COMMON/AUTOLK/ COMBEG(1)
      COMMON /AUTOLK/ 
     1            JCA(64),CARDPTR,CARD2(91),DIRTYPE,ERROR,GOTMOD,ERRFIL,
     1            CCP,INPUT,OUTPUT,OUTDIRD,DIRUNIT,LIST,NOLIST,TMPUNIT, 
     1            BINARY1,BINARY2,NOBIN2,APPLCTR,APPLNAM(60),DAPPLCT, 
     1            DEFAPPL(60),DEFMASK,BUFSPCT,BUFSP(64),PGSZCNT,
     1            PAGSIZS(32),CRSZDIR,CORESIZ,PGREGD,PAGEREG,DIRREAD, 
     1            PGAREAB,PGAREAE,RPTGEN,HIPAGE,WARNING,TMPDATA 
      COMMON /AUTOLK/ 
     1            REPORTS(4),MODNAME,LDADMSK,THNMASK,SYNRMSK,THDLMSK, 
     1            PGVNMSK,DUMYMSK,ADLENMS,ADPTRMS,ABSADMS,OVNAMSK,
     1            FILLMSK,BASEMSK,ADRFLAG,
     1            PVALMSK,PGVLMSK,BINOMSK,SYNRSHF,THDLSHF,PGVLSHF,
     1            ADLNSHF,ADPTSHF,PVALSHF,ANAMASK,CVALMSK,APAGMSK,
     1            APLNMSK,APRTMSK,APAGSHF,A,F,Z,ZERO,NINE,DOLLAR,BLANK, 
     1            BLANKS,EQUALS,COMMA,LPAREN,RPAREN,PLUS,MINUS, 
     1            SLASH,COLON,ASTER,BINSEQ,PGSPACE(32),PGFULL(32),
     1            PAGABLE,REVERSE,FORCE,SRTDAPL(60),SRTDRSV(200), 
     1            SRTDADR(1000),SRTDMOD(1000),ADDRCTR,MODADDR(1024),
     1            FRSTPGA(33),LSTPGAD(33),OVLYBGN,OVLYEND,
     1            OVLYCTR,OVLYTBL(10),APPLMN(60),APPLPGD(60), 
     1            RSRVCTR,RSVCTR2,RESERVD(3,200),MODEFLT(5),
     1            MODCNTR,MODTABL(5,1000),LETRDIG,APPLADD(60),
     1            ZEROFLG,ZERONAM,GAP,GAP1,MEMOVER, 
     1            RAPPLCT,RNAMECT,RPTAPPL(2,60),RPTNAME(2,15) 
      COMMON /AUTOLK/ 
     1   SAMAFLG,SAMMFLG,MDUFLAG,SAMSTRT,SAMPNTR,SAMEND,
     2   SAMMASK,MDUMASK,PEQNPMK,PVALCMP,PVR,PVP,PVNP,PVF,
     3   SRTDMDU(1000)
      COMMON/AUTOLK/ COMEND 
C 
C 
      DIMENSION   CARD(90)
C 
C 
      LOGICAL     ERROR,GOTMOD,CCP,OUTDIRD,NOLIST,NOBIN2, 
     1            CRSZDIR,PGREGD,REPORTS,BUFRPT,DIRRPT,MAPRPT,
     1            INPRPT,PGFULL,DIRREAD,RPTGEN,WARNING,TMPDATA, 
     1            ZEROFLG,MEMOVER,SAMAFLG,SAMMFLG,MDUFLAG 
C 
C 
      EQUIVALENCE (CARD(1),CARD2(1)) , (BUFRPT,REPORTS(1)), 
     1            (DIRRPT,REPORTS(2)) , (MAPRPT,REPORTS(3)),
     1            (INPRPT,REPORTS(4)),
     1            (ADLNMSK,ADLENMS) , (OVNMASK,OVNAMSK) 
C 
C 
C 
C 
C 
C 
