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
Index: T a

⟦1597753ca⟧ TextFile

    Length: 730 (0x2da)
    Types: TextFile
    Names: »armjmp.f«

Derivation

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

TextFile

	function armjmp(z6,ar2sc)
c 
c	This subroutine determines whether or not an army should get off
c	the troop transport it is on. 0=no, 1=yes
c 
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C

	armjmp=0
	do 100 i=1,8
c
comment	not all sea surround
100	if (omap(z6+iarrow(i+1)).ne.'.') goto 200	
	return

c
comment	been on troop transport
200	if (ar2sc.eq.0) goto 400
c
comment	for a long time
	do 300 i=1,8
	loc=z6+iarrow(i+1)
	if (omap(loc).eq.'.') goto 300
	if (order(loc).ne.0) goto 300
	ab=rmap(loc)
	if ((ab.eq.'A').or.(ab.eq.'F')) goto 400
	if ((ab.eq.'*').or.(ab.eq.'O')) goto 400
	loc=z6+2*iarrow(i+1)
	ab=emap(loc)
	if (ab.eq.' ') goto 400
300	continue
c
comment	don't jump
	return
400	armjmp=1
c
comment	jump
	return
	end