SUBROUTINE CORE(OUT,BEGBUF,ENDBUF)
	IMPLICIT INTEGER (A-Z)
	DELTA = ENDBUF - BEGBUF
	WRITE (OUT,10) DELTA
10	FORMAT(2X,'THERE ARE ',I4,' (10) WORDS OF DYNAMIC STORAGE')
	RETURN
	END