keyboard/altgr/msx.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 use Shiar_Sheet::KeyboardChars 'kbchars';
   5
   6 my %rows = (
   7         '!' => '¡',
   8         '1' => 'ƒ',
   9         '@' => '₧',
  10         '2' => '‡',
  11         '#' => '¶',
  12         '3' => '§',
  13         '$' => '£',
  14         '4' => '¢',
  15         '%' => '¥',
  16         '5' => 'ÿ',
  17         '6' => 'α',
  18         '7' => 'ß',
  19         '*' => 'Γ',
  20         '8' => 'γ',
  21         '(' => 'Ç',
  22         '9' => 'ç',
  23         ')' => 'Δ',
  24         '0' => 'δ',
  25         '-' => '∈',
  26         '=' => 'ϴ',
  27         '\\'=> '£',
  28
  29         'q' => 'â',
  30         'w' => 'ê',
  31         'e' => 'î',
  32         'r' => 'ô',
  33         't' => 'û',
  34         'y' => 'á',
  35         'U' => 'É',
  36         'u' => 'é',
  37         'i' => 'í',
  38         'o' => 'ó',
  39         'P' => 'Π',
  40         'p' => 'ú',
  41         '{' => 'Φ',
  42         '[' => 'ø',
  43         '}' => 'Ω',
  44         ']' => 'ω',
  45
  46         'A' => 'Ä',
  47         'a' => 'ä',
  48         's' => 'ë',
  49         'd' => 'ï',
  50         'F' => 'Ö',
  51         'f' => 'ö',
  52         'G' => 'Ü',
  53         'g' => 'ü',
  54         'H' => 'Ã',
  55         'h' => 'ã',
  56         'J' => 'Æ',
  57         'j' => 'æ',
  58         'K' => 'Ĩ',
  59         'k' => 'ĩ',
  60         'L' => 'Õ',
  61         'l' => 'õ',
  62         ':' => 'Ũ',
  63         ';' => 'ũ',
  64         '"' => 'Ĳ',
  65         "'" => 'ĳ',
  66         '~' => 'Σ',
  67         '`' => 'σ',
  68
  69         'z' => 'à',
  70         'x' => 'è',
  71         'c' => 'ì',
  72         'v' => 'ò',
  73         'b' => 'ù',
  74         'N' => 'Ñ',
  75         'n' => 'ñ',
  76         'm' => 'μ',
  77         '<' => 'Å',
  78         ',' => 'å',
  79         '.' => 'ª',
  80         '?' => '¿',
  81         '/' => 'º',
  82 );
  83
  84 my %uc = (
  85         (map { (uc $_ => uc $rows{$_}) } grep {
  86                 !defined $rows{uc $_}
  87         } keys %rows),
  88         '|' => '€',
  89         'M' => 'Ú',
  90         '+' => 'Ø',
  91 );
  92
  93 my $groups = kbchars({%rows, %uc});
  94 $groups->{def}{''}{$_} .= ' ext' for keys %uc;
  95 $groups->{flag}{ext} = ['anachrone', 'expected uppercase variants if allowed by charset'];
  96
  97 +{
  98         %{ $groups },
  99         version => '1.2',
 100         title => 'MSX code',
 101         category => 'legacy/msx/latin',
 102         intro => join("\n",
 103                 'Resulting <a href="/unicode">selection</a>',
 104                 'of equivalent <a href="/charset">Unicode</a> characters',
 105                 "when the <em>code</em> key is pressed on an MSX home computer",
 106                 "(International model such as Toshiba HX10 or Phillips NMS 8245).",
 107                 'See also <a href="/keyboard/altgr/msx-graph">block graphics</a>',
 108                 "from pressing <em>graph</em>.",
 109         ),
 110         description => [
 111                 "MSX keyboard layout table",
 112                 "with the code modifier key.",
 113         ],
 114         image => 'data/keyboard/thumb/msxcode.jpg',
 115         imagealt => 'Code key on a Toshiba HX10 with graph labels',
 116 }