-use utf8;
-use strict;
-use warnings;
-my @az = ('A'..'Z', 'a'..'z');
-my @letters = qw(
- Á B ¢ Ð É F G H Í J Œ Ø µ Ñ Ó Ö Ä ® § Þ Ú V Å X Ü Æ
- á b © ð é f g h í j œ ø µ ñ ó ö ä ® ß þ ú v å x ü æ
-);
-our %rows = map {
- $az[$_] => $letters[$_]
-} 0 .. $#az;
-
-+{
- %{ do 'keyboard.eng.inc.pl' },
- title => 'altgr',
- version => '1.2',
- intro => join("\n",
- 'Special <a href="/unicode">characters</a> returned with the AltGr modifier',
- 'for the Windows US international layout.',
- 'Similar to <a href="/keyboard/altgr-macos">Apple</a> options.',
- ),
- description => [
- "Windows US international keyboard layout table",
- "with the AltGr modifier key.",
- ],
- moderows => '12-',
-}