-+-+-+-+-+-+-+-+ START OF PART 12 -+-+-+-+-+-+-+-+
X`09TYPE 999,'@:PT(W(I7))"S"@;'
X`09TYPE 999,'@:QT(W(I7))"T"@;'
X`09TYPE 999,'@:RT(W(I7))"O"@;'
X`09TYPE 999,'@:ST(W(I6))"*"@;'
X`09TYPE 999,'@:TT(W(I4N1)S`5B12`5D)"+"T(S`5B9`5D)@;'
X`09TYPE 999,'@:UT(W(I5N1)S`5B12`5D)" "T(S`5B9`5D)@;'
X`09TYPE 999,'@:VT(W(I5N1)S`5B12`5D)"   "T(S`5B9`5D)@;'
X`09TYPE 999,'@:WT(W(I5N1)S`5B12`5D)"          "T(S`5B9`5D)@;'
X`09TYPE 999,'@:XT(W(I5N1)S`5B12`5D)"                              "T(S`5B9`5
VD)@;'
X`09TYPE 999,'@:YT(W(I4N1)S`5B12`5D)"++++"T(S`5B9`5D)@;'
X`09TYPE 999,'@:ZT(W(I4N1)S`5B12`5D)"++++++++++"T(S`5B9`5D)@;'
X999`09FORMAT('+',A,$)
X`09CALL REGIS_OFF
X`09END
X
X`09SUBROUTINE GIGI_OFF
X`09END
$ CALL UNPACK EMPIRE.FOR;1 1781067340
$ create 'f'
XC
XC`09EMPIRE.INC
XC
X
X`09IMPLICIT INTEGER(A-Z)
X
X`09PARAMETER IAR=0,IFI=500,IDE=700,ISU=900,ITT=1100,
X`091 ICR=1200,ICA=1300,IBA=1400
X`09PARAMETER IAR2=1500,IFI2=2000,IDE2=2200,ISU2=2400,ITT2=2600,
X`091 ICR2=2700,ICA2=2800,IBA2=2900
X`09PARAMETER IDEH=0,ISUH=200,ITTH=400,ICRH=500,ICAH=600,IBAH=700
X`09PARAMETER IDE2H=800,ISU2H=1000,ITT2H=1200,ICR2H=1300,
X`091 ICA2H=1400,IBA2H=1500
X
X`09INTEGER G2(100)
X`09INTEGER HITS(15),TIPE(15),CRAHIT(15),CRALOC(15)
X`09INTEGER INDEX(15)
X`09INTEGER CMYTBL(9),KBFUDG(9)
X`09INTEGER LOPMAX(15),COMSCN(40)
X`09INTEGER NSHPRF(4,6)
X`09INTEGER PH(8),OVRPOP(16,2)
X`09INTEGER PRIOR(7)
X`09INTEGER RANGE(200),AR2S(500)
X`09INTEGER ARMTOT(20),CODEFU(1500),CODELA(1500),TARGET(70),LIMIT(16)
X`09INTEGER ARROW(9)
X`09INTEGER D2(3)
X`09INTEGER*2 D(667)
X`09INTEGER MYCODE(1500)
X`09INTEGER RANG(200)
X`09INTEGER IOTAB(16)
X`09BYTE`09SPECAL,PASS
X`09BYTE`09AB,AC,AD,AO,E,OWN1,OWN2,OWN`09!AVOID WORD REFERENCES TO THESE
X`09BYTE`09KBTBL(9),AB9(9)
X`09BYTE`09COMM(30),PHAZE(8)
X`09BYTE`09IFILE(11),KILL
X`09BYTE`09COMMAN(20),OKA(5),OKB(5),OKC(5)
X`09BYTE`09TTY(20)
X`09BYTE`09MOVEDFLAG(1500)
X`09BYTE`09J1TS(1600)
X`09BYTE`09EMAP(6000),RMAP(6000),PMAP(6000),OMAP(6000)
X`09BYTE`09PAMELA(8),REEED(9)
X`09INTEGER RLMAP(3000)
X`09LOGICAL`09AUTOMV
X
X`09COMMON/AB9/AB9,PRIOR,NSHPRF
X`09COMMON/ARMTOT/ARMTOT
X`09COMMON/CHRT/COMMAN,COMM,COMSCN,KBTBL
X`09COMMON/CHR2/IFILE,KILL,TTY
X`09COMMON/CITY/FOUND(70),OWNER(70),PHASE(70)
X`09COMMON/CMYTBL/CMYTBL,KBFUDG
X`09COMMON/COD/CODER
X`09COMMON/CODE/CODEFU,CODELA
X`09COMMON/COLLECT/PRODUCEDUNITS(2,8),PCITYROUNDS,CCITYROUNDS
X`09COMMON/CRAHL/HITS,TIPE,CRAHIT,CRALOC
X`09COMMON/FIPATH/FIPATH(70)
X`09COMMON/G2/G2
X`09COMMON/IARROW/IARROW(10),ARROW,INDEX,LOPMAX
X`09COMMON/IOTAB/IOTAB
X`09COMMON/J1TS/J1TS
X`09COMMON/KXK/IADJST
X`09COMMON/MAP/D
X`09COMMON/MAPBLK/EMAP,RMAP,PMAP,RLMAP
X`09COMMON/OMAP/OMAP
X`09COMMON/MISC1/TARGET,AR2S,RANGE,RANG
X`09COMMON/MISC2/LOCI(10,11),NUMBER(18),LIMIT,MDATE,VERSION
X`09COMMON/MODE/MODE,JECTOR,ISEC,NEWRND
X`09COMMON/MFLAGS/MOVEDFLAG
X`09COMMON/MYCOD/D2,MYCODE
X`09COMMON/OKS/OKA,OKB,OKC
X`09COMMON/OVRPOP/OVRPOP
X`09COMMON/P1/PHAZE,PH
X`09COMMON/DAYTIM/PAMELA,REEED
X`09COMMON/PASS/PASS,SPECAL,AUTOMV,OUTOFGAS,LOGFLAG
X`09COMMON/SAVBUF/SAVBUF
X`09COMMON/SCREEN/GIGI,SWIDTH
X`09COMMON/SPS/STEP,POSIT,START
X`09COMMON/TEST2/SUCCES,FAILUR,FULL
X`09COMMON/TROOP/TROOPT(6,5)
X`09COMMON/X/X(70)
XC
XC AGGR: THIS IS A MEASURE OF THE ENEMY SHIPS AGGRESSIVENESS,
XC  THIS VALUE IS ADDED TO THE COST-EFFECTIVENESS OF ATTACKING AN
XC  ENEMY UNIT TO DETERMINE IF THE SHIP WILL ATTACK OR RUN FROM THE
XC  ENEMY.
XC ALL CITIES ARE REFERENCED BY CITY NUMBER, AS IN X(N)=LOC OF CITY #N
XC CODFU/CODELA: CONTAINS A NUMBER THAT DETERMINES WHAT THAT COMPUTER CRAFT
XC  IS ASSIGNED TO DO, IS SEPERATED INTO 2 NUMBERS, IFO AND ILA. IFO
XC  GIVES THE FUNCTION, ILA GIVES DETAILS.
XC CODER: USED FOR DEBUG FLAG
XC CROWD: USED IF CITY IS SURROUNDED BY ARMIES
XC D: ORIGINAL MAP, ENCODED IN MOD 3
XC EXPLOR: THIS IS SET TO 1 IF THE ENEMY SHIP IS TO EXPLORE UNKNOWN
XC  TERRITORY ADJACENT TO IT, 0 IF NOT.
XC FIPATH: STASIS # TO BE GIVEN TO FIGHTER IN THAT CITY
XC FOUND: COMPLETION DATES FOR CITIES
XC IADJST: SUBTRACTED FROM Z6 SO CURSOR WILL NOT BE MOVED OFF SCREEN
XC IARROW: ADDED TO Z6 SO MOVES `5B1,2,3,4,5,6,7,8,9`5D ARE CONVERTED
XC  TO `5B+1,-99,-100,-101,ETC.`5D
XC ISEC: SECTOR TERMINAL IS SHOWING
XC IZAP:  .TRUE.=SAVE GAME, .FALSE.=INITIALIZE
XC JECTOR: SECTOR PROGRAM IS LOOKING AT
XC KURSOR: SET TO POSITION OF CURSOR
XC MODE: 1=IN MODE 2, 0=IN MODE 1
XC OWNER: WHO OWNS THE CITY: 0>NOBODY, 1>PLAYER, 2>COMPUTER
XC PASS: SET TO .TRUE. IF IT IS A PRIVILEGED USER
XC PHASE: PHASE OF CITY
XC X: LOCATIONS OF CITIES
XC
$ CALL UNPACK EMPIRE.INC;1 741167833
$ v=f$verify(v)
$ EXIT