SUBROUTINE DUMPBF(ROOT)
	IMPLICIT INTEGER (A-Z)
	INTEGER ROOT(13)
	COMMON /CONSOL/ TTY
	WRITE(TTY,10)(ROOT(I),I=1,13)
10	FORMAT(' RT.SIZE ',O7/
     1	' RT.AGE ',O7/		' RT.BIAS ',O7/
     2	' RT.KEY ',O7/
     3	' RT.FREE',O7/		' RT.NLV ',O7/
     4	' RT.FDB ',O7/		' RT.LEV ',O7/
     5	' RT.BUF ',O7/		' RT.PCL ',O7/
     6	' RT.LLA ',O7/		' RT.DTY ',O7/
     7	' RT.VER ',O7/)
	RETURN
	END