SUBROUTINE HVSET(IPAGE)
	READ(1,1000)IA
	READ(1,1000)IA
	RETURN
1000	FORMAT(A2)
	END