#!/bin/sh
#
#
#   NOTE:  The files in the telecom-archives directory on lcs.mit.edu
#          may be more recent versions than those in this shar.
#
#
# This is a shell archive.  To extract its contents,
# execute this file with /bin/sh to create the file(s):
#
# README		    areacode.news	areacode.unl	    areacode.w
# archie		    areacode.q
#
# This shell archive created: Wed Feb 19 16:51:29 EST 1992
#
echo "Extracting file README"
sed -e 's/^X//' <<\SHAR_EOF > README
XREADME
X
XThis directory contains files related to telephone area codes reachable
Xdirectly from country/continent code +1 (Canada, Mexico, USA, etc.).
X
X    archie         The output from "archie areacode" run January 29, 1992.
X                   See also lcs.mit.edu:~ftp/telecom-archives/*.
X
X    areacode.news  An article posted to comp.databases containing programs
X                   and data comprising an area code look-up utility.
X
X    areacode.unl   The data from areacodes.news hacked into Informix
X                   UNLOAD format.
X
X    areacode.q     The file qiclab.scn.rain.com:~ftp/pub/database/areacode
X
X    areacode.w     The file wilbur.stanford.edu:~ftp/pub/areacode
X
X
XSee the comments in areacode.news for more information.
SHAR_EOF
if [ `wc -c < README` -ne      740 ]
then
    echo "Lengths do not match -- Bad Copy of README"
fi
echo "Extracting file archie"
sed -e 's/^X//' <<\SHAR_EOF > archie
X
XHost cac.washington.edu
X
X    Location: /local/bin.next2.0
X      FILE      -rwxrwxr-x       4807  Nov  7 09:30  areacode
X    Location: /local/bin.pmax4.0
X      FILE      -rwxrwxr-x       4807  Nov  7 09:30  areacode
X    Location: /local/bin.sparc
X      FILE      -rwxrwxr-x       4807  Nov  7 09:30  areacode
X    Location: /local/bin.sun386
X      FILE      -rwxrwxr-x       4807  Nov  7 09:30  areacode
X
XHost qiclab.scn.rain.com
X
X    Location: /pub/database
X      FILE      -rw-r--r--       3118  Jul 17  1990  areacode
X
XHost wilbur.stanford.edu
X
X    Location: /pub
X      FILE      -r-xr-xr-x       7863  Aug  7 15:32  areacode
X
SHAR_EOF
if [ `wc -c < archie` -ne      629 ]
then
    echo "Lengths do not match -- Bad Copy of archie"
fi
echo "Extracting file areacode.news"
sed -e 's/^X//' <<\SHAR_EOF > areacode.news
XFrom swrinde!cs.utexas.edu!qt.cs.utexas.edu!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!ames!nsisrv!nsisrv!oneel Wed Jan 29 17:03:10 EST 1992
XArticle 15462 of comp.databases:
XPath: emory!swrinde!cs.utexas.edu!qt.cs.utexas.edu!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!ames!nsisrv!nsisrv!oneel
X>From: oneel@heawk1.gsfc.nasa.gov (oneel)
XNewsgroups: comp.databases
XSubject: Re: Area Codes (son of Zip Codes)
XMessage-ID: <ONEEL.92Jan29090630@heawk1.gsfc.nasa.gov>
XDate: 29 Jan 92 14:06:30 GMT
XReferences: <km1b1dINNqjo@phad.hsc.usc.edu> <1992Jan28.221919.5973@informix.com>
XSender: usenet@nsisrv.gsfc.nasa.gov (Usenet)
XOrganization: STX/GSFC Nasa
XLines: 294
XIn-Reply-To: proberts@informix.com's message of 28 Jan 92 22: 19:19 GMT
XNntp-Posting-Host: heawk1.gsfc.nasa.gov
X
XThis is from the telecom archives at lcs.mit.edu.
X
X
XThere seem to be three files which might be useful.  The first is
X
Xareacode.program.in.c (included at the bottom).  The other two are
Xareacode.guide and areacode.script.  Areacode.guide is a detailed
Xdiscussion of areacodes and areacode.script also includes 2 character
Xcountry codes with international dialing codes.
X
Xbruce
X
X
X
X/* Received from Brint Cooper
X*/
X#include	<stdio.h>
X#include	<ctype.h>
X/*
X	areacode.c
X	Translated from AREACODE.MAC.
X	Ken Yap (ken@rochester.arpa, ..!rochester!ken).
X
X	Compile: cc -O -o areacode areacode.c
X	Run: areacode nnn nnn ...
X
XBegin notes by Carl Moore:
X
X	Modified by Telecom moderator in Jan. 1989: add notes about
X	700 & 800 & 900, and also about not-yet-in-use 708; change
X	entry for 312, which will be split to form 708, and which had
X	read: "312Aurora, Chicago, Elgin, and Highland Park, Illinois".
X	("(as of 11-89)" deleted 13 November 1989)
X
X	26-28 May 1988: modify to account for 305/407 (Florida),
X		303/719 (Colorado), 617/508 (Massachusetts) splits;
X		add "(also suburbs)" for area 202.
X	30 March 1989: replace Adrian (which is in 517) with Flint
X		for area 313.
X	14 March 1990: delete "(also suburbs)" for area 202, because
X		of removal, before end of 1990, of area code 202 for
X		Md. and Va. suburbs; delete these 2 lines:
X"170Northwest Mexico",
X"190Mexico City, Mexico",
X	27 November 1990: add line for 903 in Texas.
X	9 January 1991: add line for 908 in New Jersey, and reverse
X		Brooklyn and Queens in entry for 718.
X	8 April 1991: delete this line:
X"525the Country and City code for Mexico City, Mexico",
X	3 September 1991: add new lines for 415/510 split, and delete
X		this line:
X"415Oakland and San Francisco, California",
X	4 November 1991: add new lines for 301/410 and 404/706 splits
X		and for 310, make minor changes involving commas, fix
X		spelling of state name in 901 area, and delete these
X		2 lines:
X"301all regions, Maryland",
X"404Atlanta and Rome, Georgia",
X	15 November 1991: add new lines for 512/210 split, and delete
X		this line:
X"512Austin, Corpus Christi and San Antonio, Texas",
X		and delete "(splits 3 May 1992 to form 706)" from note
X		about 404, and "(splits 1 Nov 1992 to form 210)" from
X		note about 512
X
XEnd notes by Carl Moore
X
X	AREACODE.MAC Ver 1.3 as of November 20, 1984
X	Ver. 1.3 added LA suburbs area code 818, added periods to
X	messages (why not?), deleted double entry for area code 809,
X	removed ungrammatical comma from ASCII string at MSG2: and
X	added a space before the `$' in MSG2: so the first space in
X	messages could be removed, providing an extra space for text
X	without changing the SCAN3: routine's 58-character bias.
X	This version provided for M80/L80 devotees courtesy of Irv
X	Hoff's XLATE5.COM to prevent undue anxiety trying to find a
X	copy of ASM.COM.  It has not been tested, so bug fixes from
X	Z80-land are more than welcome. - Bruce Morgen
X
X	Ver. 1.2 added 718 area code for New York City, and fixed bug
X	in area code 604-804 Harry Kaemmerer
X
X	Ver. 1.1 update of area codes for new U.S. areas, Mexico, &
X	Eastern Canada. Harvey G. Lord, Storrs, CT 06268
X
X	Ver. 1.0 - January 2, 1981 by Kelly Smith
X
X	AREACODE is used to display the region and state, specified
X	by the user...very handy when someone leaves an area code
X	number on a CBBS, but no city or state reference. Simple
X	enough to use, just type AREACODE nnn<cr> (where 'nnn' is a
X	three digit area code), and in return, you get a geographical
X	region by city(s), and state. Sorry if your particular city
X	is not represented, and feel free to add it as required...
X
X**	Entries must be in sorted order because binary search is used.
X*/
X
Xchar *areacode[]	= {
X"011the International Access Code",
X"201Hackensack, Morristown and Newark, New Jersey",
X"202Washington, District of Columbia",
X"203all regions, Connecticut",
X"204Manitoba, Canada",
X"205all regions, Alabama",
X"206Seattle, Tacoma and Vancouver, Washington",
X"207all regions, Maine",
X"208all regions, Idaho",
X"209Fresno and Stockton, California",
X"210San Antonio, Texas (use 512 until 1 Nov 1992)",
X"212New York City (Manhattan and Bronx), New York",
X"213Los Angeles, California",
X"214Dallas, Texas",
X"215Allentown, Chester and Philadelphia, Pennsylvania",
X"216Akron, Cleveland, Massillon and Youngstown, Ohio",
X"217Casey and Springfield, Illinois",
X"218Duluth, Minnesota",
X"219Gary, Hammond, Michigan City and South Bend, Indiana",
X"301Silver Spring and Frederick, Maryland",
X"302all regions, Delaware",
X"303Denver, Colorado",
X"304all regions, West Virginia",
X"305Fort Lauderdale, Key West and Miami, Florida",
X"306Saskatchewan, Canada",
X"307all regions, Wyoming",
X"308North Platte and Scottsbluff, Nebraska",
X"309Peoria, Illinois",
X"310Beverly Hills and Long Beach, California",
X"312Chicago, Illinois",
X"313Detroit, Flint and Ann Arbor, Michigan",
X"314Saint Louis, Missouri",
X"315Syracuse and Utica, New York",
X"316Dodge City and Wichita, Kansas",
X"317Indianapolis and Kokomo, Indiana",
X"318Lake Charles and Shreveport, Louisiana",
X"319Dubuque, Iowa",
X"401all regions, Rhode Island",
X"402Lincoln and Omaha, Nebraska",
X"403Alberta, Canada",
X"404Atlanta, Georgia",
X"405Oklahoma City, Oklahoma",
X"406all regions, Montana",
X"407Orlando and West Palm Beach, Florida",
X"408San Jose and Sunnyvale, California",
X"409Galveston, Texas",
X"410Baltimore and Annapolis, Maryland",
X"412Pittsburgh, Indiana and Rochester, Pennsylvania",
X"413Springfield, Massachusetts",
X"414Green Bay, Milwaukee and Racine, Wisconsin",
X"415San Francisco, California",
X"416Toronto, Ontario, Canada",
X"417Joplin and Springfield, Missouri",
X"418Quebec, Quebec, Canada",
X"419Toledo, Ohio",
X"501all regions, Arkansas",
X"502Louisville, Paducah and Shelbyville, Kentucky",
X"503all regions, Oregon",
X"504Baton Rouge and New Orleans, Louisiana",
X"505all regions, New Mexico",
X"506New Brunswick, Canada",
X"507Albert Lea and Rochester, Minnesota",
X"508Framingham and New Bedford, Massachusetts",
X"509Pullman, Spokane and Walla Walla, Washington",
X"510Oakland, California",
X"512Austin and Corpus Christi, Texas",
X"513Cincinnati and Dayton, Ohio",
X"514Montreal, Canada",
X"515Des Moines and Mason City, Iowa",
X"516Hempstead, New York",
X"517Lansing and Saginaw, Michigan",
X"518Albany, Greenwich and Schenectady, New York",
X"519London, Ontario, Canada",
X"601all regions, Mississippi",
X"602all regions, Arizona",
X"603all regions, New Hampshire",
X"604British Columbia, Canada",
X"605all regions, South Dakota",
X"606Ashland and Winchester, Kentucky",
X"607Elmira, Ithaca and Stamford, New York",
X"608Beloit and Madison, Wisconsin",
X"609Atlantic City, Camden and Trenton, New Jersey",
X"612Minneapolis and Saint Paul, Minnesota",
X"613Ottawa, Ontario, Canada",
X"614Columbus, Marietta and Newark, Ohio",
X"615Chattanooga and Nashville, Tennessee",
X"616Battle Creek, Cadillac and Grand Rapids, Michigan",
X"617Boston, Massachusetts",
X"618Alton, Mount Vernon and Centralia, Illinois",
X"619San Diego, Palm Springs and the Imperial Valley, California",
X"700Value Added Special Services, per individual carrier",
X"701all regions, North Dakota",
X"702all regions, Nevada",
X"703Fredericksburg, Roanoke and Winchester, Virginia",
X"704Charlotte and Salisbury, North Carolina",
X"705North Bay, Ontario, Canada",
X"706Augusta, Columbus and Rome, Georgia (use 404 until 3 May 1992)",
X"707Eureka, Napa and Santa Rosa, California",
X"708Aurora, Wheaton, Evanston, northeastern Illinois",
X"709Newfoundland, Canada",
X"712Council Bluffs, Iowa",
X"713Houston, Texas",
X"714Orange and Anaheim, California",
X"715Eau Claire and Wausau, Wisconsin",
X"716Buffalo, Niagara Falls and Rochester, New York",
X"717Harrisburg, Scranton and Wilkes-Barre, Pennsylvania",
X"718New York City (Brooklyn, Queens and Staten Island), New York",
X"719Colorado Springs, Colorado",
X"800In-WATS Toll Free Calling",
X"801all regions, Utah",
X"802all regions, Vermont",
X"803all regions, South Carolina",
X"804Charlottesville, Norfolk and Richmond, Virginia",
X"805Bakersfield, Ventura and Simi Valley, California",
X"806Amarillo, Texas",
X"807Thunder Bay, Ontario, Canada",
X"808all regions, Hawaii",
X"809Bahamas, Bermuda, Puerto Rico, the Virgin Islands, etc.",
X"812Evansville, Indiana",
X"813Avon Park, Fort Myers and Winter Haven, Florida",
X"814Altoona, Erie and Punxsutawney, Pennsylvania",
X"815La Salle, Joliet and Rockford, Illinois",
X"816Kansas City and Saint Joseph, Missouri",
X"817Fort Worth, Temple and Waco, Texas",
X"818the suburban area north of Los Angeles, California",
X"819Malartic and western Quebec, Canada",
X"900Mass Calling Value Added Information Services",
X"901Memphis, Tennessee",
X"902Prince Edward Island and Nova Scotia, Canada",
X"903Tyler and Texarkana, Texas",
X"904Jacksonville, Florida",
X"906Sault Ste. Marie, Michigan",
X"907all regions, Alaska",
X"908Elizabeth and New Brunswick, New Jersey",
X"912Waycross and Savannah, Georgia",
X"913Ottawa and Topeka, Kansas",
X"914Monroe, Mount Vernon and Poughkeepsie, New York",
X"915El Paso, Texas",
X"916Sacramento and South Tahoe, California",
X"918Muskogee and Tulsa, Oklahoma",
X"919Greenville, Raleigh and Williamston, North Carolina"
X};
X
Xchar *where(code)
X	char		*code;
X{
X	register int	i, high, low, mid;
X	int		strncmp();
X
X	low = 0; high = sizeof(areacode) / sizeof(areacode[0]);
X	while (low <= high)
X	{
X		mid = (low + high) / 2;
X		i = strncmp(code, areacode[mid], 3);
X		if (i < 0)
X			high = mid - 1;
X		else if (i > 0)
X			low = mid + 1;
X		else
X			return (areacode[mid] + 3);
X	}
X	return ("not a valid area code");
X}
X
Xarea(code)
X	char		*code;
X{
X	char		*where();
X
X	if (!isdigit(code[0]) || !isdigit(code[1]) || !isdigit(code[2])
X		|| code[3] != '\0')
X		printf("Area code %s is not a valid area code!\n", code);
X	else
X		printf("Area code %s is %s. \n", code, where(code));
X}
X
Xmain(argc, argv)
X	int		argc;
X	char		*argv[];
X{
X	if (argc < 2)
X	{
X		printf("Usage: areacode nnn nnn ...\n");
X		exit(1);
X	}
X
X	for (--argc, ++argv; argc > 0; --argc, ++argv)
X		area(*argv);
X}
X
X
X************** end of post *****************
X--
XBruce O'Neel              oneel@heasfs.gsfc.nasa.gov
XNASA/GSFC/STX/Code 664
X
X
SHAR_EOF
if [ `wc -c < areacode.news` -ne    10783 ]
then
    echo "Lengths do not match -- Bad Copy of areacode.news"
fi
echo "Extracting file areacode.q"
sed -e 's/^X//' <<\SHAR_EOF > areacode.q
X#!/bin/sh
Xgrep $1 <<EOF
X800 Free calls
X201 New Jersey
X202 Washington DC
X203 Conn.
X204 Canada/Manitoba
X205 Alabama
X206 Washington (State)
X207 Main
X208 Idaho
X209 California East of San Francisco
X212 New York City Manhatan, Bronx
X213 California L.A.
X214 Texas (east corner)
X215 Penn. Philadelphia
X216 Ohio (along lake)
X217 Illinois (central)
X218 Minn. (North of Lake Woebegone)
X219 Ind. (north)
X301 Maryland 
X302 Del.
X303 Colorado (north/west)
X304 West Virginia
X305 Florida (South East)
X306 Canada Saskattcehwan
X307 Wyoming 
X308 Nebraska (West)
X309 Illinois (Central)
X312 Illinois-Chicago
X313 Michigan (East)
X314 Missouri (East)
X315 New York (Syracuse, Rome, Central)
X316 Kansas (South)
X317 Indiana (Central, Fort Wayne)
X318 Lousiana (North, Central)
X319 Iowa (East)
X401 Rhode Island
X402 Nebraska (East)
X403 Canada-Alberta
X404 Georgia (North)
X405 Oklahoma (West)
X406 Montana
X407 Florida (East, NASA)
X408 California (Central,West)
X409 Texas (East, Not Huston)
X412 Penn. (South West corner)
X413 Mass. (West end)
X414 Wisconsin (East)
X415 California (San Fransisco, San Jose)
X416 Canada-Ontario
X417 Missouri (South)
X418 Canada-Quebec
X419 Ohio (North West corner)
X501 Arkansas
X502 Kentucky (West)
X503 Oregon 
X504 Lousiana (South East delta)
X505 New Mexico 
X506 Canada-New Brunswick
X507 Minnesota (South)
X508 Mass. (South, East)
X509 Washington State (East)
X512 Texas (South)
X513 Ohio (South West corner)
X514 Canada-Quebec
X515 Iowa (Central)
X516 Long Island New York
X517 Michigan (Central)
X518 New York (North East Adirondack Mts.)
X519 Canada-Ontario (Near Niagra falls)
X601 Mississippi
X602 Arizona
X603 New Hampshire
X604 Canada-British Columbia
X605 South Dakota
X606 Kentucky (East)
X607 New York (Central South)
X608 Wisconsin (South West)
X609 New Jersey (South, Mt. Laurel)
X612 Minnisota (Central)
X613 Canada-Ontario (North East end of Lake Ontario)
X614 Ohio (South East)
X615 Tenn. (East)
X616 Michigan (West)
X617 Mass. (Boston)
X618 Illinois (South)
X619 California (South East)
X701 North Dakota
X702 Nevada
X703 Virginia (Norht)
X704 North Carolina (West)
X705 Canada-Ontario (North East)
X706 Mexico (North West)
X707 California (North West)
X708 Illinois (North East)
X709 Canada-New Foundland
X712 Iowa (West)
X713 Texas (Huston)
X714 California (South-Central)
X715 Wisconsin (North)
X716 New York (Rochester, Buffalo)
X717 Penn. (Central and North)
X718 New York N.Y.C. (Staten Is. Brooklyn, Queens)
X719 Colorado (East)
X801 Utah
X802 Vermont
X803 S. Carolina
X804 Virginia (South West)
X805 California (South, north of L.A.)
X806 Texas (Extream North)
X807 Canada-Ontario (North West)
X808 Hawaii
X809 Bermuda, Caribbean
X812 Indiana (South)
X813 Florida (South West)
X814 Penn. (North West corner)
X815 Illinois (North West corner)
X816 Missouri (North West)
X817 Texas (Central [north])
X818 California (South Central)
X819 Canada-Quebec
X901 Tenn. (West)
X902 Canada-Nova Scotia
X904 Florida (North)
X905 Mexico (East , Mexico City)
X906 Michigan (Far North)
X907 Alaska
X912 Georgia (South)
X913 Kansas (North)
X914 New York (South East just above NYC)
X915 Texas (West)
X916 California (North East)
X918 Oklahoma (North East corner)
X919 North Carolina (East)
XEOF
SHAR_EOF
if [ `wc -c < areacode.q` -ne     3118 ]
then
    echo "Lengths do not match -- Bad Copy of areacode.q"
fi
echo "Extracting file areacode.unl"
sed -e 's/^X//' <<\SHAR_EOF > areacode.unl
X011|the International Access Code||
X201|Hackensack, Morristown and Newark|New Jersey|
X202|Washington|District of Columbia|
X203|all regions|Connecticut|
X204|Manitoba|Canada|
X205|all regions|Alabama|
X206|Seattle, Tacoma and Vancouver|Washington|
X207|all regions|Maine|
X208|all regions|Idaho|
X209|Fresno and Stockton|California|
X210|San Antonio|Texas|
X212|New York City (Manhattan and Bronx)|New York|
X213|Los Angeles|California|
X214|Dallas|Texas|
X215|Allentown, Chester and Philadelphia|Pennsylvania|
X216|Akron, Cleveland, Massillon and Youngstown|Ohio|
X217|Casey and Springfield|Illinois|
X218|Duluth|Minnesota|
X219|Gary, Hammond, Michigan City and South Bend|Indiana|
X301|Silver Spring and Frederick|Maryland|
X302|all regions|Delaware|
X303|Denver|Colorado|
X304|all regions|West Virginia|
X305|Fort Lauderdale, Key West and Miami|Florida|
X306|Saskatchewan|Canada|
X307|all regions|Wyoming|
X308|North Platte and Scottsbluff|Nebraska|
X309|Peoria|Illinois|
X310|Beverly Hills and Long Beach|California|
X312|Chicago|Illinois|
X313|Detroit, Flint and Ann Arbor|Michigan|
X314|Saint Louis|Missouri|
X315|Syracuse and Utica|New York|
X316|Dodge City and Wichita|Kansas|
X317|Indianapolis and Kokomo|Indiana|
X318|Lake Charles and Shreveport|Louisiana|
X319|Dubuque|Iowa|
X401|all regions|Rhode Island|
X402|Lincoln and Omaha|Nebraska|
X403|Alberta|Canada|
X404|Atlanta|Georgia|
X405|Oklahoma City|Oklahoma|
X406|all regions|Montana|
X407|Orlando and West Palm Beach|Florida|
X408|San Jose and Sunnyvale|California|
X409|Galveston|Texas|
X410|Baltimore and Annapolis|Maryland|
X412|Pittsburgh, Indiana and Rochester|Pennsylvania|
X413|Springfield|Massachusetts|
X414|Green Bay, Milwaukee and Racine|Wisconsin|
X415|San Francisco|California|
X416|Toronto, Ontario|Canada|
X417|Joplin and Springfield|Missouri|
X418|Quebec, Quebec|Canada|
X419|Toledo|Ohio|
X501|all regions|Arkansas|
X502|Louisville, Paducah and Shelbyville|Kentucky|
X503|all regions|Oregon|
X504|Baton Rouge and New Orleans|Louisiana|
X505|all regions|New Mexico|
X506|New Brunswick|Canada|
X507|Albert Lea and Rochester|Minnesota|
X508|Framingham and New Bedford|Massachusetts|
X509|Pullman, Spokane and Walla Walla|Washington|
X510|Oakland|California|
X512|Austin and Corpus Christi|Texas|
X513|Cincinnati and Dayton|Ohio|
X514|Montreal|Canada|
X515|Des Moines and Mason City|Iowa|
X516|Hempstead|New York|
X517|Lansing and Saginaw|Michigan|
X518|Albany, Greenwich and Schenectady|New York|
X519|London, Ontario|Canada|
X601|all regions|Mississippi|
X602|all regions|Arizona|
X603|all regions|New Hampshire|
X604|British Columbia|Canada|
X605|all regions|South Dakota|
X606|Ashland and Winchester|Kentucky|
X607|Elmira, Ithaca and Stamford|New York|
X608|Beloit and Madison|Wisconsin|
X609|Atlantic City, Camden and Trenton|New Jersey|
X612|Minneapolis and Saint Paul|Minnesota|
X613|Ottawa, Ontario|Canada|
X614|Columbus, Marietta and Newark|Ohio|
X615|Chattanooga and Nashville|Tennessee|
X616|Battle Creek, Cadillac and Grand Rapids|Michigan|
X617|Boston|Massachusetts|
X618|Alton, Mount Vernon and Centralia|Illinois|
X619|San Diego, Palm Springs and the Imperial Valley|California|
X700|Value Added Special Services||
X701|all regions|North Dakota|
X702|all regions|Nevada|
X703|Fredericksburg, Roanoke and Winchester|Virginia|
X704|Charlotte and Salisbury|North Carolina|
X705|North Bay, Ontario|Canada|
X706|Augusta, Columbus and Rome|Georgia|
X707|Eureka, Napa and Santa Rosa|California|
X708|Aurora, Wheaton, Evanston|Illinois|
X709|Newfoundland|Canada|
X712|Council Bluffs|Iowa|
X713|Houston|Texas|
X714|Orange and Anaheim|California|
X715|Eau Claire and Wausau|Wisconsin|
X716|Buffalo, Niagara Falls and Rochester|New York|
X717|Harrisburg, Scranton and Wilkes-Barre|Pennsylvania|
X718|New York City (Brooklyn, Queens and Staten Island)|New York|
X719|Colorado Springs|Colorado|
X800|In-WATS Toll Free Calling||
X801|all regions|Utah|
X802|all regions|Vermont|
X803|all regions|South Carolina|
X804|Charlottesville, Norfolk and Richmond|Virginia|
X805|Bakersfield, Ventura and Simi Valley|California|
X806|Amarillo|Texas|
X807|Thunder Bay, Ontario|Canada|
X808|all regions|Hawaii|
X809|Bahamas, Bermuda, Puerto Rico, the Virgin Islands||
X812|Evansville|Indiana|
X813|Avon Park, Fort Myers and Winter Haven|Florida|
X814|Altoona, Erie and Punxsutawney|Pennsylvania|
X815|La Salle, Joliet and Rockford|Illinois|
X816|Kansas City and Saint Joseph|Missouri|
X817|Fort Worth, Temple and Waco|Texas|
X818|the suburban area north of Los Angeles|California|
X819|Malartic and western Quebec|Canada|
X900|Mass Calling Value Added Information Services||
X901|Memphis|Tennessee|
X902|Prince Edward Island and Nova Scotia|Canada|
X903|Tyler and Texarkana|Texas|
X904|Jacksonville|Florida|
X906|Sault Ste. Marie|Michigan|
X907|all regions|Alaska|
X908|Elizabeth and New Brunswick|New Jersey|
X912|Waycross and Savannah|Georgia|
X913|Ottawa and Topeka|Kansas|
X914|Monroe, Mount Vernon and Poughkeepsie|New York|
X915|El Paso|Texas|
X916|Sacramento and South Tahoe|California|
X918|Muskogee and Tulsa|Oklahoma|
X919|Greenville, Raleigh and Williamston|North Carolina|
SHAR_EOF
if [ `wc -c < areacode.unl` -ne     5011 ]
then
    echo "Lengths do not match -- Bad Copy of areacode.unl"
fi
echo "Extracting file areacode.w"
sed -e 's/^X//' <<\SHAR_EOF > areacode.w
X#!/bin/sh
X#extracted from the Telecom archives
X$IFS ;  test -f /usr/bin/look && LOOK=/usr/bin/look || LOOK='grep -i'
X$IFS ; for i in "${@-number\]}"; do case "$i" in [0-9][01][0-9]) $LOOK $i $0
X$IFS;; *) sed 1,4d "$0" | grep -i "$i";; esac; done; exit
X011 [ International Access Code ]
X200 [ Reserved - Service Access Code ]
X201 Morristown, Newark, and Jersey City, (Northeast) New Jersey
X202 Washington, District of Columbia
X203 All parts of Connecticut
X204 All parts of Manitoba, CANADA
X205 All parts of Alabama
X206 Seattle, Tacoma, and Vancouver, (Western) Washington
X207 All parts of Maine
X208 All parts of Idaho
X209 Fresno and Stockton, (Central) California
X210 * Unassigned *
X211 [ Coin-operated Telephone Refunds ]
X212 New York City (Manhattan and Bronx) New York
X213 Los Angeles, California
X214 Dallas, Texas
X215 Allentown, Chester, and Philadelphia, (Southeast) Pennsylvania
X216 Akron, Cleveland, Massillon, and Youngstown, (Northeast) Ohio
X217 Springfield and Champaign-Urbana, (South Central) Illinois
X218 Duluth, (Northern) Minnesota
X219 Gary, Hammond, Fort Wayne, and South Bend, (Northern) Indiana
X300 [ Reserved - Service Access Code ]
X301 Silver Spring and Frederick, (Southern and Western) Maryland
X302 All parts of Delaware
X303 Boulder, Denver and Grand Junction, (Northern and Western) Colorado
X304 All parts of West Virginia
X305 Fort Lauderdale, Key West and Miami, (Southeast) Florida
X306 All parts of Saskatchewan, CANADA
X307 All parts of Wyoming
X308 North Platte and Grand Island, (Western) Nebraska
X309 Moline, Rock Island and Peoria, (West Central) Illinois
X310 Parts of Los Angeles, California [213 until 2 Nov. 1991]
X311 [ Reserved - Special Function ]
X312 Chicago, Illinois
X313 Detroit and Ann Arbor, (Eastern) Michigan
X314 Saint Louis and Columbia, (Eastern) Missouri
X315 Oswego, Syracuse and Utica, (North Central) New York
X316 Dodge City and Wichita, (Southern) Kansas
X317 Indianapolis and Kokomo, (Central) Indiana
X318 Lake Charles and Shreveport, (Western) Louisiana
X319 Dubuque, Cedar Rapids and Iowa City, (Eastern) Iowa
X400 [ Reserved - Service Access Code ]
X401 All parts of Rhode Island
X402 Lincoln and Omaha, (Eastern) Nebraska
X403 Alberta, Yukon Territory and (Western) Northwest Territories, CANADA
X404 Atlanta and Rome, (Northern) Georgia
X405 Oklahoma City, (Southern and Western) Oklahoma
X406 All parts of Montana
X407 Orlando, West Palm Beach, (Eastern) Florida
X408 San Jose and Sunnyvale, (Central Coastal/Silicon Valley) California
X409 Galveston and Port Arthur, (Southeast) Texas
X410 Baltimore and Annapolis, (Eastern) Maryland [301 until 1 Nov. 1991]
X411 [ Local Directory Assistance ]
X412 Pittsburgh and New Castle, (Western) Pennsylvania
X413 Springfield and Pittsfield, (Western) Massachusetts
X414 Green Bay, Milwaukee, and Racine, (Eastern) Wisconsin
X415 San Francisco and San Mateo, (West Bay Area) California
X416 Toronto, (South Central) Ontario, CANADA
X417 Joplin and Springfield, (Southwest) Missouri
X418 Quebec City, (Northeast) Quebec, CANADA
X419 Toledo and Lima, (Northwest) Ohio
X500 [ Reserved - Service Access Code ]
X501 All parts of Arkansas
X502 Louisville and Paducah, (Western) Kentucky
X503 All parts of Oregon
X504 Baton Rouge and New Orleans, (Eastern) Louisiana
X505 All parts of New Mexico
X506 All parts of New Brunswick, CANADA
X507 Rochester, Austin and Winona, (Southern) Minnesota
X508 Worcester, Framingham and New Bedford, (Eastern) Massachusetts
X509 Spokane and Walla Walla, (Eastern) Washington
X510 Oakland (East Bay Area) California [415 until 2 Sept. 1991]
X511 [ Reserved - Special Function ]
X512 Austin, Corpus Christi, and San Antonio, (Southern) Texas
X513 Cincinnati and Dayton, (Southwest) Ohio
X514 Montreal, (Southern) Quebec, CANADA
X515 Des Moines and Fort Dodge, (Central) Iowa
X516 Hempstead, (Long Island) New York
X517 Lansing and Saginaw, (Central) Michigan
X518 Albany and Schenectady, (Northeast) New York
X519 London, (Southwest) Ontario, CANADA
X600 [ Reserved - Service Access Code ]
X601 All parts of Mississippi
X602 All parts of Arizona
X603 All parts of New Hampshire
X604 All parts of British Columbia, CANADA
X605 All parts of South Dakota
X606 Ashland and Covington, (Eastern) Kentucky
X607 Binghamton, Elmira and Ithaca, (South Central) New York
X608 Beloit and Madison, (Southwest) Wisconsin
X609 Atlantic City, Camden, and Trenton, (Southern) New Jersey
X610 [Telex II (TWX) Service for CANADA]
X611 [ Repair Service ]
X612 Minneapolis and Saint Paul, (Central) Minnesota
X613 Ottawa, (Southeast) Ontario, CANADA
X614 Columbus and Zanesville, (Southeast) Ohio
X615 Chattanooga and Nashville, (Eastern) Tennessee
X616 Battle Creek and Grand Rapids, (Western) Michigan
X617 Boston and surrounding area, (Eastern) Massachusetts
X618 Alton and Centralia, (Southern) Illinois
X619 San Diego and the Imperial Valley, California
X700 Value Added Information Service Access Code (varies by LD carrier)
X701 All parts of North Dakota
X702 All parts of Nevada
X703 Arlington and Roanoke, (Northern and Western) Virginia
X704 Charlotte and Salisbury, (Western) North Carolina
X705 North Bay, (Northern) Ontario, CANADA
X706 [Formerly Tijuana, (Northwest) MEXICO equivalent to +52 6X XXX XXX]
X707 Eureka, Napa, and Santa Rosa, (North Coastal) California
X708 Aurora, Elgin, and Highland Park, (Northeast) Illinois
X709 All parts of Newfoundland and Labrador, CANADA
X710 * Unassigned *
X711 [ Reserved - Special Function ]
X712 Council Bluffs and Sioux City, (Western) Iowa
X713 Houston and surrounding area, Texas
X714 Orange County, California
X715 Eau Claire and Wausau, (Northern) Wisconsin
X716 Buffalo, Niagara Falls, and Rochester, (Western) New York
X717 Harrisburg, Pottsville and Scranton, (East Central) Pennsylvania
X718 New York City (Queens, Brooklyn and Staten Island) New York
X719 Colorado Springs and Pueblo, (Southeast) Colorado
X800 "Toll-Free" Incoming WATS Service Access Code
X801 All parts of Utah
X802 All parts of Vermont
X803 All parts of South Carolina
X804 Charlottesville, Norfolk, and Richmond, (Southeast) Virginia
X805 Bakersfield, Ventura, and Simi Valley, (South Central) California
X806 Amarillo, (North Panhandle) Texas
X807 Thunder Bay and Fort William, (Northwest) Ontario, CANADA
X808 All parts of Hawaii
X809 Bahamas, Bermuda, Puerto Rico, the Virgin Islands, other parts of Caribbean
X810 * Unassigned *
X811 [ Reserved - Special Function ]
X812 Bloomington, Evansville and Terre Haute, (Southern) Indiana
X813 Fort Myers,  St. Petersburg and Tampa, (Southwest) Florida
X814 Altoona and Erie, (West Central) Pennsylvania
X815 Freeport, Joliet and Rockford, (Northern) Illinois
X816 Kansas City and Saint Joseph, (Northwest) Missouri
X817 Fort Worth, Temple, and Waco, (North Central) Texas
X818 Pasadena and San Fernando (area north of Los Angeles), California
X819 Hull and Sherbrooke (Western) Quebec and (Eastern) N.W. Territories, CANADA
X900 Mass Calling and Value Added Information Service Access Code
X901 Memphis and Jackson, (Western) Tennesee
X902 All parts of Prince Edward Island and Nova Scotia, CANADA
X903 Texarkana and Paris, (Northeast) Texas
X904 Jacksonville and Pensacola, (Northern) Florida
X905 [Formerly Mexico City, (Northern) MEXICO equivalent to +52 5 XXX XXXX]
X906 Sault Ste. Marie and Marquette, (Upper North) Michigan
X907 All parts of Alaska
X908 Elizabeth and New Brunswick (Central) New Jersey
X909 Riverside and San Bernardino, California [currently 714]
X910 * Unassigned *
X911 [ Police/Fire Emergency Service ]
X912 Macon and Savannah, (Southern) Georgia
X913 Salina and Topeka, (Northern) Kansas
X914 New Rochelle, White Plains and Poughkeepsie, (Southern) New York
X915 Abilene, El Paso and Odessa, (Western) Texas
X916 Sacramento and Davis, (Northern) California
X917 Cellular and Paging for New York City [currently 212]
X918 Muskogee and Tulsa, (Northeast) Oklahoma
X919 Greenville, Raleigh, and Winston Salem, (Eastern) North Carolina
XUsage: areacode [areaname | number]...
X
SHAR_EOF
if [ `wc -c < areacode.w` -ne     7863 ]
then
    echo "Lengths do not match -- Bad Copy of areacode.w"
fi
echo "Done."