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