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 e

⟦028e05066⟧ TextFile

    Length: 551 (0x227)
    Types: TextFile
    Names: »expl.f«

Derivation

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

TextFile

 
	FUNCTION EXPL
C 
C THIS SUBROUTINE SEARCHES FOR UNKNOWN TERRITORY AND RETURNS A VALUE
C IN EXPL.
C 
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C
C
	IF (FULL.EQ.2) GOTO 300
	BEGPOS=START
	GOTO 200
100	IF ((EMAP(POSIT).EQ.' ').AND.(ORDER(POSIT).EQ.0)) GOTO 400
200	POSIT=POSIT+STEP
	IF (POSIT.LT.5900) GOTO 100
	START=START+1
	POSIT=START
	IF (START.EQ.BEGPOS+37) GOTO 300
	GOTO 100
300	EXPL=0
	FULL=2
C	CALL tpos(1,1)
C	PRINT 999,POSIT,STEP,START,BEGPOS,KNOWN
C999	FORMAT('+POSIT,STEP,START,BEGPOS,KNOWN:',5I5$)
	RETURN
400	EXPL=POSIT
	RETURN
	END