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

⟦497cc35d0⟧ TextFile

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

Derivation

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

TextFile

	subroutine initia(flag)

	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C
	character decode
	external decode

	do 300 i=1,6000
	if (flag.ne.0) omap(i)=decode(i)
	if (omap(i).ne.'*') goto 300
	n1=irand(70)+1
comment	**
	do 100 n3=n1,n1+70
	n=n3
	if (n.gt.70) n=n-70
100	if (x(n).eq.0) goto 200
200	x(n)=i
300	continue
	return
	end