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

⟦46773d192⟧ TextFile

    Length: 487 (0x1e7)
    Types: TextFile
    Names: »decode.f«

Derivation

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

TextFile

	character FUNCTION DECODE(Z6)
C
C UNPACK MAP DEFINITION FILE
C	D() = MAP DEFINITION FROM MAP FILE
C	Z6 = LOCATION
C	DECODE = CHARACTER AT Z6
C
C MAPS ARE ENCODED USING MOD 3 ARITHMETIC TO FIT 9 CHARACTERS INTO ONE 16-BIT
C  WORD.
C
	IMPLICIT INTEGER(A-Z)
	INTEGER MSKTAB(9)
	INTEGER*2 D(667)
	character ASCII(3)
	COMMON/MAP/D
	DATA ASCII/'.','+','*'/
	DATA MSKTAB/1,3,9,27,81,243,729,2187,6561/
C
	IX=((Z6-1)/9)+1
	IY=MOD(Z6-1,9)+1
	DECODE=ASCII(MOD(D(IX)/MSKTAB(IY),3)+1)
	RETURN
	END