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

⟦cef2252e2⟧ TextFile

    Length: 431 (0x1af)
    Types: TextFile
    Names: »iscape.f«

Derivation

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

TextFile

	FUNCTION ISCAPE(I,M)
	IMPLICIT INTEGER(A-Z)
C
C: I = NUMBER OF TIMES ONE HAS TRIED TO ESCAPE
CM: DIRECTION IN WHICH DANGER LIES
C
	INTEGER ITAB(8)
	LOGICAL PASS
	COMMON/PASS/PASS
	DATA ITAB/4,5,3,6,2,7,1,0/
C
	ISC=M
	IF ((PASS).AND.((I.LT.1).OR.(I.GT.8))) GOTO 100
	IF ((PASS).AND.((ISC.LT.1).OR.(ISC.GT.8))) GOTO 100
	ISC=ICORR(M+ITAB(I))
	ISCAPE=ISC
	RETURN
100	PRINT 999,ISC,I,M
999	FORMAT(' ISCAPE- ISC,M,I:',3I)
	RETURN
	END