diff -r 88d4c33d7947 -r 2a2c0dbeb4ac src/Tools/8bit/perl/codetable.pl
--- /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;
+}