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

⟦8f908e3a7⟧ TextFile

    Length: 379 (0x17b)
    Types: TextFile
    Names: »tran.f«

Derivation

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

TextFile

ccc tran - translate old enemy units to new characters
	subroutine tran ( ab )
	character ab
c
c synopsis
c
c   call tran ( ab )
c
c	ab - character to translate
c
	character olde ( 8 ), newe ( 8 )
	data olde / '1', '2', '3', '4', '5', '6', '7', '8' /
	data newe / 'a', 'f', 'd', 's', 't', 'r', 'c', 'b' /

	do 10 i = 1, 8
10	if ( ab .eq. olde ( i )) ab = newe ( i )
	return
	end