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

⟦b2030ba3b⟧ TextFile

    Length: 328 (0x148)
    Types: TextFile
    Names: »iport.f«

Derivation

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

TextFile

	FUNCTION IPORT(Z6)

	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C

	IPORT=0
	ID=500
	DO 100 I=1,70
	IF (X(I).EQ.0) GOTO 100
	IF (RMAP(X(I)).NE.'X') GOTO 100
	IF (EDGER(Z6).EQ.0) GOTO 100
	IF (IDIST(X(I),Z6).GE.ID) GOTO 100
	IPORT=X(I)
	ID=IDIST(X(I),Z6)
100	CONTINUE
	IF (IPORT.NE.0) RETURN
	IPORT=irand(5798)+102
	RETURN
	END