Show ASCII table: Difference between revisions
Content deleted Content added
Add Seed7 example. |
m removed <nowiki> tags inside of <lang> block |
||
Line 1,288: | Line 1,288: | ||
my($n) = @_; |
my($n) = @_; |
||
if ($n < 33) { chr 0x2400 + $n } # display symbol names for invisible glyphs |
if ($n < 33) { chr 0x2400 + $n } # display symbol names for invisible glyphs |
||
elsif ($n==124) { ' |
elsif ($n==124) { '|' } |
||
elsif ($n==127) { 'DEL' } |
elsif ($n==127) { 'DEL' } |
||
else { chr $n } |
else { chr $n } |
||
Line 1,319: | Line 1,319: | ||
printf(q[|%d<br>0x%02X<br><big><big title="%s">%s</big></big>] ~ "\n", |
printf(q[|%d<br>0x%02X<br><big><big title="%s">%s</big></big>] ~ "\n", |
||
$_, $_, .&glyph.uniname.subst('SYMBOL FOR ', ''), |
$_, $_, .&glyph.uniname.subst('SYMBOL FOR ', ''), |
||
.&glyph.subst('|', ' |
.&glyph.subst('|', '|')) for @row; |
||
} |
} |
||