--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Tools/8bit/perl/codetable.pl Tue Jun 25 17:44:43 1996 +0200
@@ -0,0 +1,28 @@
+#!/usr/local/dist/DIR/perl4/bin/perl
+#
+# codetable.pl
+# Franz Regensburger <regensbu@informatik.tu-muenchen.de>
+# 21.3.95
+#
+# last changed:
+#
+# print the extended ascii-code table
+# leave out unprintable characters.
+#
+# needs an 8bit terminal for output
+
+$index = 0;
+while ($index <= 255) {
+ if ( $index < 32 || (126 < $index && $index < 161)){# unprintable
+# if ( $index < 32){# unprintable
+ $ascii_code = 32;}
+ else { $ascii_code = $index;}
+
+ printf( "%-3o %-3d %-2x %c \n",
+ $index,
+ $index,
+ $index,
+ $ascii_code);
+
+ $index += 1;
+}