diff options
Diffstat (limited to 'ipl/gprogs/blp2rows.icn')
-rw-r--r-- | ipl/gprogs/blp2rows.icn | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/ipl/gprogs/blp2rows.icn b/ipl/gprogs/blp2rows.icn new file mode 100644 index 0000000..37a8825 --- /dev/null +++ b/ipl/gprogs/blp2rows.icn @@ -0,0 +1,38 @@ +############################################################################ +# +# File: blp2rows.icn +# +# Subject: Program to convert bi-level pattern to row file +# +# 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 := pat2rows(read()) + + every write(!rows) + +end |