PROGRAM D6R3
C	Driver for routine BICO
	CHARACTER TEXT*21
	OPEN(5,FILE='FNCVAL.DAT',STATUS='OLD')
10	READ(5,'(A)') TEXT
	IF (TEXT.NE.'Binomial Coefficients') GOTO 10
	READ(5,*) NVAL
	WRITE(*,*) TEXT
	WRITE(*,'(1X,T6,A1,T12,A1,T19,A6,T28,A9)')
     *		'N','K','Actual','BICO(N,K)'
	DO 11 I=1,NVAL
		READ(5,*) N,K,BINCO
		WRITE(*,'(2I6,2F12.0)') N,K,BINCO,BICO(N,K)
11	CONTINUE
	CLOSE(5)
	END