keyboard/altgr/msx.eng.inc.pl

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