IMPLICIT INTEGER(A-Z)

	PARAMETER IAR=0,IFI=500,IDE=700,ISU=900,ITT=1100,
	1 ICR=1200,ICA=1300,IBA=1400
	PARAMETER IAR2=1500,IFI2=2000,IDE2=2200,ISU2=2400,ITT2=2600,
	1 ICR2=2700,ICA2=2800,IBA2=2900
	PARAMETER IDEH=0,ISUH=200,ITTH=400,ICRH=500,ICAH=600,IBAH=700
	PARAMETER IDE2H=800,ISU2H=1000,ITT2H=1200,ICR2H=1300,
	1 ICA2H=1400,IBA2H=1500

	INTEGER G2(100)
	INTEGER HITS(15),TIPE(15),CRAHIT(15),CRALOC(15)
	INTEGER INDEX(15)
	INTEGER CMYTBL(9),KBFUDG(9)
	INTEGER LOPMAX(15),COMSCN(40)
	INTEGER NSHPRF(4,6)
	INTEGER PH(8),OVRPOP(16,2)
	INTEGER PRIOR(7)
	INTEGER RANGE(200),AR2S(500)
	INTEGER ARMTOT(20),CODEFU(1500),CODELA(1500),TARGET(70),LIMIT(16)
	INTEGER ARROW(9)
	INTEGER D2(3)
	INTEGER*2 D(667)
	INTEGER MYCODE(1500)
	INTEGER RANG(200)
	INTEGER IOTAB(16)
	INTEGER	PHAZEE(8)
	BYTE	SPECAL,PASS
	BYTE	AB,AC,AD,AO,E,OWN1,OWN2,OWN	!AVOID WORD REFERENCES TO THESE
	BYTE	KBTBL(9),AB9(9)
	BYTE	COMM(30),PHAZE(8)
	BYTE	IFILE(14),KILL
	BYTE	COMMAN(20),OKA(5),OKB(5),OKC(5)
	BYTE	TTY(20)
	BYTE	MOVEDFLAG(1500)
	BYTE	J1TS(1600)
	BYTE	EMAP(6000),RMAP(6000),PMAP(6000),OMAP(6000)
	BYTE	PAMELA(8),REEED(9)
	INTEGER RLMAP(3000)
	LOGICAL	AUTOMV

	EQUIVALENCE (RLMAP(1),EMAP(1)),(RLMAP(1),RMAP(1))
	EQUIVALENCE (RLMAP(1),PMAP(1)),(RLMAP(1),OMAP(1))
	EQUIVALENCE (RLMAP(1),CODEFU(1)),(RLMAP(1501),CODELA(1))
	EQUIVALENCE (RLMAP(1),MYCODE(1)),(RLMAP(1501),RANG(1))
	EQUIVALENCE (RLMAP(1701),D(1)),(RLMAP(1),MOVEDFLAG(1))
	EQUIVALENCE (RLMAP(751),J1TS(1)),(RLMAP(1551),RANGE(1))
	EQUIVALENCE (RLMAP(1751),AR2S(1))

	COMMON/MAPPED/RLMAP
	COMMON/AB9/PRIOR,NSHPRF,AB9
	COMMON/ARMTOT/ARMTOT
	COMMON/CHRT/COMMAN,COMM,COMSCN,KBTBL
	COMMON/CHR2/IFILE,KILL,TTY
	COMMON/CITY/FOUND(70),OWNER(70),PHASE(70)
	COMMON/CMYTBL/CMYTBL,KBFUDG
	COMMON/COD/CODER
	COMMON/CRAHL/HITS,TIPE,CRAHIT,CRALOC
	COMMON/FIPATH/FIPATH(70)
	COMMON/G2/G2
	COMMON/IARROW/IARROW(10),ARROW,INDEX,LOPMAX
	COMMON/IOTAB/IOTAB
	COMMON/KXK/IADJST
	COMMON/MISC1/TARGET
	COMMON/MISC2/LOCI(10,11),NUMBER(18),LIMIT,MDATE,VERSION
	COMMON/MODE/MODE,JECTOR,ISEC,NEWRND
	COMMON/MYCOD/D2
	COMMON/OKS/OKA,OKB,OKC
	COMMON/OVRPOP/OVRPOP
	COMMON/P1/PHAZE,PHAZEE,PH
	COMMON/DAYTIM/PAMELA,REEED
	COMMON/PASS/PASS,SPECAL,AUTOMV
	COMMON/SAVBUF/SAVBUF
	COMMON/SPS/STEP,POSIT,START
	COMMON/TEST2/SUCCES,FAILUR,FULL
	COMMON/TROOP/TROOPT(6,5)
	COMMON/X/X(70)
C
C AGGR: THIS IS A MEASURE OF THE ENEMY SHIPS AGGRESSIVENESS,
C  THIS VALUE IS ADDED TO THE COST-EFFECTIVENESS OF ATTACKING AN
C  ENEMY UNIT TO DETERMINE IF THE SHIP WILL ATTACK OR RUN FROM THE
C  ENEMY.
C ALL CITIES ARE REFERENCED BY CITY NUMBER, AS IN X(N)=LOC OF CITY #N
C CODFU/CODELA: CONTAINS A NUMBER THAT DETERMINES WHAT THAT COMPUTER CRAFT
C  IS ASSIGNED TO DO, IS SEPERATED INTO 2 NUMBERS, IFO AND ILA. IFO
C  GIVES THE FUNCTION, ILA GIVES DETAILS.
C CODER: USED FOR DEBUG FLAG
C CROWD: USED IF CITY IS SURROUNDED BY ARMIES
C D: ORIGINAL MAP, ENCODED IN MOD 3
C EXPLOR: THIS IS SET TO 1 IF THE ENEMY SHIP IS TO EXPLORE UNKNOWN
C  TERRITORY ADJACENT TO IT, 0 IF NOT.
C FIPATH: STASIS # TO BE GIVEN TO FIGHTER IN THAT CITY
C FOUND: COMPLETION DATES FOR CITIES
C IADJST: SUBTRACTED FROM Z6 SO CURSOR WILL NOT BE MOVED OFF SCREEN
C IARROW: ADDED TO Z6 SO MOVES [1,2,3,4,5,6,7,8,9] ARE CONVERTED
C  TO [+1,-99,-100,-101,ETC.]
C ISEC: SECTOR TERMINAL IS SHOWING
C IZAP:  .TRUE.=SAVE GAME, .FALSE.=INITIALIZE
C JECTOR: SECTOR PROGRAM IS LOOKING AT
C KURSOR: SET TO POSITION OF CURSOR
C MODE: 1=IN MODE 2, 0=IN MODE 1
C OWNER: WHO OWNS THE CITY: 0>NOBODY, 1>PLAYER, 2>COMPUTER
C PASS: SET TO .TRUE. IF IT IS A PRIVILEGED USER
C PHASE: PHASE OF CITY
C X: LOCATIONS OF CITIES
C