path: root/BRI.FOR

	SUBROUTINE BRI
	DO 10 I=1,23
	CALL PKURZ(I,1,IND)
	WRITE(*,5)
5	FORMAT('                           ')
10	CONTINUE
	RETURN
	END