1 files changed, 9 insertions, 0 deletions
diff --git a/BRI.FOR b/BRI.FOR
new file mode 100644
index 0000000..1506efb
--- /dev/null
+++ b/BRI.FOR
@@ -0,0 +1,9 @@
+	SUBROUTINE BRI
+	DO 10 I=1,23
+	CALL PKURZ(I,1,IND)
+	WRITE(*,5)
+5	FORMAT('                           ')
+10	CONTINUE
+	RETURN
+	END
+