DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦46ff28716⟧ TextFile

    Length: 483 (0x1e3)
    Types: TextFile
    Names: »cityct.f«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Empire/cityct.f«

TextFile

	SUBROUTINE CITYCT
C
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C
C
	NUMBER(9)=0
	DO 100 I=11,18
100	NUMBER(I)=0
	DO 200 I=1,70
	IF (OWNER(I).NE.2) GOTO 200
	NUMBER(9)=NUMBER(9)+1
	IF (PHASE(I).LE.0) GOTO 200
comment	HANDLES JUST CAPTURED CITY
	INDEXX=INDEX(PHASE(I))
	NUMBER(INDEXX)=NUMBER(INDEXX)+1
200	CONTINUE
C 
C NOW LET NUMBER(10)=LAST FILLED SLOT IN TARGET
C
	DO 300 I=70,1,-1
	IF (TARGET(I).EQ.0) GOTO 300
	NUMBER(10)=I
	GOTO 400
300	CONTINUE
	NUMBER(10)=0
400	RETURN
	END