summaryrefslogtreecommitdiff
path: root/ipl/progs/maccvt.icn
diff options
context:
space:
mode:
Diffstat (limited to 'ipl/progs/maccvt.icn')
-rw-r--r--ipl/progs/maccvt.icn26
1 files changed, 26 insertions, 0 deletions
diff --git a/ipl/progs/maccvt.icn b/ipl/progs/maccvt.icn
new file mode 100644
index 0000000..22f6e00
--- /dev/null
+++ b/ipl/progs/maccvt.icn
@@ -0,0 +1,26 @@
+############################################################################
+#
+# File: maccvt.icn
+#
+# Subject: Program to convert Macintosh special characters to ASCII
+#
+# Author: Ralph E. Griswold
+#
+# Date: September 18, 1998
+#
+############################################################################
+#
+# This file is in the public domain.
+#
+############################################################################
+#
+# This program maps the Macintosh characters for quotation and various
+# minus signs into their ASCII equivalents.
+#
+############################################################################
+
+procedure main()
+
+ while write(map(read(), "\xd0\xd1\xd2\xd3\xd4\xd5", "--\"\"''"))
+
+end