/*
<!-- COPYRIGHT(C) BY ROBERT J. BRIGGS APR 22, 2008. ALL RIGHTS RESERVED! //-->
*/



my_cgi_path   = "http://www.rsbriggs.com/cgi-bin/tntord.cgi";
pp_cgi_path   = "https://www.paypal.com/cgi-bin/webscr";
my_bus_email  = "tatdlace@rsbriggs.com";
my_item_name  = "TRANSITIONS IN TATTING BOOK";
my_itcode     = "TNTBK";

amt_ppca      = "32.65";
amt_ppus      = "36.40";
amt_ppin      = "42.80";
amt_maca      = "32.65";
amt_maus      = "37.55";
amt_main      = "42.80";

var LNa = 0;
var FNa = 1;
var MNa = 2;
var Str = 3;
var Apt = 4;
var Cit = 5;
var Pro = 6
var Cou = 7;
var Zip = 8;
var Ema = 9;
var Pho = 10;
var CPP = 11;
var CMA = 12;
var UPP = 13;
var UMA = 14;
var IPP = 15;
var IMA = 16;
var LST = 17;






function SendForm()
  {
    var response;
    var Field;

    if (Validate() == 0) return false;

    Field = document.orderform;

    if (Field.ma_ca.checked == 1 || Field.ma_us.checked == 1 || Field.ma_in.checked == 1)
      { 
        Field.method = "post";
        Field.action = my_cgi_path;
      }

    else
      {
        response = confirm ("YOU WILL NOW BE TAKEN TO THE\nSECURE PAYPAL WEBSITE.\n\n" +
               "THIS MAY TAKE A FEW MOMENTS!\t\n\n" +
               "PRESS OK TO CONTINUE!");

        if (!response) return false;

        Field.method = "post";
        Field.action = pp_cgi_path;
      }

    return true;
  }












function ResetForm()
  {
    var Index;
    var Field = document.orderform;

    for (Index = LNa; Index < CPP; Index++)
      Field.elements [Index].value = "";

    for (Index = CPP; Index < LST; Index++)
      Field.elements [Index].checked = 0;

    Field.elements [LNa].focus();
  }

















function Validate()
  {
    var msg1 = "CHEQUE TO BE SENT BY MAIL\n";
    var msg2 = "CHECK TO BE SENT BY MAIL\n";
    var msg3 = "INTERNATIONAL MONEY\nORDER TO BE SENT BY MAIL\n";
    var msg4 = "PAYPAL";
    var msg5 = "CANADIAN DOLLARS";
    var msg6 = "CAD";
    var msg7 = "U.S.A. DOLLARS";
    var msg8 = "USD";
    var amount;
    var currency;
    var curcode;
    var Index;
    var meth;

    fieldname = new Array ((Pho - LNa) + 1);

    fieldname[0]  = "LAST NAME";
    fieldname[1]  = "FIRST NAME";
    fieldname[2]  = "MIDDLE INITIAL";
    fieldname[3]  = "STREET NAME/NUMBER";
    fieldname[4]  = "APT NUMBER";
    fieldname[5]  = "CITY";
    fieldname[6]  = "STATE OR PROVINCE";
    fieldname[7]  = "COUNTRY NAME";
    fieldname[8]  = "ZIP OR POSTAL CODE";
    fieldname[9]  = "EMAIL ADDRESS";
    fieldname[10] = "PHONE NUMBER";


    var Field = document.orderform;

    var ppca   = (Field.pp_ca.checked == 1);
    var maca   = (Field.ma_ca.checked == 1);

    var ppus   = (Field.pp_us.checked == 1);
    var maus   = (Field.ma_us.checked == 1);

    var ppin   = (Field.pp_in.checked == 1);
    var main   = (Field.ma_in.checked == 1);

    meth = msg1;

    if (maus) meth = msg2;

    if (main) meth = msg3;
    
    if (ppca || ppus || ppin) meth = msg4;

    amount = amt_main;

    if (ppca) amount = amt_ppca;
    if (ppus) amount = amt_ppus;
    if (ppin) amount = amt_ppin;
    if (maca) amount = amt_maca;
    if (maus) amount = amt_maus;
    if (main) amount = amt_main;

    if (maus)
      {
        currency = msg7;   // USA DOLLARS
        curcode  = msg8;   // USD
      }

    else 
      {
        currency = msg5;   // CDN DOLLARS
        curcode  = msg6;   // CAD
      }

    for (Index = LNa; Index < CPP; Index++)
      {
        ptr = document.orderform.elements [Index];

        if (ptr.value == "" && Index != MNa && Index != Apt && Index != Pho)
          {
            alert ("YOU FORGOT TO ENTER YOUR\n" + fieldname [Index] + " ON THE FORM!\t");
            ptr.focus();
            return false;
          }
      }

    email = document.orderform.elements [Ema];

    if (email.value.indexOf ('@',0) == -1 || email.value.indexOf ('.',0) == -1)
      {
        alert ("THE E-MAIL FIELD REQUIRES THAT THE @ SYMBOL\t\n" +
               "AND A DOT BE USED!\n\n" +
               "PLEASE RE-ENTER YOUR E-MAIL ADDRESS!");

        email.select();
        email.focus();
        return false;
      }

    for (Index = CPP; Index < LST; Index++)
      {
        if (document.orderform.elements [Index].checked == 1) break;
      }


    if (Index >= LST)
      {
        alert("PLEASE SELECT ONE\t\nOF THE CHECKBOXES!");
        document.orderform.elements [CPP].focus();
        return false;
      }

    ok = confirm ("PLEASE CONFIRM!\n\nYOU ARE ORDERING THE:\n\n" + my_item_name + 
                  "\t\n\n$" + amount + "  " + curcode + "\n\nPAYMENT METHOD:\t\n\n" + 
                  meth + "\n\n\nIF THIS IS CORRECT CLICK OK!\t");

    if (!ok) return false;

    Populate (curcode, amount);

    return true;
  }









function SetCheck (Checkbox)
  {
    var Index, IndexItem;

    for (Index = CPP; Index < LST; Index++)
      {
        IndexItem = document.orderform.elements [Index];

        IndexItem.checked = (IndexItem == Checkbox);
      }
  }









function ShowCpyr()
  {
    var time = new Date();
    var yr = time.getYear();
    var year = yr;
    if (yr < 1900) { year = yr + 1900; }

    document.write
     ("<center>" +
      "<font color=#AA00AA face=\"Arial,Verdana,Helvetica\" size=1>" +
      "COPYRIGHT© " + year + " BY " +
      "&#083;&#072;&#065;&#082;&#079;&#078;&#032;&#066;" +
      "&#082;&#073;&#071;&#071;&#083;<br>" +
      "</font>" +
      "</center>" +
      "<br><br><br>"
     );
  }













function Populate (curcode, amount)
  {
    var form = document.orderform;

    form.cmd.value                 = "_ext-enter";
    form.redirect_cmd.value        = "_xclick";
    form.business.value            = my_bus_email;   // email address on my PayPal account
    form.undefined_quantity.value  = "0";            // 0 = not allow quantity changes
    form.item_name.value           = my_item_name;
    form.item_number.value         = my_itcode;
    form.amount.value              = amount;
    form.no_note.value             = "0";            // 0 = prompt customer for a small note
    form.currency_code.value       = curcode;
    form.no_shipping.value         = "0";            // 0 = customer is asked for shipaddr
    form.shipping.value            = "0.00";
    form.shipping2.value           = "0.00";
    form.lc.value                  = "US";           // US English,UK English,German,Japanese.
    form.state.value               = "";
    form.country_code.value        = "";
    form.night_phone_a.value       = "";
    form.night_phone_b.value       = "";
    form.night_phone_c.value       = "";

    SetCountry();

    if (!SetProvince()) SetState();

    SetCitizenship();

    SetPhone();
  }











function SetCountry()
  {
    var index, len;
    var str, ptr;
    var num = 47;
    var buf = new Array (num);

    buf[0]  = "AI Anguilla";
    buf[1]  = "AR Argentina";
    buf[2]  = "AU Australia";
    buf[3]  = "AT Austria";
    buf[4]  = "BE Belgium";
    buf[5]  = "BR Brazil";
    buf[6]  = "CA Canada";
    buf[7]  = "CL Chile";
    buf[8]  = "CN China";
    buf[9]  = "CR Costa Rica";
    buf[10] = "DK Denmark";
    buf[11] = "DO Dominican Republic";
    buf[12] = "EC Ecuador";
    buf[13] = "FI Finland";
    buf[14] = "FR France";
    buf[15] = "DE Germany";
    buf[16] = "GR Greece";
    buf[17] = "HK Hong Kong";
    buf[18] = "IS Iceland";
    buf[19] = "IN India";
    buf[20] = "IE Ireland";
    buf[21] = "IL Israel";
    buf[22] = "IT Italy";
    buf[23] = "JM Jamaica";
    buf[24] = "JP Japan";
    buf[25] = "LU Luxembourg";
    buf[26] = "MY Malaysia";
    buf[27] = "MX Mexico";
    buf[28] = "MC Monaco";
    buf[29] = "NL Netherlands";
    buf[30] = "NZ New Zealand";
    buf[31] = "NO Norway";
    buf[32] = "PT Portugal";
    buf[33] = "SG Singapore";
    buf[34] = "KR South Korea";
    buf[35] = "ES Spain";
    buf[36] = "SE Sweden";
    buf[37] = "CH Switzerland";
    buf[38] = "TH Thailand";
    buf[39] = "TW Taiwan";
    buf[40] = "TR Turkey";
    buf[41] = "GB United Kingdom";
    buf[42] = "US United States";
    buf[43] = "US USA";
    buf[44] = "US U.S.A";
    buf[45] = "UY Uruguay";
    buf[46] = "VE Venezuela";

    document.orderform.country_code.value = "";

    str = document.orderform.country.value;

    str = ShrinkString (str);

    str = str.toLowerCase();

    for (index = 0; index < num; index++)
      {
        ptr = buf[index];

        len = ptr.length - 3;

        ptr = ptr.substr (3, len);

        ptr = ptr.toLowerCase();

        if (ptr == str) break;
      }

    if (index >= num) return;

    ptr = buf[index];

    len = ptr.length - 3;

    ptr = ptr.substr (3, len);

    document.orderform.country.value = ptr;

    ptr = buf[index].substr (0,2);

    document.orderform.country_code.value = ptr;
  }











function SetProvince()
  {
    var index;
    var str, prv, ptr;
    var num = 13;
    var buf = new Array (num);

    buf[0]  = "Alberta";
    buf[1]  = "British Columbia";
    buf[2]  = "Manitoba";
    buf[3]  = "New Brunswick";
    buf[4]  = "Newfoundland";
    buf[5]  = "Nova Scotia";
    buf[6]  = "Nunavut";
    buf[7]  = "Northwest Territories";
    buf[8]  = "Ontario";
    buf[9]  = "Prince Edward Island";
    buf[10] = "Quebec";
    buf[11] = "Saskatchewan";
    buf[12] = "Yukon";

    str = document.orderform.my_state.value;

    document.orderform.state.value = str;

    str = ShrinkString (str);

    str = str.toLowerCase();

    for (index = 0; index < num; index++)
      {
        prv = buf[index];

        ptr = prv.toLowerCase();

        if (ptr == str) break;
      }

    if (index >= num) return false;

    document.orderform.state.value = prv;

    document.orderform.my_state.value = prv;

    return true;
  }














function SetState()
  {
    var index, len;
    var stp, str, ptr;
    var num = 59;
    var buf = new Array (num);

    buf[0]  = "AK ALASKA";
    buf[1]  = "AL ALABAMA";
    buf[2]  = "AR ARKANSAS";
    buf[3]  = "AS AMERICAN SAMOA";
    buf[4]  = "AZ ARIZONA";
    buf[5]  = "CA CALIFORNIA";
    buf[6]  = "CO COLORADO";
    buf[7]  = "CT CONNECTICUT";
    buf[8]  = "DC DISTRICT OF COLUMBIA";
    buf[9]  = "DE DELAWARE";
    buf[10] = "FL FLORIDA";
    buf[11] = "FM FEDERATED STATES OF MICRONESIA";
    buf[12] = "GA GEORGIA";
    buf[13] = "GU GUAM";
    buf[14] = "HI HAWAII";
    buf[15] = "IA IOWA";
    buf[16] = "ID IDAHO";
    buf[17] = "IL ILLINOIS";
    buf[18] = "IN INDIANA";
    buf[19] = "KS KANSAS";
    buf[20] = "KY KENTUCKY";
    buf[21] = "LA LOUISIANA";
    buf[22] = "MA MASSACHUSETTS";
    buf[23] = "MD MARYLAND";
    buf[24] = "ME MAINE";
    buf[25] = "MH MARSHALL ISLANDS";
    buf[26] = "MI MICHIGAN";
    buf[27] = "MN MINNESOTA";
    buf[28] = "MO MISSOURI";
    buf[29] = "MP NORTHERN MARIANA ISLANDS";
    buf[30] = "MS MISSISSIPPI";
    buf[31] = "MT MONTANA";
    buf[32] = "NC NORTH CAROLINA";
    buf[33] = "ND NORTH DAKOTA";
    buf[34] = "NE NEBRASKA";
    buf[35] = "NH NEW HAMPSHIRE";
    buf[36] = "NJ NEW JERSEY";
    buf[37] = "NM NEW MEXICO";
    buf[38] = "NV NEVADA";
    buf[39] = "NY NEW YORK";
    buf[40] = "OH OHIO";
    buf[41] = "OK OKLAHOMA";
    buf[42] = "OR OREGON";
    buf[43] = "PA PENNSYLVANIA";
    buf[44] = "PR PUERTO RICO";
    buf[45] = "PW PALAU";
    buf[46] = "RI RHODE ISLAND";
    buf[47] = "SC SOUTH CAROLINA";
    buf[48] = "SD SOUTH DAKOTA";
    buf[49] = "TN TENNESSEE";
    buf[50] = "TX TEXAS";
    buf[51] = "UT UTAH";
    buf[52] = "VA VIRGINIA";
    buf[53] = "VI VIRGIN ISLANDS";
    buf[54] = "VT VERMONT";
    buf[55] = "WA WASHINGTON";
    buf[56] = "WI WISCONSIN";
    buf[57] = "WV WEST VIRGINIA";
    buf[58] = "WY WYOMING";

    str = document.orderform.my_state.value;

    document.orderform.state.value = str;

    str = ShrinkString (str);

    str = str.toLowerCase();

    for (index = 0; index < num; index++)
      {
        ptr = buf[index];

        len = ptr.length - 3;

        stp = ptr.substr (3, len);

        ptr = stp.toLowerCase();

        if (ptr == str) break;
      }

    if (index >= num) return;

    document.orderform.my_state.value = stp;

    ptr = buf[index].substr (0,2);

    document.orderform.state.value = ptr;
  }










function SetCitizenship()
  {
    var index, len;
    var str, ptr;
    var num = 239;
    var buf = new Array (num);

    buf[0] =   "CA Canada";
    buf[1] =   "AF Afghanistan";
    buf[2] =   "AL Albania";
    buf[3] =   "DZ Algeria";
    buf[4] =   "AS American Samoa";
    buf[5] =   "AD Andorra";
    buf[6] =   "AO Angola";
    buf[7] =   "AI Anguilla";
    buf[8] =   "AQ Antarctica";
    buf[9] =   "AG Antigua";
    buf[10] =  "AR Argentina";
    buf[11] =  "AM Armenia";
    buf[12] =  "AW Aruba";
    buf[13] =  "AU Australia";
    buf[14] =  "AT Austria";
    buf[15] =  "AZ Azerbaijan";
    buf[16] =  "BS Bahamas";
    buf[17] =  "BH Bahrain";
    buf[18] =  "BD Bangladesh";
    buf[19] =  "BB Barbados";
    buf[20] =  "BY Belarus";
    buf[21] =  "BE Belgium";
    buf[22] =  "BZ Belize";
    buf[23] =  "BJ Benin";
    buf[24] =  "BM Bermuda";
    buf[25] =  "BT Bhutan";
    buf[26] =  "BO Bolivia";
    buf[27] =  "BA Bosnia and Herzegowina";
    buf[28] =  "BW Botswana";
    buf[29] =  "BV Bouvet Island";
    buf[30] =  "BR Brazil";
    buf[31] =  "IO British Indian Ocean Territory";
    buf[32] =  "BN Brunei Darussalam";
    buf[33] =  "BG Bulgaria";
    buf[34] =  "BF Burkina Faso";
    buf[35] =  "BI Burundi";
    buf[36] =  "KH Cambodia";
    buf[37] =  "CM Cameroon";
    buf[38] =  "CV Cape Verde Escudo";
    buf[39] =  "KY Cayman Islands";
    buf[40] =  "CF Central African Republic";
    buf[41] =  "TD Chad";
    buf[42] =  "CL Chile";
    buf[43] =  "CN China";
    buf[44] =  "CX Christmas Island";
    buf[45] =  "CC Cocos Islands";
    buf[46] =  "CO Colombia";
    buf[47] =  "KM Comoros";
    buf[48] =  "CD Congo Democratic Rebublic of the";
    buf[49] =  "CG Congo Rebublic of the";
    buf[50] =  "CK Cook Islands";
    buf[51] =  "CR Costa Rica";
    buf[52] =  "CI Cote D'Ivoire";
    buf[53] =  "HR Croatia";
    buf[54] =  "CU Cuba";
    buf[55] =  "AN Curacao";
    buf[56] =  "CY Cyprus";
    buf[57] =  "CZ Czech Republic";
    buf[58] =  "DK Denmark";
    buf[59] =  "DJ Djibouti";
    buf[60] =  "DM Dominica";
    buf[61] =  "DO Dominican Republic";
    buf[62] =  "TP East Timor";
    buf[63] =  "EC Ecuador";
    buf[64] =  "EG Egypt";
    buf[65] =  "SV El Salvador";
    buf[66] =  "GQ Equatorial Guinea";
    buf[67] =  "ER Eritrea";
    buf[68] =  "EE Estonia";
    buf[69] =  "ET Ethiopia";
    buf[70] =  "FK Falkland Islands";
    buf[71] =  "FO Faroe Islands";
    buf[72] =  "FJ Fiji";
    buf[73] =  "FI Finland";
    buf[74] =  "FR France";
    buf[75] =  "GF French Guiana";
    buf[76] =  "PF French Polynesia";
    buf[77] =  "TF French Southern Territories";
    buf[78] =  "GA Gabon";
    buf[79] =  "GM Gambia";
    buf[80] =  "GE Georgia";
    buf[81] =  "DE Germany";
    buf[82] =  "GH Ghana";
    buf[83] =  "GI Gibraltar";
    buf[84] =  "GR Greece";
    buf[85] =  "GL Greenland";
    buf[86] =  "GD Grenada";
    buf[87] =  "GP Guadeloupe";
    buf[88] =  "GU Guam";
    buf[89] =  "GT Guatemala";
    buf[90] =  "GN Guinea";
    buf[91] =  "GW Guinea Bissau";
    buf[92] =  "GY Guyana";
    buf[93] =  "HT Haiti";
    buf[94] =  "HM Heard and McDonald Islands";
    buf[95] =  "HN Honduras";
    buf[96] =  "HK Hong Kong";
    buf[97] =  "HU Hungary";
    buf[98] =  "IS Iceland";
    buf[99] =  "IN India";
    buf[100] = "ID Indonesia";
    buf[101] = "IR Iran";
    buf[102] = "IQ Iraq";
    buf[103] = "IE Ireland";
    buf[104] = "IL Israel";
    buf[105] = "IT Italy";
    buf[106] = "JM Jamaica";
    buf[107] = "JP Japan";
    buf[108] = "JO Jordan";
    buf[109] = "KZ Kazakhstan";
    buf[110] = "KE Kenya";
    buf[111] = "KI Kiribati";
    buf[112] = "KW Kuwait";
    buf[113] = "KG Kyrgyzstan";
    buf[114] = "LA Laos";
    buf[115] = "LV Latvia";
    buf[116] = "LB Lebanon";
    buf[117] = "LS Lesotho";
    buf[118] = "LR Liberia";
    buf[119] = "LY Libya";
    buf[120] = "LI Liechtenstein";
    buf[121] = "LT Lithuania";
    buf[122] = "LU Luxembourg";
    buf[123] = "MO Macau";
    buf[124] = "MK Macedonia";
    buf[125] = "MG Madagascar";
    buf[126] = "MW Malawi";
    buf[127] = "MY Malaysia";
    buf[128] = "MV Maldives";
    buf[129] = "ML Mali";
    buf[130] = "MT Malta";
    buf[131] = "MH Marshall Islands";
    buf[132] = "MQ Martinique";
    buf[133] = "MR Mauritania";
    buf[134] = "MU Mauritius";
    buf[135] = "YT Mayotte";
    buf[136] = "MX Mexico";
    buf[137] = "FM Micronesia Federated States of";
    buf[138] = "MD Moldova";
    buf[139] = "MC Monaco";
    buf[140] = "MN Mongolia";
    buf[141] = "MS Montserrat";
    buf[142] = "MA Morocco";
    buf[143] = "MZ Mozambique";
    buf[144] = "MM Myanmar";
    buf[145] = "NA Namibia";
    buf[146] = "NR Nauru";
    buf[147] = "NP Nepal";
    buf[148] = "NL Netherlands";
    buf[149] = "NC New Caledonia";
    buf[150] = "NZ New Zealand";
    buf[151] = "NI Nicaragua";
    buf[152] = "NE Niger";
    buf[153] = "NG Nigeria";
    buf[154] = "NU Niue";
    buf[155] = "NF Norfolk Island";
    buf[156] = "KP North Korea";
    buf[157] = "MP Northern Mariana Islands";
    buf[158] = "NO Norway";
    buf[159] = "OM Oman";
    buf[160] = "PK Pakistan";
    buf[161] = "PW Palau";
    buf[162] = "PS Palestinian Territory Occupied";
    buf[163] = "PA Panama";
    buf[164] = "PG Papua New Guinea";
    buf[165] = "PY Paraguay";
    buf[166] = "PE Peru";
    buf[167] = "PH Philippines";
    buf[168] = "PN Pitcairn";
    buf[169] = "PL Poland";
    buf[170] = "PT Portugal";
    buf[171] = "PR Puerto Rico";
    buf[172] = "QA Qatar";
    buf[173] = "RE Reunion";
    buf[174] = "RO Romania";
    buf[175] = "RU Russia";
    buf[176] = "RW Rwanda";
    buf[177] = "WS Samoa";
    buf[178] = "SM San Marino";
    buf[179] = "ST Sao Tome and Principe";
    buf[180] = "SA Saudi Arabia";
    buf[181] = "SN Senegal";
    buf[182] = "SC Seychelles";
    buf[183] = "SL Sierra Leone";
    buf[184] = "SG Singapore";
    buf[185] = "SK Slovakia";
    buf[186] = "SI Slovenia";
    buf[187] = "SB Solomon Islands";
    buf[188] = "SO Somalia";
    buf[189] = "ZA South Africa";
    buf[190] = "GS South Georgia and The South Sandwich Islands";
    buf[191] = "KR South Korea";
    buf[192] = "ES Spain";
    buf[193] = "LK Sri Lanka";
    buf[194] = "SH St. Helena";
    buf[195] = "KN St. Kitts and Nevis";
    buf[196] = "LC St. Lucia";
    buf[197] = "PM St. Pierre and Miquelon";
    buf[198] = "VC St. Vincent and The Grenadines";
    buf[199] = "SD Sudan";
    buf[200] = "SR Suriname";
    buf[201] = "SJ Svalbard and Jan Mayen Islands";
    buf[202] = "SZ Swaziland";
    buf[203] = "SE Sweden";
    buf[204] = "CH Switzerland";
    buf[205] = "SY Syria";
    buf[206] = "TW Taiwan";
    buf[207] = "TJ Tajikistan";
    buf[208] = "TZ Tanzania";
    buf[209] = "TH Thailand";
    buf[210] = "TG Togo";
    buf[211] = "TK Tokelau";
    buf[212] = "TO Tonga";
    buf[213] = "TT Trinidad and Tobago";
    buf[214] = "TN Tunisia";
    buf[215] = "TR Turkey";
    buf[216] = "TM Turkmenistan";
    buf[217] = "TC Turks and Caicos Islands";
    buf[218] = "TV Tuvalu";
    buf[219] = "UG Uganda";
    buf[220] = "UA Ukraine";
    buf[221] = "AE United Arab Emirates";
    buf[222] = "GB United Kingdom";
    buf[223] = "US United States";
    buf[224] = "UY Uruguay";
    buf[225] = "UM US Minor Outlying Islands";
    buf[226] = "UZ Uzbekistan";
    buf[227] = "VU Vanuatu";
    buf[228] = "VA Vatican City State";
    buf[229] = "VE Venezuela";
    buf[230] = "VN Viet Nam";
    buf[231] = "VG Virgin Islands (British)";
    buf[232] = "VI Virgin Islands (USA)";
    buf[233] = "WF Wallis and Futuna Islands";
    buf[234] = "EH Western Sahara";
    buf[235] = "YE Yemen";
    buf[236] = "YU Yugoslavia";
    buf[237] = "ZM Zambia";
    buf[238] = "ZW Zimbabwe";

    document.orderform.citizenship.value = "";

    str = document.orderform.country.value;

    str = ShrinkString (str);

    str = str.toLowerCase();

    for (index = 0; index < num; index++)
      {
        ptr = buf[index];

        len = ptr.length - 3;

        ptr = ptr.substr (3, len);

        ptr = ptr.toLowerCase();

        if (ptr == str) break;
      }

    if (index >= num) return;

    ptr = buf[index].substr (0,2);

    document.orderform.citizenship.value = ptr;
  }










function ShrinkString (str)
  {
    var be, en, len;

    str = str.toLowerCase();

    len = str.length;

    for (be = 0; be < len; be++) { if (str.charAt(be) != ' ') break; }

    if (be >= len) return str;

    for (en = len; en > 0; en--) { if (str.charAt (en - 1) != ' ') break; }

    if (be >= en) return str;

    else return str.substring (be, en);
  }











function SetPhone ()
  {
    var form, i, index, str;

    var doneA, nA, numA;

    var doneB, nB, numB;

    var doneC, nC, numC;

    form = document.orderform;

    str = document.orderform.phone.value;

    ShrinkString (str);

    len = str.length;

    doneA = 0; doneB = 0; doneC = 0;

    nA = 0; nB = 0; nC = 0;

    numA = ""; numB = ""; numC = "";

    for (index = len; index > 0; index--)
      {
        if (doneA && doneB && doneC) break;

        c = str.charAt (index - 1);

        if (c >= '0' && c <= '9')
          {
            if (!doneC) { numC += c; if (++nC > 3) doneC = 1; }

            else

            if (!doneB) { numB += c; if (++nB > 2) doneB = 1; }

            else

            if (!doneA) { numA += c; if (++nA > 2) doneA = 1; }
          }
      }

    if (nA != 3 || nB != 3 || nC != 4 || index > 0)
      {
        form.night_phone_a.value = str;
        form.night_phone_b.value = "";
        form.night_phone_c.value = "";
        return;
      }

    str = numA.charAt (2) + numA.charAt (1) + numA.charAt (0);
    form.night_phone_a.value = str;

    str = numB.charAt (2) + numB.charAt (1) + numB.charAt (0);
    form.night_phone_b.value = str;

    str = numC.charAt (3) + numC.charAt (2) + numC.charAt (1) + numC.charAt (0);
    form.night_phone_c.value = str;
  }