1 files changed, 31 insertions, 0 deletions
diff --git a/ipl/progs/chars.icn b/ipl/progs/chars.icn
new file mode 100644
index 0000000..a58dcd1
--- /dev/null
+++ b/ipl/progs/chars.icn
@@ -0,0 +1,31 @@
+############################################################################
+#
+#	File:     chars.icn
+#
+#	Subject:  Program to list the different characters in a file
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     March 26, 2002
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  This program lists all the different characters in a file.  image()
+#  is used to show printable representations.
+#
+############################################################################
+
+procedure main()
+   local chars
+
+   chars := ''
+
+   while chars ++:= read()
+
+   every write(image(!chars))
+
+end