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[$_] eq $letters[$_]) ? () :
	($az[$_] => $letters[$_])
} 0 .. $#az;

+{
	%{ do 'keyboard/altgr/groups.inc.pl' },
	title => 'altgr',
	version => '1.3',
	intro => join("\n",
		'Resulting <a href="/unicode">selection</a> of <a href="/charset">Unicode</a> characters',
		'while pressing the AltGr modifier',
		'with the Windows US international layout.',
		'Macs have <a href="/keyboard/altgr/macos">option</a> options instead.',
	),
	description => [
		"Windows US international keyboard layout table",
		"with the AltGr modifier key.",
	],
	image => 'keyboard/altgr/ibmmkey.jpg',
	moderows => '21-',
}
