5 use Shiar_Sheet::KeyboardChars 'kbchars';
8 # card suits at 50,00,60,7B mapped differently depending on keyboard
11 q ┌ w ┬ e ┐ r ─ t ● y ▌ u ▄ i ▗ o ▖
12 a ├ s ┼ d ┤ f ╱ g ╲ h ◢ j ◣ k ▝ l ▘
13 z └ x ┴ c ┘ v ▏ b ▕ n ▁ m ▔
16 if (exists $get{compat}) {
20 z ┗ x ┻ c ┛ v ▎ b 🮇 n ▂ m 🮂
24 my $groups = kbchars(\%rows);
26 while (my ($k, $c) = each %rows) {
27 $groups->{def}{''}{$k}[0] = (
28 $c =~ /\p{In=1.1}/ ? 'g2' :
29 $c =~ /\p{In=4.0}/ ? 'g3' :
30 $c =~ /[\x{1FB00}-\x{1FBFF}]/ ? 'g5' : # Age=V13.0
38 title => 'Atari graphics',
39 category => 'legacy/graph',
42 '<abbr title="ATARI Standard Code for Information Interchange">ATASCII</abbr>',
43 'characters from 8-bit Atari machines starting with the 1979 models 400 and 800,',
44 'with modern <a href="/keyboard/altgr/unigraph">Unicode</a> equivalents.',
45 'Similar to <a href="/keyboard/altgr/c64">PETSCII</a>',
46 'and <a href="/keyboard/altgr/msx-graph">MSX graph</a>.',
48 image => 'data/keyboard/thumb/atari-130xe.jpg',
50 g2 => ['standard' => 'original Unicode 1993'],
51 g3 => ['extended' => 'Unicode 4.0'],
52 g5 => ['legacy' => 'exceptional <em>symbols for legacy computing</em> in Unicode since <abbr title="Unicode 13.0">2020</abbr>'],
53 g9 => ['color' => 'presentational controls represented by anachronistic hearts'],