4 use Shiar_Sheet::KeyboardChars 'kbchars';
19 '(' => '◘', # inverted ·
20 '9' => '·', # smaller than •
62 'G' => '⟊', # ┼ without connecting right
79 'Z' => '◦', # small white circle
81 'X' => '•', # small black circle
120 if (exists $get{compat}) {
121 %rows = (%rows, %compat);
124 my $groups = kbchars(\%rows);
126 # replace rare punctuation distinctions by symbols
127 $groups->{def}{''}{$_}[0] =~ s/g[78]/g6/ for keys %rows;
129 $groups->{def}{''}{$_}[0] = 'g7'
130 for grep { $rows{$_} =~ /[\x{2500}-\x{259F}]/ } keys %rows;
131 $groups->{flag}{g7} = ['drawing', 'box drawing or block elements'];
133 $groups->{def}{''}{$_}[0] = 'g8' for keys %compat; # mostly U+1FBxx
134 $groups->{flag}{g8} = ['legacy',
135 'drawing symbols best represented by Unicode 13.0'
136 . (exists $get{compat} && ', converted to compatible equivalents')
142 title => 'MSX graph',
143 category => 'legacy/graph/msx',
145 'Resulting <a href="/unicode">selection</a>',
146 'of equivalent <a href="/charset">Unicode</a> characters',
147 "when the <em>graph</em> key is pressed on an MSX home computer",
148 "(International model such as Toshiba HX10 or Phillips NMS 8245).",
149 'Similar to <a href="/keyboard/altgr/c64">PETSCII</a>,',
150 '<a href="/keyboard/altgr/atari">ATASCII</a>, and',
151 '<a href="/keyboard/altgr/unigraph">modern Unicode</a>.',
152 'See also <a href="/keyboard/altgr/msx">letters and symbols</a>',
153 "from pressing <em>code</em>.",
156 "MSX keyboard layout table",
157 "with the graph modifier key.",
159 image => 'data/keyboard/thumb/msxgraph.jpg',
160 imagealt => 'Graph key on a Toshiba HX10 with graph labels',