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

⟦20e18a6a2⟧ TextFile

    Length: 365 (0x16d)
    Types: TextFile
    Names: »phasin.f«

Derivation

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

TextFile

	subroutine phasin(num,e)
c
c	Prompt for city production type, set prod accordingly
c
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C

	e = char(getchx())
	do 200 i=1,8
200	if ( e .eq. phaze ( i )) goto 300
	call huh
	e = ' '
	return
comment	if he doesn't do it right, leave it

300	phase ( num) = phazee ( i )
	found ( num ) = mdate + 6 * phase ( num )
	return
	end