asctable

   1 #!/usr/bin/perl -W
   2 exit 0 unless(system("plhelp",$0,(@ARGV)));
   3
   4 sub format {
   5     my $n = shift;
   6     print chr($n) . " = $n\t";
   7 }
   8
   9 $COLUMS=10;
  10
  11 foreach((1 .. 128)){
  12     print chr($_) . "($_)";
  13     if (($_%$COLUMS) == 0) {
  14         print("\n");
  15     }
  16     else {
  17         print("\t");
  18     }
  19 }
  20 print("\n");