/* NewEntry.cid ** ** Author: Glenn J. Schworak ** Date: 12/12/96 ** ** This script is designed to check the NEW ENTRIES that are added to ** the Black Book. If the start of the number doesn't match one of the ** listed numbers, it will be changed from the default setting to the new ** mode you specify. ** ** ** ** Create entries bellow. One for each phone number prefix you want to ** leave at the default dialing mode. Each entry must be named IGNORE.###### ** where ###### is the prefix you want to ignore. ** ** To make things a little fancier, I have made it posible to fill in the ** City and State fields. To do this, simply give the IGNORE.###### a value ** of the name of the city. See bellow... ** ** If the phone company supplies the area code even on local calls, you ** will need to include the area code as part of the prefix. For example, ** ** Phone Company Supplied: 503-399-7518 ** ** You would use entries like this... ** ** Prefix = 6 ** ** Ignore.503399 = "Salem" ** ** But if the phone company sends this: 399-7518 ** ** Prefix = 3 ** ** Ignore.399 = "Salem" */ Prefix = 6 Ignore.503399 = "Salem, Oregon" Ignore.503463 = "Salem, Oregon" Ignore.503540 = "Salem, Oregon" Ignore.503581 = "Salem, Oregon" Ignore.503868 = "Grand Island, Oregon" Ignore.503606 = "Independence/Monmouth, Oregon" Ignore.503838 = "Independence/Monmouth, Oregon" Ignore.503873 = "Silverton, Oregon" Ignore.503769 = "Stayton, Oregon" /* This next section is used to fill in the City/State field in the Black Book ** when a new entry is added. ** ** It works like the Ignore fields above. AREA is the number of digits to use ** and the value you give is the state. This list should cover all states as of ** the creation date of this program (see the top of this file). */ Area = 3 AreaDialMode = 2 AreaCode.205 = "Brmingham, Alabama" AreaCode.334 = "Montgomery, Alabama" AreaCode.907 = "Alaska" AreaCode.602 = "Pheonix, Arazona" AreaCode.520 = "Arazona" AreaCode.501 = "Arkansas" AreaCode.714 = "Anaheim, Calafornia" AreaCode.805 = "Bakersfield, Calafornia" AreaCode.619 = "Barstow, Calafornia" AreaCode.707 = "Eureka, Calafornia" AreaCode.209 = "Fresno, Calafornia" AreaCode.310 = "Long Beach, Calafornia" AreaCode.213 = "Los Angeles, Calafornia" AreaCode.562 = "California" AreaCode.209 = "Modesto, Calafornia" AreaCode.408 = "Monterey, Calafornia" AreaCode.510 = "Oakland, Calafornia" AreaCode.619 = "Palm Springs, Calafornia" AreaCode.818 = "Pasadena, Calafornia" AreaCode.909 = "Riverside/San Bernardino, Calafornia" AreaCode.916 = "Sacramento, Calafornia" AreaCode.619 = "San Diego, Calafornia" AreaCode.415 = "San Francisco, Calafornia" AreaCode.408 = "San Jose, Calafornia" AreaCode.805 = "Santa Barbara, Calafornia" AreaCode.970 = "Aspen/Durango/Grand Junction, Colorado" AreaCode.303 = "Aurora/Bolder/Denver, Colorado" AreaCode.719 = "Colorado Spr/Leadville/Pueblo, Colorado" AreaCode.203 = "Connecticut" AreaCode.860 = "Hartford, Connecticut" AreaCode.302 = "Delaware" AreaCode.202 = "Washington, DC" AreaCode.813 = "Clearwater, Florida" AreaCode.954 = "Ft. Lauderdale, Florida" AreaCode.941 = "Ft. Myers/Naples/Sarasota, Florida" AreaCode.352 = "Gainseville, Florida" AreaCode.904 = "Jacksonville/Pensacola/Tallahassee, FL" AreaCode.305 = "Key West/Miami, Florida" AreaCode.407 = "Orlando/West Palm Beach, Florida" AreaCode.813 = "St. Petersburg/Tapa, Florida" AreaCode.912 = "Albany/Savannah, Georgia" AreaCode.404 = "Atlanta, Georgia" AreaCode.770 = "Marietta/Norcross, Georgia" AreaCode.706 = "Augusta/Columbus/Rome, Georgia" AreaCode.808 = "Hawaii" AreaCode.208 = "Idaho" AreaCode.618 = "Alton/Cairo/Mt. Vernon, Illinois" AreaCode.217 = "Champaign/Springfield, Illinois" AreaCode.312 = "Chicago, Illinois" AreaCode.708 = "Elgin/Waukegan/Chicago, Illinois" AreaCode.630 = "Chicago, Illinois" AreaCode.815 = "La Salle/Rockford, Illinois" AreaCode.309 = "Rock Island, Illinois" AreaCode.812 = "Evansville, Indiana" AreaCode.219 = "Gary/Hamond/Michigan City/South Bend, IN" AreaCode.317 = "Indianapolas/Kokomo, Indiana" AreaCode.712 = "Council Bluffs/Sioux City, Iowa" AreaCode.319 = "Davenport/Dubuque, Iowa" AreaCode.515 = "Des Moines, Iowa" AreaCode.316 = "Dodge City/Wichita, Kansas" AreaCode.913 = "Lawrence/Salina/Topeka, Kansas" AreaCode.606 = "Ashland/Winshester, Kentucky" AreaCode.502 = "Frankfort/Louisville/Shelbyville, KY" AreaCode.504 = "Baton Rouge/New Orleans, Lousiana" AreaCode.318 = "Lake Charles/Shreveport, Lousiana" AreaCode.207 = "Main" AreaCode.410 = "Annapolis/Baltimore, Maryland" AreaCode.301 = "Hagerstown/Rockville, Maryland" AreaCode.617 = "Boston, Massachusetts" AreaCode.508 = "Fall River/New Bedford/Worcester, MA" AreaCode.413 = "Pittsfield/Springfield, Massachusetts" AreaCode.313 = "Ann Arbor/Dearborn/Detroit, Michigan" AreaCode.517 = "Bay City/Jackson/Lansing, Michigan" AreaCode.616 = "Battle Creek/Grand Rapids/Kalamazoo, MI" AreaCode.810 = "Flint, Michigan" AreaCode.906 = "Marquette/Sault Ste. Marie, Michigan" AreaCode.810 = "Pontiac/Southfield/Troy, Michigan" AreaCode.218 = "Duluth, Minnesota" AreaCode.320 = "St. Cloud, Minnesota" AreaCode.612 = "Minneapolis/St. Paul, Minnesota" AreaCode.507 = "Rochester, Minnesota" AreaCode.601 = "Mississippi" AreaCode.314 = "Columbia/St. Louis, Missouri" AreaCode.517 = "Jefferson City, Missouri" AreaCode.417 = "Joplin/Springfield, Missouri" AreaCode.816 = "Kansas City/St. Joseph, Missouri" AreaCode.406 = "Montana" AreaCode.402 = "Lincoln/Omaha, Nebraska" AreaCode.308 = "North Platte/Scottseluff, Nebraska" AreaCode.702 = "Nevada" AreaCode.603 = "New Hampshire" AreaCode.609 = "Atlantic City/Camden/Tremton, NJ" AreaCode.201 = "Hackensack/Jersey City/Newark, NJ" AreaCode.908 = "New Brunswick, New Jersey" AreaCode.505 = "New Mexico" AreaCode.518 = "Albany/Schenectady/Troy, New York" AreaCode.607 = "Binghamton/Elmira, New York" AreaCode.718 = "Bronx/Brooklyn/Queens/Staten Isl., NY" AreaCode.716 = "Buffalo/Niagara Falls/Rochester, NY" AreaCode.516 = "Hempstead/Long Island, New York" AreaCode.212 = "Manhattan, New York" AreaCode.914 = "Pekskill/White Planes/Yonkers, NY" AreaCode.704 = "Asheville/Charlotte, N. Carolina" AreaCode.919 = "Durham/Raeigh, N. Carolina" AreaCode.910 = "Fayetteville/Greensporo, N. Carolina" AreaCode.701 = "North Dakota" AreaCode.330 = "Akron/Canton/Youngstown, Ohio" AreaCode.513 = "Cincinnati/Dayton, Ohio" AreaCode.216 = "Cleveland/Lorain, Ohio" AreaCode.614 = "Columbus/Steubenville, Ohio" AreaCode.419 = "Toledo, Ohio" AreaCode.405 = "Enid/Oklahoma City, Oklomaha" AreaCode.918 = "Tulsa, Oklomaha" AreaCode.503 = "Oregon" AreaCode.541 = "Oregon" AreaCode.610 = "Allentown/Reading, Pennsylvania" AreaCode.814 = "Altoona/Erie, Pennsylvania" AreaCode.717 = "Harrisburg/Scranton, Pennsylvania" AreaCode.215 = "Philadelphia, Pennsylvania" AreaCode.412 = "Pitsburgh, Pennsylvania" AreaCode.401 = "Rhode Island" AreaCode.803 = "Charleston/Columbia/Florence, S Caronlina" AreaCode.864 = "Greenville/Spartanburg, S Caronlina" AreaCode.605 = "South Dakota" AreaCode.423 = "Chattanooga/Johnson City/Knoxville, TN" AreaCode.901 = "Memphis, Tennessee" AreaCode.615 = "Nashville, Tennessee" AreaCode.915 = "Abilene/El Paso, Texas" AreaCode.806 = "Amarillo/Lubbock, Texas" AreaCode.512 = "Austin/Corpus Christi, Texas" AreaCode.409 = "Beaumont/Galveston, Texas" AreaCode.210 = "Brownsville/Laredo/San Antonio, Texas" AreaCode.214 = "Dallas, Texas" AreaCode.817 = "Fort Worth/Waco, Texas" AreaCode.713 = "Houston, Texas" AreaCode.806 = "Lubbock, Texas" AreaCode.903 = "Tyler, Texas" AreaCode.801 = "Utah" AreaCode.802 = "Vermont" AreaCode.703 = "Alexandria/Arlington, Vergina" AreaCode.804 = "Charlottesville/Norfolk/Richmond, VA" AreaCode.540 = "Roanoke, Vergina" AreaCode.360 = "Olypia/Vancouver, Washington" AreaCode.206 = "Seattle/Tacoma, Washington" AreaCode.509 = "Spokane/Walla Walla/Yakima, Washington" AreaCode.304 = "West Vervina" AreaCode.715 = "Eau Clire/Wausau, Wisconsin" AreaCode.414 = "Fond du Lac/Green Bay/Milwaukee, WI" AreaCode.608 = "Madison, Wisconsin" AreaCode.307 = "Wyoming" AreaCode.403 = "Alberta - Canada" AreaCode.250 = "Prince Georg, BC - Canada" AreaCode.604 = "Vancouver, BC - Canada" AreaCode.204 = "Manitoba - Canada" AreaCode.506 = "New Brunswick - Canada" AreaCode.709 = "Newfoundland - Canada" AreaCode.902 = "Nova Scotia - Canada" AreaCode.905 = "Ontarion, ON - Canada" AreaCode.519 = "Ontarion, ON - Canada" AreaCode.705 = "Ontarion, ON - Canada" AreaCode.613 = "Ontarion, ON - Canada" AreaCode.807 = "Ontarion, ON - Canada" AreaCode.416 = "Ontarion, ON - Canada" AreaCode.902 = "Prince Edward Island - Canada" AreaCode.514 = "Monteral, Quebec - Canada" AreaCode.418 = "Quebec City, Quebec - Canada" AreaCode.306 = "Seskatchewan - Canada" AreaCode.787 = "Puerto Rico" AreaCode.242 = "Bahamas - Carribean Islands" AreaCode.246 = "Barbados - Carribean Islands" AreaCode.809 = "Carribean Islands" /* This next section is used to fill in the City/State field in the Black Book ** when a new entry is added. ** ** It works like the Ignore and AreaCode fields above. ** ** The idea here is you can give more info than listed in the AreaCode section ** alone. But the number isn't ignored. The first word in the value field is ** the dial mode (0-3) and the rest is the info to be placed in the City/State ** field. */ Prefix2 = 6 Prefix.210691 = "2 San Antonio, Texas" Prefix.503220 = "2 Portland, Oregon" Prefix.503325 = "2 Astoria, Oregon" Prefix.503328 = "2 Pine Grove, Oregon" Prefix.509773 = "2 Goldendale, Washington" /*------------------------------------------------------------------- ** ** ORDER OF OPERATION ** ** IGNORE ** PREFIX ** AREACODE ** ** If the number is not in any of these lists, it is set to the NOTFOUND ** value listed below. Once a match is found, the information is updated ** in the Black Book and the program ends without looking any farther. ** ** If the phone number is less then the value stored in MINDIGITS listed ** bellow, it will be assumed there is an error and delete that entry. */ NotFound = 3 MinDigits = 7 /* ----------=====< Change Nothing Beyond This Point >=====----------- */ options results Address CID Scratch = 0; /* Zero scratch in case of error */ BuildScratch ; Scratch = Result /* Build a memory area to work in */ GetVal 2 ; Entries = Result /* How many entries are there? */ if Scratch ~= 0 then do GetBB Entries Scratch /* Load the last entry into scratch */ GetVal 10 Scratch; Phone = Result GetVal 8 Scratch; Calls = Result if Calls>1 then do /* Exit quickly if not a new entry */ KillScratch Scratch exit end if length(Phone)40 then ln=40 PutVal 13 Scratch left(Ignore.ign,ln) PutBB Entries Scratch KillScratch Scratch Redisplay exit end pre=left(phone,prefix2) if Prefix.pre ~= 'PREFIX.'pre then do ln=length(Prefix.pre)-WordIndex(Prefix.pre,2)+1 if ln>40 then ln=40 PutVal 13 Scratch right(Prefix.pre,ln) PutVal 6 Scratch word(Prefix.pre,1) PutBB Entries Scratch KillScratch Scratch Redisplay exit end are=left(phone,Area) if AreaCode.are ~= 'AREACODE.'are then do ln=length(AreaCode.are) if ln>40 then ln=40 PutVal 13 Scratch left(AreaCode.are,ln) PutVal 6 Scratch AreaDialMode PutBB Entries Scratch KillScratch Scratch Redisplay exit end PutVal 6 Scratch NotFound KillScratch Scratch end