sksp2024-mcu/libucw/charset/misc/mktab256

16 lines
268 B
Text
Raw Normal View History

2024-09-14 21:50:33 +02:00
#!/usr/bin/perl
#
# Simply create a table of all 256 characters
# (c) 2003, Robert Spalek <robert@ucw.cz>
#
use open OUT => ":raw";
open(fo, '>tmp/tab256') || die;
for ($i=0; $i<256; $i++)
{
next if $i==10 || $i==13;
printf fo "%02X\t%c\n", $i, $i;
}
close(fo);