#!/usr/bin/perl -w use Tk; $input = " " ; $entry = " " ; $text = " " ; $entry_box = " "; $frame1 = " "; $mw = MainWindow->new; $mw->title('geocode-0.99'); $frame1 = $mw->Frame( - height => 100 , - width => 100) ->pack(); $frame1->Button( -width => 10 , - text => Print , -command => sub{print_text($entry)} ) ->pack( - anchor => 'nw' , -side => 'left'); $frame1->Button( -width => 10 , - text => Clear , -command => sub{clear_text($text)}) ->pack( - anchor => 'nw' , -side => 'left'); $frame1->Button( -width => 10 , - text => Exit , -command => sub{exit} ) ->pack( - anchor => 'nw' , -side => 'left'); $frame1->Button( -width => 10 , - text => About , -command => sub{about_geocode($entry)} ) ->pack( - anchor => 'nw' , -side => 'left'); $entry_box = $mw->Entry ( -width => 55 , - textvariable => \$entry ) ->pack( - anchor => 'nw'); $text = $mw->Text( -wrap => word , -width => 55)->pack( - after => $entry_box, - anchor => 'nw'); $entry_box->insert('end' , 'Input NPA here' ); MainLoop; sub about_geocode { $about_text = " "; if (! Exists($tl)) { $tl = $mw->Toplevel(-title => "Popup"); $about_text = $tl->Text()->pack; $about_text->insert('end' , 'This is the Perl/Tk version of Dual`s geocode program. Mad props to Dual, for giving me a base to build this program on. Also mad props to the whole crazy DDP bunch. Keep on rockin guys!! Hacnslash www.oldskoolphreak.com September, 24th 2003' ); $tl->Button(-text => "Close Window", -command => sub { $tl->withdraw })->pack; } } sub clear_text { $text->delete('0.0' , 'end'); $entry_box->delete('0.0' , 'end'); } sub print_text { $input = $mw->Entry->get; if ($entry =~ /[a-zA-Z]/) { $text->insert('end' , ' NPA`s are numbers silly!'); } if ($entry == 205) { $text->insert('end' , ' Alabama - Birmingham, Tuscaloosa'); } if ($entry == 251) { $text->insert('end' , ' Alabama - southwest corner of state Jackson, Mobile (overlay w/ 334)'); } if ($entry == 256) { $text->insert('end' , ' Alabama - northern except Birmingham, Tuscaloosa'); } if ($entry == 334) { $text->insert('end' , ' Alabama - south Auburn, Jackson, Mobile, Montgomery, Selma (overlay w/ 251)'); } if ($entry == 907) { $text->insert('end' , ' Alaska'); } if ($entry == 520) { $text->insert('end' , ' Arizona - Tucson metro area'); } if ($entry == 480) { $text->insert('end' , ' Arizona - eastern Phoenix metro area'); } if ($entry == 602) { $text->insert('end' , ' Arizona - Phoenix'); } if ($entry == 623) { $text->insert('end' , ' Arizona - western Phoenix metro area'); } if ($entry == 928) { $text->insert('end' , ' Arizona - Yuma, Flagstaff, entire state except Phoenix and Tucson'); } if ($entry == 479) { $text->insert('end' , ' Arkansas - northwest corner of state, Fayetteville, Fort Smith'); } if ($entry == 501) { $text->insert('end' , ' Arkansas - center of state Little Rock, Hot Springs'); } if ($entry == 870) { $text->insert('end' , ' Arkansas - Jonesboro, Pine Bluff, Texarkana'); } if ($entry == 209) { $text->insert('end' , ' California (Northern) - Stockton'); } if ($entry == 341) { $text->insert('end' , ' California (Northern) - Oakland (overlay w/ 510)'); } if ($entry == 408) { $text->insert('end' , ' California (Northern) - San Jose'); } if ($entry == 415) { $text->insert('end' , ' California (Northern) - San Francisco (overlay w/ 628)'); } if ($entry == 510) { $text->insert('end' , ' California (Northern) - Oakland (overlay w/ 341)'); } if ($entry == 530) { $text->insert('end' , ' California (Northern) - Chico, Redding, Yreka'); } if ($entry == 559) { $text->insert('end' , ' California (Northern) - Fresno area'); } if ($entry == 628) { $text->insert('end' , ' California (Northern) - San Francisco (overlay w/ 415)'); } if ($entry == 650) { $text->insert('end' , ' California (Northern) - Mountain View, San Mateo'); } if ($entry == 707) { $text->insert('end' , ' California (Northern) - Petaluma, Napa'); } if ($entry == 916) { $text->insert('end' , ' California (Northern) - Sacramento'); } if ($entry == 925) { $text->insert('end' , ' California (Northern) - Pleasanton, Walnut Creek'); } if ($entry == 831) { $text->insert('end' , ' California (Northern) - Salinas, Monterey Bay area'); } if ($entry == 213) { $text->insert('end' , ' California (Southern) - Los Angeles'); } if ($entry == 310) { $text->insert('end' , ' California (Southern) - Santa Monica, Malibu, Beverly Hills, Gardena'); } if ($entry == 323) { $text->insert('end' , ' California (Southern) - Los Angeles'); } if ($entry == 424) { $text->insert('end' , ' California (Southern) - Beverly Hills, Gardena'); } if ($entry == 442) { $text->insert('end' , ' California (Southern) - Borrego Springs, Carlsbad, Encinitas, Escondidi, Pauma Valley, Ramona'); } if ($entry == 562) { $text->insert('end' , ' California (Southern) - Long Beach, Whittier'); } if ($entry == 619) { $text->insert('end' , ' California (Southern) - central San Diego'); } if ($entry == 626) { $text->insert('end' , ' California (Southern) - Alhambra, La Puente, Pasadena'); } if ($entry == 657) { $text->insert('end' , ' California (Southern) - Anaheim (overlay w/ 714)'); } if ($entry == 661) { $text->insert('end' , ' California (Southern) - Bakersfield'); } if ($entry == 714) { $text->insert('end' , ' California (Southern) - Anaheim (overlay w/ 657)'); } if ($entry == 752) { $text->insert('end' , ' California (Southern) - Pomona, Claremont, Ontario, San Bernardino, Arrowhead (overlay w/ 909)'); } if ($entry == 760) { $text->insert('end' , ' California (Southern) - north San Diego county, Bishop, Needles, Palm Springs'); } if ($entry == 805) { $text->insert('end' , ' California (Southern) - Santa Barbara'); } if ($entry == 818) { $text->insert('end' , ' California (Southern) - Burbank, Pasadena, Van Nuys'); } if ($entry == 858) { $text->insert('end' , ' California (Southern) - northern San Diego metro area'); } if ($entry == 909) { $text->insert('end' , ' California (Southern) - Pomona, Claremont, Ontario, San Bernardino, Arrowhead (overlay w/ 752)'); } if ($entry == 935) { $text->insert('end' , ' California (Southern) - southern San Diego metro area'); } if ($entry == 949) { $text->insert('end' , ' California (Southern) - Costa Mesa, Irvine, Newport Beach'); } if ($entry == 951) { $text->insert('end' , ' California (Southern) - Corona, Riverside, Banning, Hemet, San Jacinto, Arlington'); } if ($entry == 303) { $text->insert('end' , ' Colorado - Denver'); } if ($entry == 719) { $text->insert('end' , ' Colorado - Colorado Springs, Pueblo'); } if ($entry == 720) { $text->insert('end' , ' Colorado - Denver'); } if ($entry == 970) { $text->insert('end' , ' Colorado - Aspen, Vail'); } if ($entry == 203) { $text->insert('end' , ' Connecticut - Fairfield and New Haven (overlay w/ 475)'); } if ($entry == 475) { $text->insert('end' , ' Connecticut - Fairfield and New Haven (overlay w/ 203)'); } if ($entry == 860) { $text->insert('end' , ' Connecticut - Bloomfield, Canaan, Hartford, Norwich'); } if ($entry == 302) { $text->insert('end' , ' Delaware'); } if ($entry == 305) { $text->insert('end' , ' Florida - south Miami, Key West (overlay w/ 786)'); } if ($entry == 321) { $text->insert('end' , ' Florida - Orlando, Kissimmee, Winter Park, space coast Cocoa Beach, Titusville, Melbourne'); } if ($entry == 352) { $text->insert('end' , ' Florida - north Gainesville, Ocala'); } if ($entry == 386) { $text->insert('end' , ' Florida - Daytona Beach, Volusia County, Live Oak, Lake City, Alachua'); } if ($entry == 407) { $text->insert('end' , ' Florida - Orlando, Kissimmee, Winter Garden, Winter Park, Sanford, Debary'); } if ($entry == 561) { $text->insert('end' , ' Florida - Boca Raton, Stuart, West Palm Beach'); } if ($entry == 727) { $text->insert('end' , ' Florida - Clearwater, St. Petersburg'); } if ($entry == 754) { $text->insert('end' , ' Florida - southeast Ft. Lauderdale, Broward County (overlay w/ 954)'); } if ($entry == 786) { $text->insert('end' , ' Florida - south Miami, Key West (overlay w/ 305)'); } if ($entry == 813) { $text->insert('end' , ' Florida - Tampa'); } if ($entry == 850) { $text->insert('end' , ' Florida - Panama City, Pensacola, Tallahassee'); } if ($entry == 863) { $text->insert('end' , ' Florida - Lakeland, Haines City, Winter Haven, Bartow, Lake Wales'); } if ($entry == 904) { $text->insert('end' , ' Florida - Jacksonville, St. Augustine'); } if ($entry == 941) { $text->insert('end' , ' Florida - Bradenton, Ft. Myers, Naples, Sarasota'); } if ($entry == 954) { $text->insert('end' , ' Florida - southeast Ft. Lauderdale, Broward County (overlay w/ 754)'); } if ($entry == 229) { $text->insert('end' , ' Georgia - Albany, Americus, Valdosta, Tifton'); } if ($entry == 404) { $text->insert('end' , ' Georgia - Atlanta'); } if ($entry == 478) { $text->insert('end' , ' Georgia - Macon, Milledgeville, Perry, Warner Robins'); } if ($entry == 678) { $text->insert('end' , ' Georgia - Atlanta metro area (overlay w/ 770 and 404)'); } if ($entry == 706) { $text->insert('end' , ' Georgia - Augusta, Columbus'); } if ($entry == 770) { $text->insert('end' , ' Georgia - suburban Atlanta (the area outside the I-285 beltway)'); } if ($entry == 912) { $text->insert('end' , ' Georgia - Statesboro, Vidalla, Savannah, Waycross, Brunswick'); } if ($entry == 808) { $text->insert('end' , ' Hawaii'); } if ($entry == 208) { $text->insert('end' , ' Idaho'); } if ($entry == 217) { $text->insert('end' , ' Illinois - Champaign, Springfield'); } if ($entry == 224) { $text->insert('end' , ' Illinois - suburban Chicago'); } if ($entry == 309) { $text->insert('end' , ' Illinois - Bloomington, Peoria'); } if ($entry == 312) { $text->insert('end' , ' Illinois - Chicago'); } if ($entry == 618) { $text->insert('end' , ' Illinois - Collinsville, Granite City'); } if ($entry == 630) { $text->insert('end' , ' Illinois - suburban Chicago'); } if ($entry == 708) { $text->insert('end' , ' Illinois - Des Plaines, Palatine, Waukegan'); } if ($entry == 773) { $text->insert('end' , ' Illinois - Chicago'); } if ($entry == 815) { $text->insert('end' , ' Illinois - Joliet, Rockford'); } if ($entry == 847) { $text->insert('end' , ' Illinois - suburban Chicago'); } if ($entry == 219) { $text->insert('end' , ' Indiana - Fort Wayne, Gary, Hammond, South Bend, Warsaw'); } if ($entry == 317) { $text->insert('end' , ' Indiana - Indianapolis'); } if ($entry == 765) { $text->insert('end' , ' Indiana - Kokomo, Lafayette, Richmond'); } if ($entry == 812) { $text->insert('end' , ' Indiana - Bloomington, Evansville, Terra Haute'); } if ($entry == 319) { $text->insert('end' , ' Iowa - Cedar Rapids, Waterloo'); } if ($entry == 515) { $text->insert('end' , ' Iowa - Des Moines'); } if ($entry == 563) { $text->insert('end' , ' Iowa - Debuque, Clinton, Davenport'); } if ($entry == 641) { $text->insert('end' , ' Iowa - Mason City, Pella, Ottumwa'); } if ($entry == 712) { $text->insert('end' , ' Iowa - Council Bluffs, Sioux City'); } if ($entry == 316) { $text->insert('end' , ' Kansas - Wichita, El Dorado, Newton, Augusta, Mulvane, Cheney, Mount Hope, Halstead'); } if ($entry == 620) { $text->insert('end' , ' Kansas - southern portion of state, except Wichita metro area'); } if ($entry == 785) { $text->insert('end' , ' Kansas - Junction City, Lawrence, Topeka'); } if ($entry == 913) { $text->insert('end' , ' Kansas - Kansas City, Topeka'); } if ($entry == 270) { $text->insert('end' , ' Kentucky - western Kentucky'); } if ($entry == 502) { $text->insert('end' , ' Kentucky - Louisville'); } if ($entry == 606) { $text->insert('end' , ' Kentucky - eastern Kentucky'); } if ($entry == 859) { $text->insert('end' , ' Kentucky - Lexington-Fayette, Versailles, Richmond, Covington'); } if ($entry == 225) { $text->insert('end' , ' Louisiana - Baton Rouge'); } if ($entry == 318) { $text->insert('end' , ' Louisiana - Shreveport, northern portion of state'); } if ($entry == 337) { $text->insert('end' , ' Louisiana - Lafayette, southwestern portion of state'); } if ($entry == 504) { $text->insert('end' , ' Louisiana - New Orleans metro area'); } if ($entry == 985) { $text->insert('end' , ' Louisiana - southeastern portion of state except New Orleans area'); } if ($entry == 207) { $text->insert('end' , ' Maine'); } if ($entry == 240) { $text->insert('end' , ' Maryland - Rockville, Silver Spring, Bethesda (overlay w/ 301)'); } if ($entry == 301) { $text->insert('end' , ' Maryland - Rockville, Silver Spring, Bethesda (overlay w/ 240)'); } if ($entry == 410) { $text->insert('end' , ' Maryland - Baltimore, Towson (overlay w/ 443)'); } if ($entry == 443) { $text->insert('end' , ' Maryland - Baltimore, Towson (overlay w/ 410)'); } if ($entry == 339) { $text->insert('end' , ' Massachusetts - Woburn, Stoneham, Winchester, Wakefield, area surrounding Boston (overlay w/ 781)'); } if ($entry == 351) { $text->insert('end' , ' Massachusetts - Beverly, Peabody, Salem, Lawrence, Chelmsford, Lowell (overlay w/ 978)'); } if ($entry == 413) { $text->insert('end' , ' Massachusetts - Springfield'); } if ($entry == 508) { $text->insert('end' , ' Massachusetts - Worcester, Cape Cod, Framingham, New Bedford, Plymoutn (overlay w/ 774)'); } if ($entry == 617) { $text->insert('end' , ' Massachusetts - Boston (overlay w/ 857)'); } if ($entry == 774) { $text->insert('end' , ' Massachusetts - Worcester, Cape Cod, Framingham, New Bedford, Plymoutn (overlay w/ 508)'); } if ($entry == 781) { $text->insert('end' , ' Massachusetts - Woburn, Stoneham, Winchester, Wakefield, area surrounding Boston (overlay w/ 339)'); } if ($entry == 857) { $text->insert('end' , ' Massachusetts - Boston (overlay w/ 617)'); } if ($entry == 978) { $text->insert('end' , ' Massachusetts - Beverly, Peabody, Salem, Lawrence, Chelmsford, Lowell (overlay w/ 351)'); } if ($entry == 231) { $text->insert('end' , ' Michigan - Muskegon, Manistee, Traverse City, Cadillac, Big Rapids'); } if ($entry == 248) { $text->insert('end' , ' Michigan - Oakland county, Troy, Pontiac, Birmingham (overlay w/ 947)'); } if ($entry == 313) { $text->insert('end' , ' Michigan - Detroit'); } if ($entry == 517) { $text->insert('end' , ' Michigan - Lansing, Jackson'); } if ($entry == 586) { $text->insert('end' , ' Michigan - Mt. Clemens, Roseville, Warren, Utica'); } if ($entry == 616) { $text->insert('end' , ' Michigan - Battle Creek, Grand Rapids, Kalamazoo'); } if ($entry == 734) { $text->insert('end' , ' Michigan - Ann Arbor, Monroe'); } if ($entry == 810) { $text->insert('end' , ' Michigan - Flint, Port Huron'); } if ($entry == 906) { $text->insert('end' , ' Michigan - Marquette, Sault Ste. Marie'); } if ($entry == 947) { $text->insert('end' , ' Michigan - Oakland county, Troy, Pontiac, Birmingham (overlay w/ 248)'); } if ($entry == 989) { $text->insert('end' , ' Michigan - Bay City, Mount Pleasant, Saginaw, West Branch'); } if ($entry == 218) { $text->insert('end' , ' Minnesota - Duluth'); } if ($entry == 320) { $text->insert('end' , ' Minnesota - St. Cloud, Willmar'); } if ($entry == 507) { $text->insert('end' , ' Minnesota - Rochester'); } if ($entry == 612) { $text->insert('end' , ' Minnesota - Minneapolis, Fort Snelling, St. Anthony, Richfield'); } if ($entry == 651) { $text->insert('end' , ' Minnesota - St. Paul'); } if ($entry == 763) { $text->insert('end' , ' Minnesota - north and northwest Minneapolis suburbs, Brooklyn Center, Waverly'); } if ($entry == 952) { $text->insert('end' , ' Minnesota - south and southwest Minneapolis suburbs, Bloomington, Minnetonka'); } if ($entry == 228) { $text->insert('end' , ' Mississippi - southern portion of state, Biloxi, Pascasoula, Gulfport'); } if ($entry == 601) { $text->insert('end' , ' Mississippi - Jackson, Meridian, Hattiesburg'); } if ($entry == 662) { $text->insert('end' , ' Mississippi - northern portion of state, Columbus, Greenville, Oxford, Yazoo City'); } if ($entry == 314) { $text->insert('end' , ' Missouri - St. Louis metro area (overlay w/ 557)'); } if ($entry == 417) { $text->insert('end' , ' Missouri - Joplin, Springfield'); } if ($entry == 557) { $text->insert('end' , ' Missouri - St. Louis metro area (overlay w/ 314)'); } if ($entry == 573) { $text->insert('end' , ' Missouri - Jefferson City, Columbia and other towns outside St. Louis'); } if ($entry == 636) { $text->insert('end' , ' Missouri - area surrounding St. Louis metro area, Washington, St. Charles, DeSoto'); } if ($entry == 660) { $text->insert('end' , ' Missouri - area surrounding Kansas City and St. Joseph'); } if ($entry == 816) { $text->insert('end' , ' Missouri - Kansas City and St. Joseph metro area'); } if ($entry == 406) { $text->insert('end' , ' Montana'); } if ($entry == 308) { $text->insert('end' , ' Nebraska - North Platte'); } if ($entry == 402) { $text->insert('end' , ' Nebraska - Lincoln, Omaha'); } if ($entry == 702) { $text->insert('end' , ' Nevada - Las Vegas area'); } if ($entry == 775) { $text->insert('end' , ' Nevada - entire state except Las Vegas area'); } if ($entry == 603) { $text->insert('end' , ' New Hampshire'); } if ($entry == 201) { $text->insert('end' , ' New Jersey - Hackensack, Morristown, Newark, Jersey City (overlay w/ 551)'); } if ($entry == 551) { $text->insert('end' , ' New Jersey - Hackensack, Morristown, Newark, Jersey City (overlay w/ 201)'); } if ($entry == 609) { $text->insert('end' , ' New Jersey - Trenton, Princeton, Mt. Holly, Willingboro, Atlantic City, Ocean City'); } if ($entry == 732) { $text->insert('end' , ' New Jersey - Asbury Park, Monmouth, Long Branch, Somerset (overlay w/ 848)'); } if ($entry == 848) { $text->insert('end' , ' New Jersey - Asbury Park, Monmouth, Long Branch, Somerset (overlay w/ 732)'); } if ($entry == 856) { $text->insert('end' , ' New Jersey - Camden, Vineland, New Castle, Bridgeton, Millville'); } if ($entry == 862) { $text->insert('end' , ' New Jersey - Morris, Passaic, Essex Counties (overlay w/ 973)'); } if ($entry == 908) { $text->insert('end' , ' New Jersey - Elizabeth, New Brunswick, Westfield'); } if ($entry == 973) { $text->insert('end' , ' New Jersey - Morris, Passaic, Essex Counties (overlay w/ 862)'); } if ($entry == 505) { $text->insert('end' , ' New Mexico - entire state except Albuquerque and Santa Fe metro areas'); } if ($entry == 575) { $text->insert('end' , ' New Mexico - Albuquerque and Santa Fe metro areas'); } if ($entry == 212) { $text->insert('end' , ' New York - NYC Manhattan (overlay w/ 646)'); } if ($entry == 315) { $text->insert('end' , ' New York - Syracuse, Auburn, Geneva, Massena, Watertown, Utica, Rome'); } if ($entry == 347) { $text->insert('end' , ' New York - NYC Brooklyn, Queens, Staten Island, Bronx (overlay w/ 718)'); } if ($entry == 516) { $text->insert('end' , ' New York - western Long Island - Nassau County'); } if ($entry == 518) { $text->insert('end' , ' New York - Albany, Schenectady, Saratoga, Glens Falls, Troy'); } if ($entry == 607) { $text->insert('end' , ' New York - Binghamton, Elmira, Bath, Corning, Ithaca, Hornell'); } if ($entry == 631) { $text->insert('end' , ' New York - eastern Long Island - Suffolk County'); } if ($entry == 646) { $text->insert('end' , ' New York - NYC Manhattan (overlay w/ 212)'); } if ($entry == 716) { $text->insert('end' , ' New York - Buffalo, Niagara Falls, Rochester, Batavia, Canadaigua, Jamestown'); } if ($entry == 718) { $text->insert('end' , ' New York - NYC Brooklyn, Queens, Staten Island, Bronx (overlay w/ 347)'); } if ($entry == 845) { $text->insert('end' , ' New York - Newburgh, Poughkeepsie, Carmel, Kingston'); } if ($entry == 914) { $text->insert('end' , ' New York - Westchester county'); } if ($entry == 917) { $text->insert('end' , ' New York - New York City'); } if ($entry == 252) { $text->insert('end' , ' North Carolina - Rocky Mount, Outer Banks'); } if ($entry == 336) { $text->insert('end' , ' North Carolina - Greensboro, Winston-Salem'); } if ($entry == 704) { $text->insert('end' , ' North Carolina - Charlotte metro area (overlay w/ 980)'); } if ($entry == 828) { $text->insert('end' , ' North Carolina - southwest, except Charlotte metro area'); } if ($entry == 910) { $text->insert('end' , ' North Carolina - Fayetteville area'); } if ($entry == 919) { $text->insert('end' , ' North Carolina - Raleigh metro area (overlay w/ 984)'); } if ($entry == 980) { $text->insert('end' , ' North Carolina - Charlotte metro area (overlay w/ 704)'); } if ($entry == 984) { $text->insert('end' , ' North Carolina - Raleigh metro area (overlay w/ 919)'); } if ($entry == 701) { $text->insert('end' , ' North Dakota'); } if ($entry == 216) { $text->insert('end' , ' Ohio - Cleveland'); } if ($entry == 234) { $text->insert('end' , ' Ohio - Akron, Youngstown (overlay w/ 330)'); } if ($entry == 283) { $text->insert('end' , ' Ohio - Cincinnati (overlay w/ 513)'); } if ($entry == 330) { $text->insert('end' , ' Ohio - Akron, Youngstown (overlay w/ 234)'); } if ($entry == 380) { $text->insert('end' , ' Ohio - Columbus metro area (overlay w/ 614)'); } if ($entry == 419) { $text->insert('end' , ' Ohio - Toledo (overlay w/ 567)'); } if ($entry == 440) { $text->insert('end' , ' Ohio - Cleveland'); } if ($entry == 513) { $text->insert('end' , ' Ohio - Cincinnati (overlay w/ 283)'); } if ($entry == 567) { $text->insert('end' , ' Ohio - Toledo (overlay w/ 419)'); } if ($entry == 614) { $text->insert('end' , ' Ohio - Columbus metro area (overlay w/ 380)'); } if ($entry == 740) { $text->insert('end' , ' Ohio - southeastern Ohio except Columbus area'); } if ($entry == 937) { $text->insert('end' , ' Ohio - Dayton'); } if ($entry == 405) { $text->insert('end' , ' Oklahoma - Oklahoma City metro area'); } if ($entry == 580) { $text->insert('end' , ' Oklahoma - Enid, Stillwater, Ardmore, Lawton, Altus, Guymon, Broken Bow'); } if ($entry == 918) { $text->insert('end' , ' Oklahoma - Broken Arrow, Muskogee, Tulsa'); } if ($entry == 503) { $text->insert('end' , ' Oregon - northwest Portland and Salem (overlay w/ 971)'); } if ($entry == 541) { $text->insert('end' , ' Oregon - Eugene, Medford'); } if ($entry == 971) { $text->insert('end' , ' Oregon - northwest Portland and Salem (overlay w/ 503)'); } if ($entry == 215) { $text->insert('end' , ' Pennsylvania - Philadelphia'); } if ($entry == 267) { $text->insert('end' , ' Pennsylvania - Philadelphia'); } if ($entry == 412) { $text->insert('end' , ' Pennsylvania - Pittsburgh metro area (overlay w/ 878)'); } if ($entry == 484) { $text->insert('end' , ' Pennsylvania - Allentown, Bethlehem, Reading, West Chester'); } if ($entry == 570) { $text->insert('end' , ' Pennsylvania - Wilkes-Barre, Scranton'); } if ($entry == 610) { $text->insert('end' , ' Pennsylvania - Allentown, Bethlehem, Reading, West Chester'); } if ($entry == 717) { $text->insert('end' , ' Pennsylvania - Harrisburg'); } if ($entry == 724) { $text->insert('end' , ' Pennsylvania - western portion of state except Pittsburg metro area (overlay w/ 878)'); } if ($entry == 814) { $text->insert('end' , ' Pennsylvania - Altoona, Erie'); } if ($entry == 878) { $text->insert('end' , ' Pennsylvania - Pittsburgh and western portion of state (overlay w/ 412 and 724)'); } if ($entry == 401) { $text->insert('end' , ' Rhode Island'); } if ($entry == 803) { $text->insert('end' , ' South Carolina - Columbia, mid-state area'); } if ($entry == 843) { $text->insert('end' , ' South Carolina - coastal area'); } if ($entry == 864) { $text->insert('end' , ' South Carolina - Greenville, Spartanburg'); } if ($entry == 605) { $text->insert('end' , ' South Dakota'); } if ($entry == 423) { $text->insert('end' , ' Tennessee - Chattanooga, Johnson City, La Follette'); } if ($entry == 615) { $text->insert('end' , ' Tennessee - Nashville metro area'); } if ($entry == 731) { $text->insert('end' , ' Tennessee - western end of state except Mephis metro area'); } if ($entry == 865) { $text->insert('end' , ' Tennessee - Knoxville area'); } if ($entry == 901) { $text->insert('end' , ' Tennessee - Memphis metro area'); } if ($entry == 931) { $text->insert('end' , ' Tennessee - central except Nashville metro area'); } if ($entry == 210) { $text->insert('end' , ' Texas - San Antonio'); } if ($entry == 214) { $text->insert('end' , ' Texas - Dallas'); } if ($entry == 254) { $text->insert('end' , ' Texas - Waco'); } if ($entry == 281) { $text->insert('end' , ' Texas - Houston'); } if ($entry == 361) { $text->insert('end' , ' Texas - Corpus Christi'); } if ($entry == 409) { $text->insert('end' , ' Texas - Galveston'); } if ($entry == 469) { $text->insert('end' , ' Texas - Dallas'); } if ($entry == 512) { $text->insert('end' , ' Texas - Austin'); } if ($entry == 682) { $text->insert('end' , ' Texas - Arlington, Fort Worth (overlay w/ 817)'); } if ($entry == 713) { $text->insert('end' , ' Texas - Houston'); } if ($entry == 806) { $text->insert('end' , ' Texas - Amarillo, Lubbock'); } if ($entry == 817) { $text->insert('end' , ' Texas - Arlington, Fort Worth (overlay w/ 682)'); } if ($entry == 830) { $text->insert('end' , ' Texas - Fredericksburg, New Braunfels, Uvalde'); } if ($entry == 832) { $text->insert('end' , ' Texas - Houston'); } if ($entry == 903) { $text->insert('end' , ' Texas - Longview, Texarkana, Tyler'); } if ($entry == 915) { $text->insert('end' , ' Texas - Abilene, El Paso, San Angelo'); } if ($entry == 936) { $text->insert('end' , ' Texas - Center, Crockett, Huntsville, Lufkin, Navasota, Conroe, DiBoll, Liberty'); } if ($entry == 940) { $text->insert('end' , ' Texas - Denton, Wichita Falls'); } if ($entry == 956) { $text->insert('end' , ' Texas - Brownsville, Laredo, McAllen'); } if ($entry == 972) { $text->insert('end' , ' Texas - Dallas'); } if ($entry == 979) { $text->insert('end' , ' Texas - Angleton, Brenham, Clute, El Campo, Hearne, Wharton, College Station'); } if ($entry == 435) { $text->insert('end' , ' Utah - entire state except Salt Lake City, Ogden, Provo area'); } if ($entry == 801) { $text->insert('end' , ' Utah - Salt Lake City, Ogden, Provo metro area'); } if ($entry == 802) { $text->insert('end' , ' Vermont'); } if ($entry == 276) { $text->insert('end' , ' Virginia - southwestern corner of state, Marion, Wytheville, Galax'); } if ($entry == 434) { $text->insert('end' , ' Virginia - Lynchburg, Danville'); } if ($entry == 540) { $text->insert('end' , ' Virginia - Roanoke, Fredericksburg, Harrisonburg'); } if ($entry == 571) { $text->insert('end' , ' Virginia - Arlington, Alexandria, Fairfax, Falls Church (overlay w/ 703)'); } if ($entry == 703) { $text->insert('end' , ' Virginia - Arlington, Alexandria, Fairfax, Falls Church (overlay w/ 571)'); } if ($entry == 757) { $text->insert('end' , ' Virginia - Newport News, Norfolk, Virginia Beach'); } if ($entry == 804) { $text->insert('end' , ' Virginia - Richmond'); } if ($entry == 206) { $text->insert('end' , ' Washington - Seattle, Bainbridge Island'); } if ($entry == 253) { $text->insert('end' , ' Washington - Auburn, Gig Harbor, Tacoma'); } if ($entry == 360) { $text->insert('end' , ' Washington - Bellingham, Olympia, Vancouver (overlay w/ 564)'); } if ($entry == 425) { $text->insert('end' , ' Washington - Everett, Kent'); } if ($entry == 509) { $text->insert('end' , ' Washington - Spokane'); } if ($entry == 564) { $text->insert('end' , ' Washington - Bellingham, Olympia, Vancouver (overlay w/ 360)'); } if ($entry == 202) { $text->insert('end' , ' Washington D.C.'); } if ($entry == 304) { $text->insert('end' , ' West Virginia'); } if ($entry == 262) { $text->insert('end' , ' Wisconsin - Racine, Kenosha, West Bend, Hartford, Waukesha, Whitewater, Delavon'); } if ($entry == 414) { $text->insert('end' , ' Wisconsin - Milwaukee area, Brookfield, West Allis'); } if ($entry == 608) { $text->insert('end' , ' Wisconsin - Madison'); } if ($entry == 715) { $text->insert('end' , ' Wisconsin - Eau Claire, Wausau'); } if ($entry == 920) { $text->insert('end' , ' Wisconsin - Appleton, Green Bay, Sheboygan'); } if ($entry == 307) { $text->insert('end' , ' Wyoming'); } if ($entry == 403) { $text->insert('end' , ' Alberta - Calgary, southern portion of province'); } if ($entry == 780) { $text->insert('end' , ' Alberta - Edmonton, northern portion of province'); } if ($entry == 250) { $text->insert('end' , ' British Columbia - Kamloops, Kelowna, Victoria'); } if ($entry == 604) { $text->insert('end' , ' British Columbia - Vancouver'); } if ($entry == 204) { $text->insert('end' , ' Manitoba'); } if ($entry == 506) { $text->insert('end' , ' New Brunswick'); } if ($entry == 709) { $text->insert('end' , ' Newfoundland'); } if ($entry == 902) { $text->insert('end' , ' Nova Scotia/Prince Edward'); } if ($entry == 289) { $text->insert('end' , ' Ontario - Hamilton, Unionville, Woodbridge (overlay w/ 905)'); } if ($entry == 416) { $text->insert('end' , ' Ontario - Toronto (overlay w/ 647)'); } if ($entry == 519) { $text->insert('end' , ' Ontario - London, Windsor'); } if ($entry == 613) { $text->insert('end' , ' Ontario - Ottawa'); } if ($entry == 647) { $text->insert('end' , ' Ontario - Toronto (overlay w/ 416)'); } if ($entry == 705) { $text->insert('end' , ' Ontario - Sault Ste. Marie'); } if ($entry == 807) { $text->insert('end' , ' Ontario - Thunder Bay'); } if ($entry == 905) { $text->insert('end' , ' Ontario - Hamilton, Unionville, Woodbridge (overlay w/ 289)'); } if ($entry == 418) { $text->insert('end' , ' Quebec'); } if ($entry == 450) { $text->insert('end' , ' Quebec - area surrounding Montreal'); } if ($entry == 514) { $text->insert('end' , ' Quebec - Montreal'); } if ($entry == 819) { $text->insert('end' , ' Quebec - Sherbrooke, Trois Rivieres'); } if ($entry == 306) { $text->insert('end' , ' Saskatchewan'); } if ($entry == 867) { $text->insert('end' , ' Yukon/NW Territories'); } if ($entry == 800) { $text->insert('end' , ' Toll-Free'); } if ($entry == 855) { $text->insert('end' , ' Toll-Free'); } if ($entry == 866) { $text->insert('end' , ' Toll-Free'); } if ($entry == 877) { $text->insert('end' , ' Toll-Free'); } if ($entry == 880) { $text->insert('end' , ' 800 calling from Caribbean and Canada'); } if ($entry == 881) { $text->insert('end' , ' 800 calling from Caribbean and Canada'); } if ($entry == 882) { $text->insert('end' , ' 800 calling from Caribbean and Canada'); } if ($entry == 422) { $text->insert('end' , ' Well, you typed in 422(hac), so this is what you get...lol...this program was written by hacnslash on the base of Dual`s geocode C app, cheers mates!!'); } if ($entry == 888) { $text->insert('end' , ' Toll-Free'); } if ($entry == 999) { $text->insert('end' , ' ************************************* *** http://www.oldskoolphreak.com *** *************************************'); } }