PRO DECOMP,DATA_IN,DATA_OUT		;written by McClint
	Z=DATA_IN				;  before Nov,90
	ZC=Z AND "017
	ZX=(Z AND "360)/16
	NP=FIX((ZC+16)*2.^(ZX-5)+2.^(ZX-6))
	DATA_OUT=NP
	RETURN
	END