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

⟦c95ff62e1⟧ TextFile

    Length: 376 (0x178)
    Types: TextFile
    Names: »stasis.f«

Derivation

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

TextFile

	SUBROUTINE STASIS(Z6,LOC)
C
C CHECK IF ARMY #LOC, AT Z6, IS NEAR THE ENEMY, IF SO WAKE HIM UP
C
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C
C
	DO 200 I=1,8
	AB=RMAP(Z6+IARROW(I+1))
comment	**
	IF ((AB.GE.'a').AND.(AB.LE.'t')) GOTO 100
	IF (AB.EQ.'X') GOTO 100
	IF (AB.NE.'*') GOTO 200
	IF (RMAP(Z6).EQ.'F') GOTO 200
100	MYCODE(LOC)=0
	GOTO 300
200	CONTINUE
300	RETURN
	END