⟦f4accc98e⟧

TextFile


	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 TIPE(15),CRAHIT(15),CRALOC(15)
c	HITS(15)
	integer x(70)
	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 IARROW(10)
	INTEGER D2(3)
	INTEGER D(667)
	INTEGER MYCODE(1500)
	INTEGER RANG(200)
	INTEGER IOTAB(16)
	INTEGER	PHAZEE(8)

	INTEGER		owner(70)
	INTEGER		found(70)
	INTEGER		phase(70)
	INTEGER		fipath(70)
	INTEGER		loci(10,11)
	INTEGER		number(18)
	INTEGER		troopt(6,5)

	integer ptr
	logical		SPECAL,PASS
	character	submap(39,39)
	character	AB,AC,AD,AO,E,OWN1,OWN2,OWN
comment	AVOID WORD REFERENCES TO THESE
	character	KBTBL(9),AB9(9)
	character	COMM(30),PHAZE(8)
	character	IFILE(11),KILL
	character	COMMAN(20),OKA(5),OKB(5),OKC(5)
	character*20	TTY
	integer		MOVEDFLAG(1500)
	integer		J1TS(1600)
	character	EMAP(6000),RMAP(6000),PMAP(6000),OMAP(6000)
	character	PAMELA(8),REEED(9)
	integer		cities(128)
	character jnkbuf ( 80 )
	INTEGER RLMAP(3000)
	LOGICAL	AUTOMV

	COMMON /cols/cols
	COMMON /lines/lines
	COMMON /PRIOR/ PRIOR
	COMMON /NSHPRF/ NSHPRF
	COMMON /AB9/ AB9
	COMMON /ARMTOT/ ARMTOT
	COMMON /COMSCN/ COMSCN
	COMMON /KBTBL/ KBTBL
	COMMON /COMMAN/ COMMAN
	COMMON /COMM/ COMM
	COMMON /IFILE/ IFILE
	COMMON /KILL/ KILL
	COMMON /TTY/ TTY
	COMMON /FOUND/ FOUND
	COMMON /OWNER/ OWNER
	COMMON /PHASE/ PHASE
	COMMON /CMYTBL/ CMYTBL
	COMMON /KBFUDG/ KBFUDG
	COMMON /CODER/ CODER
	COMMON /CODEFU/ CODEFU
	COMMON /CODELA/ CODELA
c	COMMON /HITS/ HITS
	COMMON /TIPE/ TIPE
	COMMON /CRAHIT/ CRAHIT
	COMMON /CRALOC/ CRALOC
	COMMON /FIPATH/ FIPATH
	COMMON /G2/ G2
	COMMON /IARROW/ IARROW
	COMMON /ARROW/ ARROW
	COMMON /INDEX/ INDEX
	COMMON /LOPMAX/ LOPMAX
	COMMON /IOTAB/ IOTAB
	COMMON /J1TS/ J1TS
	COMMON /IADJST/ IADJST
	COMMON /D/ D
	COMMON /EMAP/ EMAP
	COMMON /RMAP/ RMAP
	COMMON /PMAP/ PMAP
	COMMON /RLMAP/ RLMAP
	COMMON /OMAP/ OMAP
	COMMON /TARGET/ TARGET
	COMMON /AR2S/ AR2S
	COMMON /RANGE/ RANGE
	COMMON /RANG/ RANG
	COMMON /LOCI/ LOCI
	COMMON /NUMBER/ NUMBER
	COMMON /LIMIT/ LIMIT
	COMMON /MDATE/ MDATE
	COMMON /VERSION/ VERSION
	COMMON /MODE/ MODE
	COMMON /JECTOR/ JECTOR
	COMMON /ISEC/ ISEC
	COMMON /NEWRND/ NEWRND
	COMMON /MOVEDFLAG/ MOVEDFLAG
	COMMON /D2/ D2
	COMMON /MYCODE/ MYCODE
	COMMON /OKA/ OKA
	COMMON /OKB/ OKB
	COMMON /OKC/ OKC
	COMMON /OVRPOP/ OVRPOP
	COMMON /PHAZE/ PHAZE
	COMMON /PHAZEE/ PHAZEE
	COMMON /PH/ PH
	COMMON /PAMELA/ PAMELA
	COMMON /REEED/ REEED
	COMMON /PASS/ PASS
	COMMON /SPECAL/ SPECAL
	COMMON /AUTOMV/ AUTOMV
	COMMON /SAVBUF/ SAVBUF
	COMMON /STEP/ STEP
	COMMON /POSIT/ POSIT
	COMMON /START/ START
	COMMON /SUCCES/ SUCCES
	COMMON /FAILUR/ FAILUR
	COMMON /FULL/ FULL
	COMMON /TROOPT/ TROOPT
	COMMON /X/ X
	COMMON /jnkbuf/ jnkbuf
	COMMON /ptr/ ptr
	COMMON /CITIES/ CITIES
	COMMON /SUBMAP/SUBMAP
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
DataMuseum.dk

DKUUG/EUUG Conference tapes

⟦f4accc98e⟧ TextFile

Derivation

TextFile
