# country.pl, by T-Bone
# converted to perl4 by orabidoo

sub cmd_country {
    $args =~ tr/a-z/A-Z/;
    $args =~ s/[^A-Z]//g;

    unless ($args) {
	&tell("*\cbE\cb* I need a country abbreviation!");
	return;
    }

    &tell($country{$args}
	? "*\cbC\cb* $args = $country{$args}"
	: "*\cbE\cb* $args is not the abbreviation for any country");
}
&addcmd("country");

%country = (
	'AF', 'AFGHANISTAN',
	'AL', 'ALBANIA',
	'DZ', 'ALGERIA',
	'AS', 'AMERICAN SAMOA',
	'AD', 'ANDORRA',
	'AO', 'ANGOLA',
	'AI', 'ANGUILLA',
	'AQ', 'ANTARCTICA',
	'AG', 'ANTIGUA AND BARBUDA',
	'AR', 'ARGENTINA',
	'AM', 'ARMENIA',
	'AW', 'ARUBA',
	'AU', 'AUSTRALIA',
	'AT', 'AUSTRIA',
	'AZ', 'AZERBAIJAN',
	'BS', 'BAHAMAS',
	'BH', 'BAHRAIN',
	'BD', 'BANGLADESH',
	'BB', 'BARBADOS',
	'BY', 'BELARUS',
	'BE', 'BELGIUM',
	'BZ', 'BELIZE',
	'BJ', 'BENIN',
	'BM', 'BERMUDA',
	'BT', 'BHUTAN',
	'BO', 'BOLIVIA',
	'BA', 'BOSNIA',
	'BW', 'BOTSWANA',
	'BV', 'BOUVET ISLAND',
	'BR', 'BRAZIL',
	'IO', 'BRITISH INDIAN OCEAN TERRITORY',
	'BN', 'BRUNEI DARUSSALAM',
	'BN', 'BRUNEI',
	'BG', 'BULGARIA',
	'BF', 'BURKINA FASO',
	'BI', 'BURUNDI',
	'BY', 'BYELORUSSIAN SSR',
	'KH', 'CAMBODIA',
	'CM', 'CAMEROON',
	'CA', 'CANADA',
	'CV', 'CAP VERDE',
	'KY', 'CAYMAN ISLANDS',
	'CF', 'CENTRAL AFRICAN REPUBLIC',
	'TD', 'CHAD',
	'CL', 'CHILE',
	'CN', 'CHINA',
	'CX', 'CHRISTMAS ISLAND',
	'CC', 'COCOS (KEELING) ISLANDS',
	'CO', 'COLOMBIA',
	'KM', 'COMOROS',
	'CG', 'CONGO',
	'CK', 'COOK ISLANDS',
	'CR', 'COSTA RICA',
	'CI', 'COTE D\'IVOIRE',
	'HR', 'CROATIA',
	'HR', 'HRVATSKA',
	'CU', 'CUBA',
	'CY', 'CYPRUS',
	'CS', 'CZECHOSLOVAKIA',
	'DK', 'DENMARK',
	'DJ', 'DJIBOUTI',
	'DM', 'DOMINICA',
	'DO', 'DOMINICAN REPUBLIC',
	'TP', 'EAST TIMOR',
	'EC', 'ECUADOR',
	'EG', 'EGYPT',
	'SV', 'EL SALVADOR',
	'GQ', 'EQUATORIAL GUINEA',
	'EE', 'ESTONIA',
	'ET', 'ETHIOPIA',
	'FK', 'FALKLAND ISLANDS',
	'FK', 'MALVINAS',
	'FO', 'FAROE ISLANDS',
	'FJ', 'FIJI',
	'FI', 'FINLAND',
	'FR', 'FRANCE',
	'GF', 'FRENCH GUIANA',
	'PF', 'FRENCH POLYNESIA',
	'TF', 'FRENCH SOUTHERN TERRITORIES',
	'GA', 'GABON',
	'GM', 'GAMBIA',
	'GE', 'GEORGIA',
	'DE', 'GERMANY',
	'DE', 'DEUTSCHLAND',
	'GH', 'GHANA',
	'GI', 'GIBRALTAR',
	'GR', 'GREECE',
	'GL', 'GREENLAND',
	'GD', 'GRENADA',
	'GP', 'GUADELOUPE',
	'GU', 'GUAM',
	'GT', 'GUATEMALA',
	'GN', 'GUINEA',
	'GW', 'GUINEA BISSAU',
	'GY', 'GYANA',
	'HT', 'HAITI',
	'HM', 'HEARD AND MC DONALD ISLANDS',
	'HN', 'HONDURAS',
	'HK', 'HONG KONG',
	'HU', 'HUNGARY',
	'IS', 'ICELAND',
	'IN', 'INDIA',
	'ID', 'INDONESIA',
	'IR', 'IRAN',
	'IQ', 'IRAQ',
	'IE', 'IRELAND',
	'IL', 'ISRAEL',
	'IT', 'ITALY',
	'JM', 'JAMAICA',
	'JP', 'JAPAN',
	'JO', 'JORDAN',
	'KZ', 'KAZAKHSTAN',
	'KE', 'KENYA',
	'KI', 'KIRIBATI',
	'KP', 'NORTH KOREA',
	'KR', 'SOUTH KOREA',
	'KW', 'KUWAIT',
	'KG', 'KYRGYZSTAN',
	'LA', 'LAO',
	'LA', 'LAOS',
	'LV', 'LATVIA',
	'LB', 'LEBANON',
	'LS', 'LESOTHO',
	'LR', 'LIBERIA',
	'LY', 'LIBYAN ARAB JAMAHIRIYA',
	'LY', 'LYBIA',
	'LI', 'LIECHTENSTEIN',
	'LT', 'LITHUANIA',
	'LU', 'LUXEMBOURG',
	'MO', 'MACAU',
	'MK', 'MACEDONIA',
	'MG', 'MADAGASCAR',
	'MW', 'MALAWI',
	'MY', 'MALAYSIA',
	'MV', 'MALDIVES',
	'ML', 'MALI',
	'MT', 'MALTA',
	'MH', 'MARSHALL ISLANDS',
	'MQ', 'MARTINIQUE',
	'MR', 'MAURITANIA',
	'MU', 'MAURITIUS',
	'MX', 'MEXICO',
	'FM', 'MICRONESIA',
	'MD', 'MOLDOVA',
	'MC', 'MONACO',
	'MN', 'MONGOLIA',
	'MS', 'MONTSERRAT',
	'MA', 'MOROCCO',
	'MZ', 'MOZAMBIQUE',
	'MM', 'MYANMAR',
	'NA', 'NAMIBIA',
	'NR', 'NAURU',
	'NP', 'NEPAL',
	'NL', 'NETHERLANDS',
	'AN', 'NETHERLANDS ANTILLES',
	'NT', 'NEUTRAL ZONE',
	'NC', 'NEW CALEDONIA',
	'NZ', 'NEW ZEALAND',
	'NI', 'NICARAGUA',
	'NE', 'NIGER',
	'NG', 'NIGERIA',
	'NU', 'NIUE',
	'NF', 'NORFOLK ISLAND',
	'MP', 'NORTHERN MARIANA ISLANDS',
	'NO', 'NORWAY',
	'OM', 'OMAN',
	'PK', 'PAKISTAN',
	'PW', 'PALAU',
	'PA', 'PANAMA',
	'PG', 'PAPUA NEW GUINEA',
	'PG', 'PAPUA',
	'PG', 'NEW GUINEA',
	'PY', 'PARAGUAY',
	'PE', 'PERU',
	'PH', 'PHILIPPINES',
	'PN', 'PITCAIRN',
	'PL', 'POLAND',
	'PT', 'PORTUGAL',
	'PR', 'PUERTO RICO',
	'QA', 'QATAR',
	'RE', 'REUNION',
	'RO', 'ROMANIA',
	'RU', 'RUSSIAN FEDERATION',
	'RW', 'RWANDA',
	'KN', 'SAINT KITTS AND NEVIS',
	'LC', 'SAINT LUCIA',
	'VC', 'SAINT VINCENT AND THE GRENADINES',
	'WS', 'SAMOA',
	'SM', 'SAN MARINO',
	'ST', 'SAO TOME AND PRINCIPE',
	'SA', 'SAUDI ARABIA',
	'SN', 'SENEGAL',
	'SC', 'SEYCHELLES',
	'SL', 'SIERRA LEONE',
	'SG', 'SINGAPORE',
	'SI', 'SLOVENIA',
	'SB', 'SOLOMON ISLANDS',
	'SO', 'SOMALIA',
	'ZA', 'SOUTH AFRICA',
	'ES', 'SPAIN',
	'LK', 'SRI LANKA',
	'SH', 'ST. HELENA',
	'PM', 'ST. PIERRE AND MIQUELON',
	'SD', 'SUDAN',
	'SR', 'SURINAME',
	'SJ', 'SVALBARD AND JAN MAYEN ISLANDS',
	'SZ', 'SWAZILAND',
	'SE', 'SWEDEN',
	'CH', 'SWITZERLAND',
	'CH', 'CANTONS OF HELVETIA',
	'CH', 'CONFEDERATION HELVETIQUE',
	'SY', 'SYRIAN ARAB REPUBLIC',
	'SY', 'SYRIA',
	'TW', 'TAIWAN',
	'TJ', 'TAJIKISTAN',
	'TZ', 'TANZANIA',
	'TH', 'THAILAND',
	'TG', 'TOGO',
	'TK', 'TOKELAU',
	'TO', 'TONGA',
	'TT', 'TRINIDAD AND TOBAGO',
	'TN', 'TUNISIA',
	'TR', 'TURKEY',
	'TM', 'TURKMENISTAN',
	'TC', 'TURKS AND CAICOS ISLANDS',
	'TV', 'TUVALU',
	'UG', 'UGANDA',
	'UA', 'UKRAINIAN SSR',
	'AE', 'UNITED ARAB EMIRATES',
	'UK', 'UNITED KINGDOM',
	'GB', 'GREAT BRITAIN',
	'US', 'UNITED STATES OF AMERICA',
	'US', 'UNITED STATES',
	'UM', 'UNITED STATES MINOR OUTLYING ISLANDS',
	'UY', 'URUGUAY',
	'SU', 'USSR',
	'SU', 'SOVIET UNION',
	'UZ', 'UZBEKISTAN',
	'VU', 'VANUATU',
	'VA', 'VATICAN',
	'VA', 'VATICAN CITY STATE',
	'VE', 'VENEZUELA',
	'VN', 'VIET NAM',
	'VI', 'VIRGIN ISLANDS (US)',
	'VG', 'VIRGIN ISLANDS (UK)',
	'WF', 'WALLIS AND FUTUNA ISLANDS',
	'EH', 'WESTERN SAHARA',
	'YE', 'YEMEN',
	'YU', 'YUGOSLAVIA',
	'ZR', 'ZAIRE',
	'ZM', 'ZAMBIA',
	'ZW', 'ZIMBABWE',
	'COM', 'COMMERCIAL ORGANIZATION (US)',
	'EDU', 'EDUCATIONAL INSTITUTION (US)',
	'NET', 'NETWORKING ORGANIZATION (US)',
	'MIL', 'MILITARY (US)',
	'ORG', 'NON-PROFIT ORGANIZATION (US)',
	'GOV', 'GOVERNMENT (US)',
	'KP', 'KOREA - DEMOCRATIC PEOPLE\'S REPUBLIC OF',
	'KR', 'KOREA - REPUBLIC OF',
	'LA', 'LAO PEOPLES\' DEMOCRATIC REPUBLIC',
	'SU', 'RUSSIA',
	'SK', 'SLOVAKIA',
	'CZ', 'CZECH',
	'ARPA', 'ARPANET (US MILITARY)',
);