C*BEGIN COMMON 
      COMMON SNAP,SNPSHT(226), 
     +   DATE,REMKL,REMCOM,RMBASE,REMRES,RMTIME,STARKL,BASEKL,
     +   KILLK,KILLC,GALAXY(8,8),CX(10),CY(10),BASEQX(5),BASEQY(5), 
     +   NUSTUF(8,8),PLNETS(10,5),ISX,ISY,NSCREM,NROMKL,NROMRM,
     +   NSCKIL,IXTL,NPLNKL, 
     +   QUAD(10,10),KX(20),KY(20),KPOWER(20),KDIST(20),KSTUF(20),  
     +   INKLNG,INBASE,INRESR,INCOM,INTIME,INSTAR,INENRG,INSHLD,
     +   INTRPS,INLSR,INDATE,ENERGY,SHLD,SHLDUP,CONDIT,TORPS,SHIP, 
     +   QUADX,QUADY,SECTX,SECTY,WRPFAC,WFACSQ,LSUPRS,DAMAGE(20), 
     +   LENGTH,SKILL,PASSWD,DIST,DIREC,TIME,BASEX,BASEY,DOKFAC, 
     +   KLHERE,COMHER,CASUAL,NHELP,NKINKS,STARCH(8,8),FUTURE(10), 
     +   DEVICE(2,14),IDIDIT,GAMWON,ALIVE,JUSTIN,RSTING,ALLDON,
     +   DAMFAC,SHLDCH,THINGX,THINGY,NDEVIC,PLNETX,PLNETY,INORBT,
     +   LANDED,IPLNET,IMINE,INPLAN,NENHER,ISHERE,NEUTZ,IRHERE,ICRAFT,
     +   IENTES,ISCRFT,ISATB,ISCATE,CRYPRB,ICITE,IPHWHO,BATX,BATY, 
     +   CRACKS(12),NODISC
      INTEGER CF,CI,SHLDUP,CONDIT,QUADX,QUADY,SECTX,SECTY,TORPS,
     +   REMKL,RMBASE,SKILL,REMCOM,GALAXY,STARCH,CX,CY, 
     +   SHIP,ALLDON,BASEQX,BASEQY,BASEX,BASEY,GAMWON, 
     +   ALIVE,STARKL,BASEKL,CASUAL,COMHER,RSTING,SNAP,SHLDCH, 
     +   THINGX,THINGY,BATX,BATY,PLNETX,PLNETY,PLNETS
      REAL KDIST,KPOWER,LSUPRS,INTIME,INRESR,INDATE,INSHLD,   
     +   INENRG,INLSR 
	BYTE QUAD
	REAL*8 DEVICE,PASSWD
C*END COMMON