home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
busi
/
acode10.zip
/
AREACODE.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1989-10-20
|
13KB
|
296 lines
{========================================================================}
{ }
{ If you find this program useful, please support the SHAREWARE system }
{ by sending a small donation ( up to $5 ) to help with my college }
{ education. Reguardless of a donation, use the program in good health }
{ (and with a clear concious), I hope you find it useful. }
{ }
{ }
{ Send Any Replies To: EUROPA Software }
{ 314 Pleasant Meadows Dr. }
{ Gaffney, SC 29340 }
{ }
{ Program: AreaCode v.01 Last Revised: 10/26/89 }
{ }
{ Author: Jay Clary }
{ }
{ }
{ Implementation: Turbo Pascal v.4.0 & v.5.0 }
{ }
{ Purpose: To provide a quick cross reference of area code information. }
{ }
{ Usage: Interactive - AreaCode.EXE then follow the prompts }
{ }
{ Command Line - AreaCode.EXE [area code to search for] }
{ AreaCode.EXE [state abbreviation to search for] }
{ }
{ }
{========================= DISCALIMER ===============================}
{ }
{ This program is provided AS IS. EUROPA Software nor any of its }
{ employees shall be held liable for any incidental or consequential }
{ damage attributed to the use, or inability to use this product. }
{ }
{========================================================================}
{$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
{$M 1024,0,640000}
program areacode;
type acodes = record
c : integer;
a : string[2];
d : string[52];
end;
const all_codes : array[1..144] of acodes = (
( c : 201; a : 'NJ'; d : 'New Jersey (Newark, Hackensack, New Brunswick)' ),
( c : 201; a : 'NJ'; d : 'New Jersey (Patterson)' ),
( c : 202; a : 'DC'; d : 'Washington DC' ),
( c : 203; a : 'CT'; d : 'Connecticut' ),
( c : 204; a : 'CN'; d : 'Canada (Manitoba)' ),
( c : 205; a : 'AL'; d : 'Alabama' ),
( c : 206; a : 'WA'; d : 'Washington (Seattle, Olympia, Vancouver)' ),
( c : 207; a : 'ME'; d : 'Maine' ),
( c : 208; a : 'ID'; d : 'Idaho' ),
( c : 209; a : 'CA'; d : 'California (Fresno' ),
( c : 212; a : 'NY'; d : 'New York (New York City)' ),
( c : 213; a : 'CA'; d : 'California (Los Angeles)' ),
( c : 214; a : 'TX'; d : 'Texas (Dallas, Ennis, Greenville, Jefferson)' ),
( c : 214; a : 'TX'; d : 'Texas (Longview, Sherman, Tyler)' ),
( c : 215; a : 'PA'; d : 'Pennsylvania (Philadelphia, Allentown)' ),
( c : 216; a : 'OH'; d : 'Ohio (Akron, Cleveland, Youngstown)' ),
( c : 217; a : 'IL'; d : 'Illinois (Springfield)' ),
( c : 218; a : 'MN'; d : 'Minnesota (Duluth)' ),
( c : 219; a : 'IN'; d : 'Indiana (Gary, South Bend, Warsaw)' ),
( c : 301; a : 'MD'; d : 'Maryland' ),
( c : 302; a : 'DE'; d : 'Delaware' ),
( c : 303; a : 'CO'; d : 'Colorado' ),
( c : 304; a : 'WV'; d : 'West Virginia' ),
( c : 305; a : 'FL'; d : 'Florida (Miami, Key West, Ft. Lauderdale)' ),
( c : 306; a : 'CN'; d : 'Canada (Saskatchewan)' ),
( c : 307; a : 'WY'; d : 'Wyomin' ),
( c : 308; a : 'NE'; d : 'Nebraska (North Platte)' ),
( c : 309; a : 'IL'; d : 'Illinois (Peoria)' ),
( c : 312; a : 'IL'; d : 'Illinois (Chicago, Aurora, Waukegan)' ),
( c : 313; a : 'MI'; d : 'Michigan (Detroit, Ann Arbor, Flint)' ),
( c : 314; a : 'MO'; d : 'Missouri (St. Louis, Cape Girardeau, Columbia)' ),
( c : 314; a : 'MO'; d : 'Missouri (Fulton, Hannibal, Jefferson City)' ),
( c : 314; a : 'MO'; d : 'Missouri (Mexico, Poplar Bluff, Rolla)' ),
( c : 315; a : 'NY'; d : 'New York (Syracuse)' ),
( c : 316; a : 'KS'; d : 'Kansas (Wichita, Dodge City)' ),
( c : 317; a : 'IN'; d : 'Indiana (Indianapolis, Kokomo)' ),
( c : 318; a : 'LA'; d : 'Louisiana (Lake Charles)' ),
( c : 319; a : 'IA'; d : 'Iowa (Dubuque)' ),
( c : 401; a : 'RI'; d : 'Rhode Island' ),
( c : 402; a : 'NE'; d : 'Nebraska (Omaha, Lincoln)' ),
( c : 403; a : 'CN'; d : 'Canada (Alberta -- Calgary, Edmonton)' ),
( c : 404; a : 'GA'; d : 'Georgia (Atlanta, Rome)' ),
( c : 405; a : 'OK'; d : 'Oklahoma (Oklahoma City, Enid, Norman)' ),
( c : 405; a : 'OK'; d : 'Oklahoma (Ponca City, Stillwater)' ),
( c : 406; a : 'MT'; d : 'Montana' ),
( c : 408; a : 'CA'; d : 'California (San Jose)' ),
( c : 409; a : 'TX'; d : 'Texas (Bay City, Beaumont, Bryan)' ),
( c : 409; a : 'TX'; d : 'Texas (College Station, Galveston, Huntsville)' ),
( c : 412; a : 'PA'; d : 'Pennsylvania (Pittsburgh)' ),
( c : 413; a : 'MA'; d : 'Massachusetts (Springfield)' ),
( c : 414; a : 'WI'; d : 'Wisconsin (Milwaukee, Green Bay, Racine)' ),
( c : 415; a : 'CA'; d : 'California (San Francisco)' ),
( c : 416; a : 'CN'; d : 'Canada (Ontario -- Toronto, Mississauga)' ),
( c : 417; a : 'MO'; d : 'Missouri (Joplin, Springfield)' ),
( c : 418; a : 'CN'; d : 'Canada (Quebec)' ),
( c : 419; a : 'OH'; d : 'Ohio (Toledo)' ),
( c : 501; a : 'AR'; d : 'Arkansas' ),
( c : 502; a : 'KY'; d : 'Kentucky (Louisville, Frankfort)' ),
( c : 502; a : 'KY'; d : 'Kentucky (Paducah, Shelbyville)' ),
( c : 503; a : 'OR'; d : 'Oregon' ),
( c : 504; a : 'LA'; d : 'Louisiana (Baton Rouge, New Orleans)' ),
( c : 505; a : 'NM'; d : 'New Mexico' ),
( c : 506; a : 'CN'; d : 'Canada (New Brunswick -- Costa Rica)' ),
( c : 507; a : 'MN'; d : 'Minnesota (Rochester)' ),
( c : 509; a : 'WA'; d : 'Washington (Walla Walla)' ),
( c : 512; a : 'TX'; d : 'Texas (Austin, Brownsville, Corpus Christi, Del Rio)' ),
( c : 512; a : 'TX'; d : 'Texas (Eagle Pass,Laredo, McAllen, San Antonio)' ),
( c : 512; a : 'TX'; d : 'Texas (Victoria)' ),
( c : 513; a : 'OH'; d : 'Ohio (Cincinnati, Dayton)' ),
( c : 514; a : 'CN'; d : 'Canada (Quebec -- Montreal)' ),
( c : 515; a : 'IA'; d : 'Iowa (Des Moines)' ),
( c : 516; a : 'NY'; d : 'New York' ),
( c : 517; a : 'MI'; d : 'Michigan (Lansing)' ),
( c : 518; a : 'NY'; d : 'New York (Albany, Schenectady)' ),
( c : 519; a : 'CN'; d : 'Canada (Ontario -- London)' ),
( c : 601; a : 'MS'; d : 'Mississippi' ),
( c : 602; a : 'AZ'; d : 'Arizona' ),
( c : 603; a : 'NH'; d : 'New Hampshire' ),
( c : 604; a : 'CN'; d : 'Canada (British Columbia -- Vancouver)' ),
( c : 605; a : 'SD'; d : 'South Dakota' ),
( c : 606; a : 'KY'; d : 'Kentucky (Winchester)' ),
( c : 607; a : 'NY'; d : 'New York (Binghamton)' ),
( c : 608; a : 'WI'; d : 'Wisconsin (Madison)' ),
( c : 609; a : 'NJ'; d : 'New Jersey (Atlantic City, Camden, Trenton)' ),
( c : 612; a : 'MN'; d : 'Minnesota (Minneapolis, St. Paul)' ),
( c : 613; a : 'CN'; d : 'Canada (Ontario -- Ottawa)' ),
( c : 614; a : 'OH'; d : 'Ohio (Columbus)' ),
( c : 615; a : 'TN'; d : 'Tennessee (Nashville, Chattanooga)' ),
( c : 616; a : 'MI'; d : 'Michigan (Battle Creek, Grand Rapids, Kalamazoo)' ),
( c : 617; a : 'MA'; d : 'Massachusetts (Boston, New Bedford, Plymouth)' ),
( c : 617; a : 'MA'; d : 'Massachusetts (Worchester)' ),
( c : 618; a : 'IL'; d : 'Illinois (Alton, Mt. Vernon)' ),
( c : 619; a : 'CA'; d : 'California (San Diego)' ),
( c : 701; a : 'ND'; d : 'North Dakota' ),
( c : 702; a : 'NV'; d : 'Nevada' ),
( c : 703; a : 'VA'; d : 'Virginia (Roanoke, Winchester)' ),
( c : 704; a : 'NC'; d : 'North Carolina (Charlotte, Salisbury)' ),
( c : 705; a : 'CN'; d : 'Canada (West Ontario)' ),
( c : 706; a : 'MX'; d : 'Mexico (NW Mexico)' ),
( c : 707; a : 'CA'; d : 'California (Santa Rosa)' ),
( c : 709; a : 'CN'; d : 'Canada (Newfoundland)' ),
( c : 712; a : 'IA'; d : 'Iowa (Council Bluffs)' ),
( c : 713; a : 'TX'; d : 'Texas (Houston, Baytown, Pasadena)' ),
( c : 714; a : 'CA'; d : 'California (Orange)' ),
( c : 715; a : 'WI'; d : 'Wisconsin (Wausau)' ),
( c : 716; a : 'NY'; d : 'New York (Buffalo, Niagara Falls, Rochester)' ),
( c : 717; a : 'PA'; d : 'Pennsylvania (Harrisburg, Scranton)' ),
( c : 718; a : 'NY'; d : 'New York (New York City)' ),
( c : 800; a : ' '; d : 'Wide Area Telephone Service (WATS)' ),
( c : 801; a : 'UT'; d : 'Utah' ),
( c : 802; a : 'VT'; d : 'Vermont' ),
( c : 803; a : 'SC'; d : 'South Carolina' ),
( c : 804; a : 'VA'; d : 'Virginia (Charlottesville, Newport News)' ),
( c : 804; a : 'VA'; d : 'Virginia (Norfolk, Richmond)' ),
( c : 805; a : 'CA'; d : 'California (Bakersfield)' ),
( c : 806; a : 'TX'; d : 'Texas (Amarillo, Dalhart, Lubbock)' ),
( c : 807; a : 'CN'; d : 'Canada (East Ontario)' ),
( c : 809; a : 'PR'; d : 'Puerto Rico (Anguilla, Antigua, Bahamas, Barbados)' ),
( c : 809; a : 'PR'; d : 'Puerto Rico (Bermuda, Cayman Islands)' ),
( c : 809; a : 'PR'; d : 'Puerto Rico (Dominican Republic, Jamaica)' ),
( c : 809; a : 'PR'; d : 'Puerto Rico (St. Lucia, Trinidad)' ),
( c : 812; a : 'IN'; d : 'Indiana (Evansville)' ),
( c : 813; a : 'FL'; d : 'Florida (Ft. Myers, Winter Haven)' ),
( c : 814; a : 'PA'; d : 'Pennsylvania (Erie)' ),
( c : 815; a : 'IL'; d : 'Illinois (Rockford)' ),
( c : 816; a : 'MO'; d : 'Missouri (Belton, Independence, Kansas City)' ),
( c : 816; a : 'MO'; d : 'Missouri (Marshall, St. Joseph, Sedalia)' ),
( c : 817; a : 'TX'; d : 'Texas (Fort Worth, Denton, Temple)' ),
( c : 817; a : 'TX'; d : 'Texas (Waco, Wichita Falls)' ),
( c : 819; a : 'CN'; d : 'Canada (NW Quebec)' ),
( c : 901; a : 'TN'; d : 'Tennessee (Memphis)' ),
( c : 902; a : 'CN'; d : 'Canada (Nova Scotia & Prince Edward Island)' ),
( c : 904; a : 'FL'; d : 'Florida (Jacksonville)' ),
( c : 905; a : 'MX'; d : 'Mexico (Mexico City)' ),
( c : 906; a : 'MI'; d : 'Michigan (906 Escanaba)' ),
( c : 907; a : 'AK'; d : 'Alaska' ),
( c : 912; a : 'GA'; d : 'Georgia (Waycross)' ),
( c : 913; a : 'KS'; d : 'Kansas (Topeka, Lawrence, Manhattan, Salina)' ),
( c : 914; a : 'NY'; d : 'New York (White Plains)' ),
( c : 915; a : 'TX'; d : 'Texas (Abilene, Alpine, Big Spring, El Paso)' ),
( c : 915; a : 'TX'; d : 'Texas (Midland, Odessa)' ),
( c : 916; a : 'CA'; d : 'California (Sacramento)' ),
( c : 918; a : 'OK'; d : 'Oklahoma (Tulsa, Bartlesville, McAlester, Muskogee)' ),
( c : 919; a : 'NC'; d : 'North Carolina ' ) );
n1 = 'AreaCode v.01 - (c) Copyright 1989 Europa Software';
t0 = 'No Entry for ';
t1 = 'Enter the Area Code or the State Abbreviation (0 to end) : ';
t2 = 'Used By: ';
t3 = 'Area Code: ';
t4 = 'State Abbreviation: ';
var i,j,sv,y : integer;
s1 : string[80];
found : boolean;
begin
writeln;
writeln;
writeln( n1 );
repeat
if paramcount = 0 then begin
writeln;
write( t1 );
readln( s1 );
end
else s1 := paramstr(1);
for i := 1 to length(s1) do s1[i] := upcase(s1[i]);
writeln;
val( s1, sv, i );
if i = 0 then begin
if sv = 0 then exit;
writeln('Search For Area Code: ', s1 );
writeln;
i := 1;
y := 24;
found := false;
repeat
if sv = all_codes[i].c then begin
writeln( t2, all_codes[i].d );
found := true;
inc(y);
end;
inc(i);
until ( i > 144 );
if (NOT found) then writeln( t0, t3, sv );
writeln;
end
else begin
writeln('Searching Area Codes in: ', s1 );
writeln;
i := 1;
found := false;
repeat
if s1 = all_codes[i].a then begin
writeln( t3, all_codes[i].c, ' - ', all_codes[i].d );
found := true;
end;
inc(i);
until ( i > 144 );
if (NOT found) then writeln( t0, t4, s1 );
writeln;
end
until (paramcount > 0);
end.