IA	= 25
	TYPE	*,'IA=',IA
	end