FUNCTION	IPEEK4 (I4)
	INTEGER*4	IPEEK4
	INTEGER*4	I4

	INTEGER*2	IPEEK2
	INTEGER*2	I2

	BYTE		IPEEK1
	BYTE		I1

	IPEEK4 = I4				! grab a longword

	RETURN


	ENTRY		IPEEK2 (I2)		! grab a word

	IPEEK2 = I2

	RETURN


	ENTRY		IPEEK1 (I1)		! grab a byte

	IPEEK1 = I1

	END