#!/usr/local/bin/perl
# Sean M. Burke, 2 December 1996
# sburke@netadventure.net http://www.netadventure.net/~sburke/

@nick=split(',\n?',
"NUL,SOH,STX,ETX,EOT,ENQ,ACK,BEL,BS ,HT ,LF ,VT ,NP ,CR ,SO ,SI ,
DLE,DC1,DC2,DC3,DC4,NAK,SYN,ETB,CAN,EM ,SUB,ESC,FS ,GS ,RS ,US ,SP ");

print "{\\rtf1\\ansi \\deff0 {\\fonttbl
{\\f0\\fmodern \\fcharset255 Courier New;}}
{\\colortbl\\red0\\green0\\blue0;}{\\stylesheet{\\fs20 \\snext0 Normal;}}
{\\info {\\title ASCII Character Chart}
{\\creatim\\yr1996\\mo12\\dy3\\hr15\\min28\\sec0}
{\\revtim\\yr1996\\mo12\\dy3\\hr15\\min29\\sec10}
{\\author Sean M. Burke sburke@cpan.org}}
\\par\\qc{\\fs30\\b ASCII Character Chart}\\par\\pard\\fs16";

for ($code = 0; $code < 32; ++$code) {
    print "\\par\\pard ";
    foreach (0 .. 3 ) {
	print &thang($code + $_ * 32);
    }
    print "\n";
}
print "\\par\n";

for ($code = 0; $code < 32; ++$code) {
    print "\\par\\pard ";
    foreach (4 .. 7 ) {
	print &thang($code + $_ * 32);
    }
    print "\n";
}

print "}\n";
exit;

sub thang {
    local($coad) = @_;
    $hix = unpack("H2", pack('c', $coad));
    $bin = "\\'" . $hix . '  ';
    $bin = $nick[$coad]	 if ($coad < 33);
    $dec = sprintf("%3d", $coad);
    return "$dec|$hix|$bin ";
}