home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1663 < prev    next >
Internet Message Format  |  1990-12-28  |  20KB
  1. From: Dan_Jacobson@ATT.COM
  2. Newsgroups: alt.sources
  3. Subject: areacode.(danj1)- North American and world areacode/place matcher
  4. Message-ID: <1990Aug12.080040.21051@cbnewse.att.com>
  5. Date: 12 Aug 90 08:00:40 GMT
  6.  
  7. #(areacode.(danj1) - part 1 of 1)
  8. #(I got to get this out to the masses before it gets too stale.)
  9. #Yes, this is Alex Dupuy's program with some enhancements.
  10.  
  11. #!/bin/sh
  12. # This is areacode.danj1, a shell archive (shar 3.32)
  13. # made 08/12/1990 07:48 UTC by Dan_Jacobson@ATT.COM
  14. # Source directory /a119/danj1/tools/telecom/areacode/src
  15. #
  16. # existing files will NOT be overwritten
  17. #
  18. # This shar contains:
  19. # length  mode       name
  20. # ------ ---------- ------------------------------------------
  21. #   1453 -rw-r--r-- areacode.1
  22. #  16315 -rwxr-xr-x areacode
  23. #
  24. if touch 2>&1 | fgrep 'amc' > /dev/null
  25.  then TOUCH=touch
  26.  else TOUCH=true
  27. fi
  28. # ============= areacode.1 ==============
  29. if test X"$1" != X"-c" -a -f 'areacode.1'; then
  30.     echo "File already exists: skipping 'areacode.1'"
  31. else
  32. echo "x - extracting areacode.1 (Text)"
  33. sed 's/^X//' << 'SHAR_EOF' > areacode.1 &&
  34. X.TH AREACODE 1 "12 August 1990"
  35. X.SH NAME
  36. Xareacode \- North American and world areacode/place matcher
  37. X.SH SYNOPSIS
  38. X.B areacode
  39. X.I pattern
  40. X.RI [ pattern ...]
  41. X.SH DESCRIPTION
  42. XGiven \fI egrep(1) pattern\fPs,
  43. X.B areacode
  44. Xsearchs a table of North American telephone area codes and
  45. Xworld country codes for matches of place names or codes.
  46. X\fIpattern\fPs
  47. Xto match names with spaces in them should be quoted: e.g., "new york".
  48. XThis program is not case-sensitive reading its input.
  49. X
  50. XThe 2 and 3 letter ISO country codes are also output on international
  51. Xmatches.
  52. X
  53. X.SH EXAMPLES
  54. XTo find the area codes for New York, simply type:
  55. X.IP
  56. X$ \fIareacode "new york"\fP
  57. X.LP
  58. Xwhereas to find the region associated with area code 708, type:
  59. X.IP
  60. X$ \fIareacode 708\fP
  61. X.LP
  62. XGabon Africa? ...
  63. X.IP
  64. X$ \fI areacode Gabon\fP
  65. X.LP
  66. XNorth & South Carolina? ...
  67. X.IP
  68. X$ \fIareacode carolina\fP
  69. X
  70. X.SH AUTHORS
  71. X
  72. XOne-time-shot additional finishing touches by Dan_Jacobson@ATT.COM to
  73. Xthe version by Alexander Dupuy (dupuy@cs.columbia.edu), who did most
  74. Xof the work here, and issues occasional updates of his version to the
  75. XTelecom Digest (USENET newsgroup: comp.dcom.telecom) and its archives.
  76. XSee the areacode shell script itself for additional comments.  [This
  77. Xis my (Dan Jacobson) first and probably final effort on this.  Contact
  78. XAlex for his current version, or better yet, read Telecom Digest to
  79. Xfind out where its archive is and look there.]
  80. X
  81. X.\" I'm no nroff pro in what I added here -Dan J.
  82. SHAR_EOF
  83. $TOUCH -am 0812015890 areacode.1 &&
  84. chmod 0644 areacode.1 ||
  85. echo "restore of areacode.1 failed"
  86. set `wc -c areacode.1`;Wc_c=$1
  87. if test "$Wc_c" != "1453"; then
  88.     echo original size 1453, current size $Wc_c
  89. fi
  90. fi
  91. # ============= areacode ==============
  92. if test X"$1" != X"-c" -a -f 'areacode'; then
  93.     echo "File already exists: skipping 'areacode'"
  94. else
  95. echo "x - extracting areacode (Text)"
  96. sed 's/^X//' << 'SHAR_EOF' > areacode &&
  97. X: #areacode, version 1990-8-12-Dan_Jacobson@ATT.COM.  Comments at bottom.
  98. Xcase $# in 0)
  99. X    cat 1>&2 << EndOfUsage
  100. X    $0: usage:
  101. X    $ `basename $0` expression [ expression ... ]
  102. X    where a "expression" consists of a place name or area/country code
  103. X    (names with spaces in them should be quoted: e.g., "new york")
  104. X    [this program is not case-sensitive reading its input]
  105. X    The expressions are egrep(1) regular expressions.
  106. XEndOfUsage
  107. X    exit 11
  108. Xesac
  109. X
  110. Xexpression="$1"; shift
  111. Xfor argument in "$@"
  112. Xdo
  113. X    expression="$expression|$argument"
  114. Xdone
  115. X
  116. X#Too bad, but still worked on my system: my egrep man page: "Egrep
  117. X#does not recognize ranges, such as [a-z], in character classes."
  118. Xexec egrep -i "$expression" << \EOF
  119. X011 [ International Access Code ]
  120. X200 [ Reserved - Service Access Code ]
  121. X201 Morristown, Newark, and Jersey City, (Northeast) New Jersey
  122. X202 Washington, District of Columbia
  123. X203 All parts of Connecticut
  124. X204 All parts of Manitoba, CANADA
  125. X205 All parts of Alabama
  126. X206 Seattle, Tacoma, and Vancouver, (Western) Washington
  127. X207 All parts of Maine
  128. X208 All parts of Idaho
  129. X209 Fresno and Stockton, (Central) California
  130. X210 * Unassigned *
  131. X211 [ Coin-operated Telephone Refunds ]
  132. X212 New York City (Manhattan and Bronx) New York
  133. X213 Los Angeles, California
  134. X214 Dallas, Texas
  135. X215 Allentown, Chester, and Philadelphia, (Southeast) Pennsylvania
  136. X216 Akron, Cleveland, Massillon, and Youngstown, (Northeast) Ohio
  137. X217 Springfield and Champaign-Urbana, (South Central) Illinois
  138. X218 Duluth, (Northern) Minnesota
  139. X219 Gary, Hammond, Fort Wayne, and South Bend, (Northern) Indiana
  140. X300 [ Reserved - Service Access Code ]
  141. X301 All parts of Maryland
  142. X302 All parts of Delaware
  143. X303 Boulder, Denver and Grand Junction, (Northern and Western) Colorado
  144. X304 All parts of West Virginia
  145. X305 Fort Lauderdale, Key West and Miami, (Southeast) Florida
  146. X306 All parts of Saskatchewan, CANADA
  147. X307 All parts of Wyoming
  148. X308 North Platte and Grand Island, (Western) Nebraska
  149. X309 Moline, Rock Island and Peoria, (West Central) Illinois
  150. X310 Parts of Los Angeles, California [214 until Spring 1992]
  151. X311 [ Reserved - Special Function ]
  152. X312 Chicago, Illinois
  153. X313 Detroit and Ann Arbor, (Eastern) Michigan
  154. X314 Saint Louis and Columbia, (Eastern) Missouri
  155. X315 Oswego, Syracuse and Utica, (North Central) New York
  156. X316 Dodge City and Wichita, (Southern) Kansas
  157. X317 Indianapolis and Kokomo, (Central) Indiana
  158. X318 Lake Charles and Shreveport, (Western) Louisiana
  159. X319 Dubuque, Cedar Rapids and Iowa City, (Eastern) Iowa
  160. X400 [ Reserved - Service Access Code ]
  161. X401 All parts of Rhode Island
  162. X402 Lincoln and Omaha, (Eastern) Nebraska
  163. X403 Alberta, Yukon Territory and (Western) Northwest Territories, CANADA
  164. X404 Atlanta and Rome, (Northern) Georgia
  165. X405 Oklahoma City, (Southern and Western) Oklahoma
  166. X406 All parts of Montana
  167. X407 Orlando, West Palm Beach, (Eastern) Florida
  168. X408 San Jose and Sunnyvale, (Central Costal) California
  169. X409 Galveston and Port Arthur, (Southeast) Texas
  170. X410 * Unassigned *
  171. X411 [ Local Directory Assistance ]
  172. X412 Pittsburgh and New Castle, (Western) Pennsylvania
  173. X413 Springfield and Pittsfield, (Western) Massachusetts
  174. X414 Green Bay, Milwaukee, and Racine, (Eastern) Wisconsin
  175. X415 Oakland and San Francisco, (Bay Area) California
  176. X416 Toronto, (South Central) Ontario, CANADA
  177. X417 Joplin and Springfield, (Southwest) Missouri
  178. X418 Quebec City, (Northeast) Quebec, CANADA
  179. X419 Toledo and Lima, (Northwest) Ohio
  180. X500 [ Reserved - Service Access Code ]
  181. X501 All parts of Arkansas
  182. X502 Louisville and Paducah, (Western) Kentucky
  183. X503 All parts of Oregon
  184. X504 Baton Rouge and New Orleans, (Eastern) Louisiana
  185. X505 All parts of New Mexico
  186. X506 All parts of New Brunswick, CANADA
  187. X507 Rochester, Austin and Winona, (Southern) Minnesota
  188. X508 Worcester, Framingham and New Bedford, (Eastern) Massachusetts
  189. X509 Spokane and Walla Walla, (Eastern) Washington
  190. X510 Oakland (East Bay Area), California [415 until Fall 1991]
  191. X511 [ Reserved - Special Function ]
  192. X512 Austin, Corpus Christi, and San Antonio, (Southern) Texas
  193. X513 Cincinnati and Dayton, (Southwest) Ohio
  194. X514 Montreal, (Southern) Quebec, CANADA
  195. X515 Des Moines and Fort Dodge, (Central) Iowa
  196. X516 Hempstead, (Long Island) New York
  197. X517 Lansing and Saginaw, (Central) Michigan
  198. X518 Albany and Schenectady, (Northeast) New York
  199. X519 London, (Southwest) Ontario, CANADA
  200. X600 [ Reserved - Service Access Code ]
  201. X601 All parts of Mississippi
  202. X602 All parts of Arizona
  203. X603 All parts of New Hampshire
  204. X604 All parts of British Columbia, CANADA
  205. X605 All parts of South Dakota
  206. X606 Ashland and Covington, (Eastern) Kentucky
  207. X607 Binghamton, Elmira and Ithaca, (South Central) New York
  208. X608 Beloit and Madison, (Southwest) Wisconsin
  209. X609 Atlantic City, Camden, and Trenton, (Southern) New Jersey
  210. X610 [Telex II (TWX) Service for CANADA]
  211. X611 [ Repair Service ]
  212. X612 Minneapolis and Saint Paul, (Central) Minnesota
  213. X613 Ottawa, (Southeast) Ontario, CANADA
  214. X614 Columbus and Zanesville, (Southeast) Ohio
  215. X615 Chattanooga and Nashville, (Eastern) Tennessee
  216. X616 Battle Creek and Grand Rapids, (Western) Michigan
  217. X617 Boston and surrounding area, (Eastern) Massachusetts
  218. X618 Alton and Centralia, (Southern) Illinois
  219. X619 San Diego and the Imperial Valley, California
  220. X700 Value Added Information Service Access Code (varies by LD carrier)
  221. X701 All parts of North Dakota
  222. X702 All parts of Nevada
  223. X703 Arlington and Roanoke, (Northern and Western) Virginia
  224. X704 Charlotte and Salisbury, (Western) North Carolina
  225. X705 North Bay, (Northern) Ontario, CANADA
  226. X706 [Formerly Tijuana, (Northwest) MEXICO equivalent to +52 6X XXX XXX]
  227. X707 Eureka, Napa, and Santa Rosa, (North Coastal) California
  228. X708 Aurora, Elgin, and Highland Park, (Northeast) Illinois
  229. X709 All parts of Newfoundland and Labrador, CANADA
  230. X710 * Unassigned *
  231. X711 [ Reserved - Special Function ]
  232. X712 Council Bluffs and Sioux City, (Western) Iowa
  233. X713 Houston and surrounding area, Texas
  234. X714 Orange County and Palm Springs, California
  235. X715 Eau Claire and Wausau, (Northern) Wisconsin
  236. X716 Buffalo, Niagara Falls, and Rochester, (Western) New York
  237. X717 Harrisburg, Pottsville and Scranton, (East Central) Pennsylvania
  238. X718 New York City (Queens, Brooklyn and Staten Island) New York
  239. X719 Colorado Springs and Pueblo, (Southeast) Colorado
  240. X800 "Toll-Free" Incoming WATS Service Access Code
  241. X801 All parts of Utah
  242. X802 All parts of Vermont
  243. X803 All parts of South Carolina
  244. X804 Charlottesville, Norfolk, and Richmond, (Southeast) Virginia
  245. X805 Bakersfield, Ventura, and Simi Valley, (South Central) California
  246. X806 Amarillo, (North Panhandle) Texas
  247. X807 Thunder Bay and Fort William, (Northwest) Ontario, CANADA
  248. X808 All parts of Hawaii
  249. X809 Bahamas, Bermuda, Puerto Rico, and the Virgin Islands
  250. X810 * Unassigned *
  251. X811 [ Reserved - Special Function ]
  252. X812 Bloomington, Evansville and Terre Haute, (Southern) Indiana
  253. X813 Fort Myers,  St. Petersburg and Tampa, (Southwest) Florida
  254. X814 Altoona and Erie, (West Central) Pennsylvania
  255. X815 Freeport, Joliet and Rockford, (Northern) Illinois
  256. X816 Kansas City and Saint Joseph, (Northwest) Missouri
  257. X817 Fort Worth, Temple, and Waco, (North Central) Texas
  258. X818 Pasadena and San Fernando (area north of Los Angeles), California
  259. X819 Hull and Sherbrooke (Western) Quebec and (Eastern) N.W. Territories, CANADA
  260. X900 Mass Calling and Value Added Information Service Access Code
  261. X901 Memphis and Jackson, (Western) Tennesee
  262. X902 All parts of Prince Edward Island and Nova Scotia, CANADA
  263. X903 Texarkana and Paris, (Northeast) Texas [214 until Fall 1991]
  264. X904 Jacksonville and Pensacola, (Northern) Florida
  265. X905 [Formerly Mexico City, (Northern) MEXICO equivalent to +52 5 XXX XXXX]
  266. X906 Sault Ste. Marie and Marquette, (Upper North) Michigan
  267. X907 All parts of Alaska
  268. X908 Elizabeth and New Brunswick (Central) New Jersey [201 until Spring 1990]
  269. X909 [ Telenet Communications Data Network ]
  270. X910 * Unassigned *
  271. X911 [ Police/Fire Emergency Service ]
  272. X912 Macon and Savannah, (Southern) Georgia
  273. X913 Salina and Topeka, (Northern) Kansas
  274. X914 New Rochelle, White Plains and Poughkeepsie, (Southern) New York
  275. X915 Abilene, El Paso and Odessa, (Western) Texas
  276. X916 Sacramento and Davis, (Northern) California
  277. X917 * Unassigned *
  278. X918 Muskogee and Tulsa, (Northeast) Oklahoma
  279. X919 Greenville, Raleigh, and Winston Salem, (Eastern) North Carolina
  280. XAfghanistan                AF    AFG    93
  281. XAlbania                    AL    ALB    355
  282. XAlgeria                    DZ    DZA    21 3
  283. XAmerican Samoa    [U.S.]            AS    ASM    684
  284. XAndorra                    AD    AND    33 628
  285. XAngola                    AO    AGO    244
  286. XAntarctica                AQ    ATA    
  287. XAntigua and Barbuda            AG    ATG    1 809
  288. XArgentina                AR    ARG    54
  289. XAruba (ex Netherlands Antilles)        ?    ?    297
  290. XAustralia                AU    AUS    61
  291. XAustria                    AT    AUT    43
  292. XBahamas                    BS    BHS    1 809
  293. XBahrain                    BH    BHR    973
  294. XBangladesh                BD    BGD    880
  295. XBarbados                BB    BRB    1 809
  296. XBelgium                    BE    BEL    32
  297. XBelize (ex British Honduras)        BZ    BLZ    501
  298. XBenin (Dahomey)                BJ    BEN    229
  299. XBermuda                    BM    BMU    1 809
  300. XBhutan                    BT    BTN    ?
  301. XBolivia                    BO    BOL    591
  302. XBotswana                BW    BWA    267
  303. XBouvet Island [Norway]            BV    BVT    ?
  304. XBrazil                    BR    BRA    55
  305. XBritish Virgin Islands            VG    VGB    1 809
  306. XBrunei Darusalaam            BN    BRN    673
  307. XBulgaria                BG    BGR    359
  308. XBurkina Faso (Upper Volta/Haute Volte)    HV    HVO    226
  309. XBurundi                    BI    BDI    257
  310. XByelorussian SSR [USSR]            BY    BYS    7
  311. XCameroon, United Republic of        CM    CMR    237
  312. XCanada                    CA    CAN    1
  313. XCanton and Enderbury Islands [?]    CT    CTE    ?
  314. XCape Verde                CV    CPV    238
  315. XCayman Islands                KY    CYM    1 809
  316. XCentral African Republic        CF    CAF    236
  317. XChad                    TD    TCD    235
  318. XChile                    CL    CHL    56
  319. XChina, People's Republic of        CN    CHN    86
  320. XChristmas Island [Australia]        CX    CXR    672
  321. XCocos Islands [Australia]        CC    CCK    672
  322. XColumbia                CO    COL    57
  323. XComoros and Mayotte Island        KM    COM    269
  324. XCongo                    CG    COG    242
  325. XCook Islands [N.Z.]            CK    COK    682
  326. XCosta Rica                CR    CRI    506
  327. XCote d'Ivoire (Ivory Coast)        CI    CIV    225
  328. XCuba                    CU    CUB    53
  329. XCuba, Guantanamo Bay US Naval Base            53 99
  330. XCyprus                    CY    CYP    357
  331. XCzechoslovakia                CS    CSK    42
  332. XDenmark                    DK    DMK    45
  333. XDiego Garcia (Br. Indian Ocean Terr.)    IO    IOT    246
  334. XDjibouti (ex Fr. Terr. Afars & Issars)    DJ    DJI    253
  335. XDominica                DM    DMA    1 809
  336. XDominican Republic            DO    DOM    1 809
  337. XDronning Maud Land (Antarctica)[Norway]    NQ    ATN    
  338. XEcuador                    EC    ECU    593
  339. XEgypt (United Arab Republic)        EG    EGY    20
  340. XEl Salvador                SV    SLV    503
  341. XEquatorial Guinea            GQ    GNQ    240
  342. XEthiopia                ET    ETH    251
  343. XFaeroe Islands [Denmark]        FO    FRO    298
  344. XFalkland Islands [U.K.]            FK    FLK    500
  345. XFiji                    FJ    FJI    679
  346. XFinland                    FI    FIN    358
  347. XFrance                    FR    FRA    33
  348. XFrench Guiana                GF    GUF    594
  349. XFrench Polynesia (Tuamotu)        PF    PYF    689
  350. XGabon                    GA    GAB    241
  351. XGambia, The                GM    GMB    220
  352. XGerman Democratic Republic (East)    DD    DDR    37
  353. XGermany, Federal Republic of (West)    DE    DEU    49
  354. XGhana                    GH    GHA    233
  355. XGibraltar                GI    GIB    350
  356. XGreece                    GR    GRC    30
  357. XGreenland [Denmark]            GL    GRL    299
  358. XGrenada                    GD    GRD    1 809
  359. XGuadeloupe (French Antilles)        GP    GLP    590
  360. XGuam [U.S.]                GU    GUM    671
  361. XGuatemala                GT    GTM    502
  362. XGuinea                    GN    GIN    224
  363. XGuinea-Bissau (ex Portuguese Guinea)    GW    GNB    245
  364. XGuyana                    GY    GUY    592
  365. XHaiti                    HT    HTI    509
  366. XHeard and McDonald Islands [U.K.]    HM    HMD    ?
  367. XHonduras                HN    HND    504
  368. XHong Kong                HK    HKG    852
  369. XHungary                    HU    HUN    36
  370. XIceland                    IS    ISL    354
  371. XIndia                    IN    IND    91
  372. XIndonesia                ID    IDN    62
  373. XIran                    IR    IRN    98
  374. XIraq                    IQ    IRQ    964
  375. XIrish Republic (Eire)            IE    IRL    353
  376. XIsrael                    IL    ISR    972
  377. XItaly                    IT    ITA    39
  378. XJamaica                    JM    JAM    1 809
  379. XJapan                    JP    JPN    81
  380. XJohnston Island    [U.S.?]            JT    JTN    ?
  381. XJordan                    JO    JOR    962
  382. XKampuchea, Democratic (Cambodia/Khmer)    KH    KHM    855
  383. XKenya                    KE    KEN    254
  384. XKerguelen and Crozet Islands [Fr.]    ?    ?    ?
  385. XKiribati Republic (Gilbert Islands)    KI    KIR    686
  386. XKorea, Dem. People's Rep. of (North)    KP    PRK    850
  387. XKorea, Republic of (South)        KR    KOR    82
  388. XKuwait                    KW    KWT    965
  389. XLao People's Democratic Republic (Laos)    LA    LAO    856
  390. XLebanon                    LB    LBN    961
  391. XLesotho                    LS    LSO    266
  392. XLiberia                    LR    LBR    231
  393. XLibyan Arab Jamahiriya            LY    LBY    21 8
  394. XLiechtenstein                LI    LIE    41 75
  395. XLuxembourg                LU    LUX    352
  396. XMacao                    MO    MAC    853
  397. XMadagascar                MG    MDG    261
  398. XMalawi                    MW    MWI    265
  399. XMalaysia                MY    MYS    60
  400. XMaldives                MV    MDV    960
  401. XMali                    ML    MLI    223
  402. XMalta                    MT    MLT    356
  403. XMarshall Islands [U.S.]            PU    PUS    692
  404. XMartinique (French Antilles)        MQ    MTQ    596
  405. XMauritania                MR    MRT    222
  406. XMauritius                MU    MUS    230
  407. XMexico                    MX    MEX    52
  408. XMicronesia, Federated States of        PU    PUS    691
  409. XMidway Islands [U.S.]            MI    MID    1 808?
  410. XMonaco                    MC    MCO    33 93
  411. XMongolia                MN    MNG    976
  412. XMontserrat                MS    MSR    1 809
  413. XMorocco                    MA    MAR    21 2
  414. XMozambique                MZ    MOZ    258
  415. XMyanmar (Burma)                BU    BUR    95
  416. XNamibia                    NA    NAM    264
  417. XNauru                    NR    NRU    674
  418. XNepal                    NP    NPL    977
  419. XNetherlands                NL    NLD    31
  420. XNetherlands Antilles            AN    ANT    599
  421. XNeutral Zone (in Arabia?)        NT    NTZ    
  422. XNew Caledonia [Fr.]            NC    NCL    687
  423. XNew Zealand                NZ    NZL    64
  424. XNicaragua                NI    NIC    505
  425. XNiger                    NE    NER    227
  426. XNigeria                    NG    NGA    234
  427. XNiue                    NU    NIU    683
  428. XNorfolk Island (Australia)        NF    NFK    672
  429. XNorthern Mariana Islands (Saipan)[U.S.]    PU    PUS    670
  430. XNorway                    NO    NOR    47
  431. XOman (Muscat and Oman)            OM    OMN    968
  432. XPacific Islands    (Miscellaneous)        PC    PCI    
  433. XPakistan                PK    PAK    92
  434. XPalau                    ?    ?    680
  435. XPanama                    PA    PAN    507
  436. XPapua New Guinea            PG    PNG    675
  437. XParaguay                PY    PRY    595
  438. XPeru                    PE    PER    51
  439. XPhilippines                PH    PHL    63
  440. XPitcairn Island [U.K.]            PN    PCN    ?
  441. XPoland                    PL    POL    48
  442. XPortugal                PT    PRT    351
  443. XPuerto Rico                PR    PRI    1 809
  444. XQatar                    QA    QAT    974
  445. XReunion (France)            RE    REU    262
  446. XRomania                    RO    ROM    40
  447. XRwandese Republic            RW    RWA    250
  448. XSaint Helena & Ascension Island [U.K.]    SH    SHN    247
  449. XSaint Kitts Nevis Anguilla        KN    KNA    1 809
  450. XSaint Lucia                LC    LCA    1 809
  451. XSaint Pierre et Miquelon (France)    PM    SPM    508
  452. XSaint Vincent and the Grenadines    VC    VCT    1 809
  453. XSan Marino                SM    SMR    39 541
  454. XSao Tome e Principe            ST    STP    239
  455. XSaudi Arabia                SA    SAU    966
  456. XSenegal                    SN    SEN    221
  457. XSeychelles                SC    SYC    248
  458. XSierra Leone                SL    SLE    232
  459. XSingapore                SG    SGP    65
  460. XSolomon Islands                SB    SLB    677
  461. XSomalia                    SO    SOM    252
  462. XSouth Africa                ZA    ZAF    27
  463. XSouth Georgia & Sandwich Islands [U.K.]    ?    ?    ?
  464. XSouth Yemen, People's Dem. Rep. of    YD    YMD    969
  465. XSpain                    ES    ESP    34
  466. XSri Lanka (Ceylon)            LK    LKA    94
  467. XSudan                    SD    SDN    249
  468. XSuriname                SR    SUR    597
  469. XSvalbard and Jan Mayen Islands [Norway]    SJ    SJM    47
  470. XSwaziland                SZ    SWZ    268
  471. XSweden                    SE    SWE    46
  472. XSwitzerland                CH    CHE    41
  473. XSyrian Arab Republic            SY    SYR    963
  474. XTaiwan (Republic of China)        TW    TWN    886
  475. XTanzania, United Rep. of (w/Zanzibar)    TZ    TZA    255
  476. XThailand                TH    THA    66
  477. XTimor, East (ex Portuguese Timor)    TP    TMP    62
  478. XTogolese Republic            TG    TGO    228
  479. XTokelau (Southern Union Islands) [N.Z.]    TK    TKL    690
  480. XTonga                    TO    TON    676
  481. XTrinidad and Tobago            TT    TTO    1 809
  482. XTunisia                    TN    TUN    21 6
  483. XTurkey                    TR    TUR    90
  484. XTurks and Caicos Islands        TC    TCA    ?
  485. XTuvalu (Ellice Islands)            TV    TUV    688
  486. XUganda                    UG    UGA    256
  487. XUkrainian SSR [USSR]            UA    UKR    7
  488. XUnion of Soviet Socialist Republics    SU    SUN    7
  489. XUnited Arab Emirates (Trucial States)    AE    ARE    971
  490. XUnited Kingdom                GB    GBR    44
  491. XUnited States                US    USA    1
  492. XUnited States Misc. Pacific Islands    PU    PUS    
  493. XUnites States Virgin Islands        VI    VIR    1 809
  494. XUruguay    (East Republic of)        UY    URY    598
  495. XVanuatu (New Hebrides)            VU    VUT    678
  496. XVatican City State (Holy See)        VA    VAT    39 66982
  497. XVenezuela                VE    VEN    58
  498. XViet Nam                VN    VNM    84
  499. XWake Island [U.S.]            WK    WAK    ?
  500. XWallis and Futuna Islands [Fr.]        WF    WLF    681
  501. XWestern Sahara (ex Spanish Sahara)    EH    ESH    21 2
  502. XWestern Samoa                WS    WSM    685
  503. XYemen Arab Republic (North)        YE    YEM    967
  504. XYugoslavia                YU    YUG    38
  505. XZaire (Congo)                ZR    ZAR    243
  506. XZambia                    ZM    ZMB    260
  507. XZanzibar (obs: use Tanzania, 255 54)            259
  508. XZimbabwe (ex Southern Rhodesia)        ZW    ZWE    263
  509. X~Int'l Marine Satellite, Atlantic Ocean            871
  510. X~Int'l Marine Satellite, Indian Ocean            873
  511. X~Int'l Marine Satellite, Pacific Ocean            872
  512. X~Reserved for national mobile purposes            878
  513. X~Reserved for national mobile purposes            879
  514. XEOF
  515. Xexit #if still going after exec, for some reason
  516. X
  517. X#This version of areacode is with one-time-shot finishing touches by
  518. X#Dan_Jacobson@ATT.COM.  Data entry, idea, most of the work, etc.
  519. X#really by Alexander Dupuy (dupuy@cs.columbia.edu).  For Alex's
  520. X#current version, and other programs like this, see USENET newsgroup
  521. X#comp.dcom.telecom (Telecom Digest) and its archives.  Please don't
  522. X#send messages to me (Dan) saying this data is out of date---I just
  523. X#used Alex's [4/1990] data.  I do have a makefile that converts Alex's
  524. X#(at least his early 1990) version to mine that will probably work for
  525. X#while, unless Alex changes his format. If interested, I'll e-mail
  526. X#that makefile to you.  My version's advantages: more general searcher
  527. X#function, searches both North America & world data (yes, prejudiced
  528. X#towards North American users).  I don't print the (confusing) ISO
  529. X#numeric country code next to the telephone country code though.  This
  530. X#is a one time enhancement to Alex's program.  I'm getting out of the
  531. X#areacode biz.  I'm hoping that Alex might adopt some of these
  532. X#enhancements.  -Dan Jacobson.
  533. SHAR_EOF
  534. $TOUCH -am 0812024890 areacode &&
  535. chmod 0755 areacode ||
  536. echo "restore of areacode failed"
  537. set `wc -c areacode`;Wc_c=$1
  538. if test "$Wc_c" != "16315"; then
  539.     echo original size 16315, current size $Wc_c
  540. fi
  541. fi
  542. exit 0
  543.