# A crappy coded country resolver
#
# If you want to use it for the Internet: This script is pretty
# old. There might be new top level domains now.
#
# Copyright (C) 2002, RVT Corporation

echo.
goto $1
echo.
echo "+----------------------------------"
echo "| No such country"
echo "+----------------------------------"
echo.
end


:
echo.
echo "+----------------------------------"
echo "Usage: country <nl>"
echo.
echo "<nl>   Change this to the"
echo "       country code you have"
echo "+----------------------------------"
echo.
end



:ad
$c =  "Andorra"
goto print
:ae
$c =  "United Arab Emirates"
goto print
:af
$c =  "Afghanistan"
goto print
:ag
$c =  "Antigua and Barbuda"
goto print
:ai
$c =  "Anguilla"
goto print
:al
$c =  "Albania"
goto print
:am
$c =  "Armenia"
goto print
:an
$c =  "Netherland Antilles"
goto print
:ao
$c =  "Angola"
goto print
:aq
$c =  "Antarctica"
goto print
:ar
$c =  "Argentina"
goto print
:as
$c =  "American Samoa"
goto print
:at
$c =  "Austria"
goto print
:au
$c =  "Australia"
goto print
:aw
$c =  "Aruba"
goto print
:az
$c =  "Azerbaidjan"
goto print
:ba
$c =  "Bosnia-Herzegovina"
goto print
:bb
$c =  "Barbados"
goto print
:bd
$c =  "Bangladesh"
goto print
:be
$c =  "Belgium"
goto print
:bf
$c =  "Burkina Faso"
goto print
:bg
$c =  "Bulgaria"
goto print
:bh
$c =  "Bahrain"
goto print
:bi
$c =  "Burundi"
goto print
:bj
$c =  "Benin"
goto print
:bm
$c =  "Bermuda"
goto print
:bn
$c =  "Brunei Darussalam"
goto print
:bo
$c =  "Bolivia"
goto print
:br
$c =  "Brazil"
goto print
:bs
$c =  "Bahamas"
goto print
:bt
$c =  "Buthan"
goto print
:bv
$c =  "Bouvet Island"
goto print
:bw
$c =  "Botswana"
goto print
:by
$c =  "Belarus"
goto print
:bz
$c =  "Belize"
goto print
:ca
$c =  "Canada"
goto print
:cg
$c =  "Congo"
goto print
:ch
$c =  "Switzerland"
goto print
:ci
$c =  "Ivory Coast"
goto print
:ck
$c =  "Cook Islands"
goto print
:cl
$c =  "Chile"
goto print
:cm
$c =  "Cameroon"
goto print
:cn
$c =  "China"
goto print
:co
$c =  "Colombia"
goto print
:cr
$c =  "Costa Rica"
goto print
:cs
$c =  "Cz$c = slovakia"
goto print
:cu
$c =  "Cuba"
goto print
:cv
$c =  "Cape Verde"
goto print
:cx
$c =  "Christmas Island"
goto print
:cy
$c =  "Cyprus"
goto print
:cz
$c =  "Czech Republic"
goto print
:de
$c =  "Germany"
goto print
:dj
$c =  "Djibouti"
goto print
:dk
$c =  "Denmark"
goto print
:dm
$c =  "Dominica"
goto print
:do
$c =  "Dominican Republic"
goto print
:dz
$c =  "Algeria"
goto print
:ec
$c =  "Ecuador"
goto print
:ee
$c =  "Estonia"
goto print
:eg
$c =  "Egypt"
goto print
:eh
$c =  "Western Sahara"
goto print
:es
$c =  "Spain"
goto print
:et
$c =  "Ethiopia"
goto print
:fi
$c =  "Finland"
goto print
:fj
$c =  "Fiji"
goto print
:fm
$c =  "Micronesia"
goto print
:fo
$c =  "Faroe Islands"
goto print
:fr
$c =  "France"
goto print
:ga
$c =  "Gabon"
goto print
:gb
$c =  "Great Britain (UK)"
goto print
:gd
$c =  "Grenada"
goto print
:ge
$c =  "Georgia"
goto print
:gh
$c =  "Ghana"
goto print
:gi
$c =  "Gibraltar"
goto print
:gl
$c =  "Greenland"
goto print
:gq
$c =  "Equatorial Guinea"
goto print
:gm
$c =  "Gambia"
goto print
:gn
$c =  "Guinea"
goto print
:gr
$c =  "Greece"
goto print
:gt
$c =  "Guatemala"
goto print
:gu
$c =  "Guam (US)"
goto print
:gw
$c =  "Guinea Bissau"
goto print
:gy
$c =  "Guyana"
goto print
:hk
$c =  "Hong Kong"
goto print
:hn
$c =  "Honduras"
goto print
:hr
$c =  "Croatia"
goto print
:ht
$c =  "Haiti"
goto print
:hu
$c =  "Hungary"
goto print
:id
$c =  "Indonesia"
goto print
:ie
$c =  "Ireland"
goto print
:il
$c =  "Israel"
goto print
:in
$c =  "India"
goto print
:iq
$c =  "Iraq"
goto print
:ir
$c =  "Iran"
goto print
:is
$c =  "Iceland"
goto print
:it
$c =  "Italy"
goto print
:jm
$c =  "Jamaica"
goto print
:jo
$c =  "Jordan"
goto print
:jp
$c =  "Japan"
goto print
:ke
$c =  "Kenya"
goto print
:kg
$c =  "Kirgistan"
goto print
:kh
$c =  "Cambodia"
goto print
:ki
$c =  "Kiribati"
goto print
:km
$c =  "Comoros"
goto print
:kp
$c =  "Korea (North)"
goto print
:kr
$c =  "Korea (South)"
goto print
:kw
$c =  "Kuwait"
goto print
:ky
$c =  "Cayman Islands"
goto print
:kz
$c =  "Kazachstan"
goto print
:la
$c =  "Laos"
goto print
:lb
$c =  "Lebanon"
goto print
:lc
$c =  "Saint Lucia"
goto print
:li
$c =  "Liechtenstein"
goto print
:lk
$c =  "Sri Lanka"
goto print
:lr
$c =  "Liberia"
goto print
:ls
$c =  "Lesotho"
goto print
:lt
$c =  "Lithuania"
goto print
:lu
$c =  "Luxembourg"
goto print
:lv
$c =  "Latvia"
goto print
:ly
$c =  "Libya"
goto print
:ma
$c =  "Morocco"
goto print
:mc
$c =  "Monaco"
goto print
:md
$c =  "Moldavia"
goto print
:mg
$c =  "Madagascar"
goto print
:mh
$c =  "Marshall Islands"
goto print
:ml
$c =  "Mali"
goto print
:mm
$c =  "Myanmar"
goto print
:mn
$c =  "Mongolia"
goto print
:mo
$c =  "Macau"
goto print
:mr
$c =  "Mauritania"
goto print
:ms
$c =  "Montserrat"
goto print
:mt
$c =  "Malta"
goto print
:mu
$c =  "Mauritius"
goto print
:mv
$c =  "Maldives"
goto print
:mw
$c =  "Malawi"
goto print
:mx
$c =  "Mexico"
goto print
:my
$c =  "Malaysia"
goto print
:mz
$c =  "Mozambique"
goto print
:na
$c =  "Namibia"
goto print
:ne
$c =  "Niger"
goto print
:nf
$c =  "Norfolk Island"
goto print
:ng
$c =  "Nigeria"
goto print
:ni
$c =  "Nicaragua"
goto print
:nl
$c =  "The Netherlands"
goto print
:no
$c =  "Norway"
goto print
:np
$c =  "Nepal"
goto print
:nr
$c =  "Nauru"
goto print
:nt
$c =  "Neutral Zone"
goto print
:nu
$c =  "Niue"
goto print
:nz
$c =  "New Zealand"
goto print
:om
$c =  "Oman"
goto print
:pa
$c =  "Panama"
goto print
:pe
$c =  "Peru"
goto print
:pg
$c =  "Papua New Guinea"
goto print
:ph
$c =  "Philippines"
goto print
:pk
$c =  "Pakistan"
goto print
:pl
$c =  "Poland"
goto print
:pn
$c =  "Pitcairn"
goto print
:pt
$c =  "Portugal"
goto print
:pr
$c =  "Puerto Rico (US)"
goto print
:pw
$c =  "Palau"
goto print
:py
$c =  "Paraguay"
goto print
:qa
$c =  "Qatar"
goto print
:ro
$c =  "Romania"
goto print
:ru
$c =  "Russian Federation"
goto print
:rw
$c =  "Rwanda"
goto print
:sa
$c =  "Saudi Arabia"
goto print
:sb
$c =  "Solomon Islands"
goto print
:sc
$c =  "Seychelles"
goto print
:sd
$c =  "Sudan"
goto print
:se
$c =  "Sweden"
goto print
:sg
$c =  "Singapore"
goto print
:si
$c =  "Slovenia"
goto print
:sj
$c =  "Svalbard & Jan Mayen Is"
goto print
:sk
$c =  "Slovak Republic"
goto print
:sl
$c =  "Sierra Leone"
goto print
:sm
$c =  "San Marino"
goto print
:sn
$c =  "Senegal"
goto print
:so
$c =  "Somalia"
goto print
:sr
$c =  "Suriname"
goto print
:su
$c =  "Soviet Union"
goto print
:sv
$c =  "El Salvador"
goto print
:sy
$c =  "Syria"
goto print
:sz
$c =  "Swaziland"
goto print
:tc
$c =  "Turks & Caicos Islands"
goto print
:td
$c =  "Chad"
goto print
:tg
$c =  "Togo"
goto print
:th
$c =  "Thailand"
goto print
:tj
$c =  "Tadjikistan"
goto print
:tk
$c =  "Tokelau"
goto print
:tm
$c =  "Turkmenistan"
goto print
:tn
$c =  "Tunisia"
goto print
:to
$c =  "Tonga"
goto print
:tp
$c =  "East Timor"
goto print
:tr
$c =  "Turkey"
goto print
:tt
$c =  "Trinidad & Tobago"
goto print
:tv
$c =  "Tuvalu"
goto print
:tw
$c =  "Taiwan"
goto print
:tz
$c =  "Tanzania"
goto print
:ua
$c =  "Ukraine"
goto print
:ug
$c =  "Uganda"
goto print
:uk
$c =  "United Kingdom"
goto print
:us
$c =  "United States"
goto print
:uy
$c =  "Uruguay"
goto print
:uz
$c =  "Uzbekistan"
goto print
:va
$c =  "Vatican City State"
goto print
:ve
$c =  "Venezuela"
goto print
:vg
$c =  "Virgin Islands (British)"
goto print
:vi
$c =  "Virgin Islands (US)"
goto print
:vn
$c =  "Vietnam"
goto print
:vu
$c =  "Vanuatu"
goto print
:wf
$c =  "Wallis & Futuna Islands"
goto print
:ws
$c =  "Samoa"
goto print
:ye
$c =  "Yemen"
goto print
:yu
$c =  "Yugoslavia"
goto print
:za
$c =  "South Africa"
goto print
:zm
$c =  "Zambia"
goto print
:zr
$c =  "Zaire"
goto print
:zw
$c =  "Zimbabwe"

:print
echo "+----------------------------------"
echo "| Your code:   " $1
echo "| The country: " $c
echo "+----------------------------------"
