#!/usr/bin/perl
# 2BNCDfo - asc created by Pip to print all ascii characters

$optz = shift; $strt = 32;
$strt = 0 if($optz =~ /a/);
$cnvf = `which cnv`; chomp($cnvf);
for ($i = $strt; $i < 256; $i++) { 
  print "\n"           unless ($i % 32 || $i == 32);
  unless ($i % 8) {
    $h = ""; $h = `cnv $i 10 16` if(defined $cnvf && -e $cnvf);
    printf("   %03d:%2s:", $i, $h);
  }
  printf("%1s", chr($i));
}
print "\n";
#
#   000: 0:    008: 8:	 
   016:10:   024:18:   
#   032:20: !"#$%&'   040:28:()*+,-./   048:30:01234567   056:38:89:;<=>?
#   064:40:@ABCDEFG   072:48:HIJKLMNO   080:50:PQRSTUVW   088:58:XYZ[\]^_
#   096:60:`abcdefg   104:68:hijklmno   112:70:pqrstuvw   120:78:xyz{|}~
#   128:80:   136:88:   144:90:   152:98:
#   160:A0:   168:A8:   176:B0:   184:B8:
#   192:C0:   200:C8:   208:D0:   216:D8:
#   224:E0:   232:E8:   240:F0:   248:F8:
#
#   !"#$%&' ()*+,-./ 01234567 89:;<=>?
#  @ABCDEFG HIJKLMNO PQRSTUVW XYZ[\]^_
#  `abcdefg hijklmno pqrstuvw xyz{|}~
#     
#     
#     
#     
