1 files changed, 40 insertions, 0 deletions
diff --git a/ipl/gprogs/rows2blp.icn b/ipl/gprogs/rows2blp.icn
new file mode 100644
index 0000000..8dbe922
--- /dev/null
+++ b/ipl/gprogs/rows2blp.icn
@@ -0,0 +1,40 @@
+############################################################################
+#
+#	File:     rows2blp.icn
+#
+#	Subject:  Program to convert row file to bi-level pattern
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     October 30, 2001
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#
+#
+############################################################################
+#
+#  Requires:  Version 9 graphics
+#
+############################################################################
+#
+#  Links:  patutils
+#
+############################################################################
+
+link patutils
+
+procedure main()
+   local rows
+
+   rows := []
+
+   while put(rows, read())
+
+   write(rows2pat(rows))
+
+end