// Norbert Huser
// www.hb-yacht.ch
// n.huser@hb-yacht.ch 160107,251207,040209,100609,210411,060911,021111,271111,081211-1149
// Software Version FM2WXnn_memo.exe/.cgi 271111

  var von_breite_str = "";
  var von_breite = 0;
  var von_breite_deg = 0;
  var von_breite_min = 0;
  var von_breite_sec = 0;
  var von_laenge_str = "";
  var von_laenge = 0;
  var von_laenge_deg = 0;
  var von_laenge_min = 0;
  var von_laenge_sec = 0;
  var von_name = "";
  var von_drift_to = 0;
  var von_speed_to = 0;
  var nach_breite_str = "";
  var nach_breite = 0;
  var nach_breite_deg = 0;
  var nach_breite_min = 0;
  var nach_breite_sec = 0;
  var nach_laenge_str = "";
  var nach_laenge = 0;
  var nach_laenge_deg = 0;
  var nach_laenge_min = 0;
  var nach_laenge_sec = 0;
  var wps = 28;
  var PtrNauticObj = 0;
  var WpDir = "00"; // CGI-DIR der EXE Datei

  var BsrTabText = "<A HREF=\"#WP_1\">Top</A> <A HREF=\"#WP_9\">Down</A><BR>";
  var BsrTab = new Array(10);
  BsrTab[1] = BsrTabText + "<A HREF=\"#WP_2\">to WP2</A>";
  BsrTab[2] = BsrTabText + "<A HREF=\"#WP_3\">to WP3</A>";
  BsrTab[3] = BsrTabText + "<A HREF=\"#WP_4\">to WP4</A>";
  BsrTab[4] = BsrTabText + "<A HREF=\"#WP_5\">to WP5</A>";
  BsrTab[5] = BsrTabText + "<A HREF=\"#WP_6\">to WP6</A>";
  BsrTab[6] = BsrTabText + "<A HREF=\"#WP_7\">to WP7</A>";
  BsrTab[7] = BsrTabText + "<A HREF=\"#WP_8\">to WP8</A>";
  BsrTab[8] = BsrTabText + "<A HREF=\"#WP_9\">to WP9</A>";
  BsrTab[9] = BsrTabText + "<A HREF=\"#WP_1\">to WP1</A>";

function insert_taste(i) // To select Google Map from the WP navigation
{ return(" <IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Look at Google Map\" OnClick=\"GoEat("+i+")\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">");
}

function insert1_taste(i) // To select OpenSeaMap.ORG from the WP navigation
{ return(" <IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Look at OpenSeaMap\" OnClick=\"FrTon("+i+")\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">");
}

function ins_taste_INS(i) // INSERT at WPi
{ return(" <IMG SRC=\"to.gif\" BORDER=0 TITLE=\"INSERT WP\" OnClick=\"ZWPINS("+i+")\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">");
}

function ins_taste_DEL(i) // DELETE at WPi
{ return(" <IMG SRC=\"to.gif\" BORDER=0 TITLE=\"DELETE WP\" OnClick=\"ZWPDEL("+i+")\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">");
}

  var PI = Math.PI;
function fndsin(x){return Math.sin(x*Math.PI/180);}
function fndcos(x){return Math.cos(x*Math.PI/180);}
function fndtan(x){return Math.tan(x*Math.PI/180);}

  var pmembrt_deg = new Array(50);
  var pmembrt_min = new Array(50);
  var pmembrt_sec = new Array(50);
  var pmembrt_str = new Array(50);
  var pmemlan_deg = new Array(50);
  var pmemlan_min = new Array(50);
  var pmemlan_sec = new Array(50);
  var pmemlan_str = new Array(50);
  var pmstreamdeg = new Array(50);
  var pmstreamspd = new Array(50);
  var pmemgeo_nam = new Array(50);
  var pmem_pos = 0;

function setup_hammer()
{ // Definitionen in fmwx_scr.ini / _Nautic_Hammerfrst_1
  von_breite = 71.1, von_laenge = -23.1, von_name = "Hammerfest, Nordbanken", von_drift_to = 60, von_speed_to = 0.7;
  v_deg2min();
  v_copy(0);
  von_breite = 70.5, von_laenge = -18.0, von_name = "Vanna, Nordkappbanken", von_drift_to = 32, von_speed_to = 0.6;
  v_deg2min();
  v_copy(1);
  von_breite = 68.26, von_laenge = -12.3, von_name = "Lofoten, Outer Vestfjorden", von_drift_to = 32, von_speed_to = 0.5;
  v_deg2min();
  v_copy(2);
  von_breite = 64.86, von_laenge = -10.0, von_name = "Vikna, Traenabanken", von_drift_to = 27, von_speed_to = 0.5;
  v_deg2min();
  v_copy(3);
  von_breite = 62.0, von_laenge = -4.35, von_name = "Nordfjord, East Tampen", von_drift_to = 27, von_speed_to = 0.4;
  v_deg2min();
  v_copy(4);
  von_breite = 60.37, von_laenge = -4.5, von_name = "Bergen, N Utsira", von_drift_to = 7, von_speed_to = 0.3;
  v_deg2min();
  v_copy(5);
  von_breite = 58.7, von_laenge = -5.15, von_name = "Stavanger, S Utsira", von_drift_to = 345, von_speed_to = 0.5;
  v_deg2min();
  v_copy(6);
  von_breite = 55.53, von_laenge = -7.8, von_name = "Esbjerg, German Bight", von_drift_to = 10, von_speed_to = 0.2;
  v_deg2min();
  v_copy(7);
  von_breite = 54.0, von_laenge = -8.5, von_name = "Cuxhaven, German Bight", von_drift_to = 5, von_speed_to = 0.2;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function setup_natlantic()
{ // Definitionen in fmwx_scr.ini / _Nautic_NorthAtlantic_2
  von_breite = 49.9, von_laenge = 2.0, von_name = "Cherbourg, Portland", von_drift_to = 75, von_speed_to = 0.3;
  v_deg2min();
  v_copy(0);
  von_breite = 49.7, von_laenge = 5.8, von_name = "Lands End, Plymouth", von_drift_to = 80, von_speed_to = 0.3;
  v_deg2min();
  v_copy(1);
  von_breite = 46.1, von_laenge = 53.0, von_name = "Cape Race", von_drift_to = 70, von_speed_to = 0.4;
  v_deg2min();
  v_copy(2);
  von_breite = 44.1, von_laenge = 63.8, von_name = "Halifax, South of Nova Scotia", von_drift_to = 230, von_speed_to = 0.2;
  v_deg2min();
  v_copy(3);
  von_breite = 41.0, von_laenge = 70.9, von_name = "New York, South of New England", von_drift_to = 220, von_speed_to = 0.2;
  v_deg2min();
  v_copy(4);
  von_breite = 35.0, von_laenge = 75.0, von_name = "Cape Hatteras, Baltimore- to Hatteras Canyon", von_drift_to = 220, von_speed_to = 0.3;
  v_deg2min();
  v_copy(5);
  von_breite = 31.0, von_laenge = 80.5, von_name = "Jacksonville, Savannah to S. Augustine", von_drift_to = 50, von_speed_to = 1.4;
  v_deg2min();
  v_copy(6);
  von_breite = 26.6, von_laenge = 79.5, von_name = "West Palm Beach, Jupiter Inlet to Key Largo", von_drift_to = 355, von_speed_to = 1.4;
  v_deg2min();
  v_copy(7);
  von_breite = 24.0, von_laenge = 80.0, von_name = "Florida Street, Key Largo to Dry Tortugas", von_drift_to = 70, von_speed_to = 2.4;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function setup_kanal()
{ // Definitionen in fmwx_scr.ini / _Nautic_EUKanal_3
  von_breite = 54.0, von_laenge = -8.5, von_name = "Cuxhaven, German Bight", von_drift_to = 70, von_speed_to = 0.2;
  v_deg2min();
  v_copy(0);
  von_breite = 53.7, von_laenge = -7.0, von_name = "Norderney, German Bight", von_drift_to = 60, von_speed_to = 0.2;
  v_deg2min();
  v_copy(1);
  von_breite = 53.4, von_laenge = -5.0, von_name = "Terschelling, Humber", von_drift_to = 55, von_speed_to = 0.2;
  v_deg2min();
  v_copy(2);
  von_breite = 53.0, von_laenge = -4.5, von_name = "Den Helder, Humber", von_drift_to = 15, von_speed_to = 0.2;
  v_deg2min();
  v_copy(3);
  von_breite = 51.9, von_laenge = -3.9, von_name = "Rotterdam, Thames", von_drift_to = 15, von_speed_to = 0.2;
  v_deg2min();
  v_copy(4);
  von_breite = 51.5, von_laenge = -3.25, von_name = "Vlissingen, Thames", von_drift_to = 30, von_speed_to = 0.2;
  v_deg2min();
  v_copy(5);
  von_breite = 51.0, von_laenge = -1.5, von_name = "Dover", von_drift_to = 40, von_speed_to = 0.2;
  v_deg2min();
  v_copy(6);
  von_breite = 49.5, von_laenge = 0.1, von_name = "Le Havre, Wight", von_drift_to = 60, von_speed_to = 0.3;
  v_deg2min();
  v_copy(7);
  von_breite = 49.9, von_laenge = 2.0, von_name = "Cherbourg, Portland", von_drift_to = 65, von_speed_to = 0.3;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function setup_spanien()
{ // Definitionen in fmwx_scr.ini / _Nautic_Spanien_4
  von_breite = 49.9, von_laenge = 2.0, von_name = "Cherbourg, Wight", von_drift_to = 75, von_speed_to = 0.3;
  v_deg2min();
  v_copy(0);
  von_breite = 48.5, von_laenge = 5.5, von_name = "Brest, Plymouth", von_drift_to = 80, von_speed_to = 0.3;
  v_deg2min();
  v_copy(1);
  von_breite = 43.0, von_laenge = 9.5, von_name = "Cabo Tourinan, Finisterre", von_drift_to = 210, von_speed_to = 0.3;
  v_deg2min();
  v_copy(2);
  von_breite = 38.7, von_laenge = 9.8, von_name = "Cabo da Roca, Trafalgar", von_drift_to = 175, von_speed_to = 0.4;
  v_deg2min();
  v_copy(3);
  von_breite = 36.9, von_laenge = 9.1, von_name = "Cabo de Sao Vicente, Trafalgar", von_drift_to = 175, von_speed_to = 0.4;
  v_deg2min();
  v_copy(4);
  von_breite = 36.0, von_laenge = 5.6, von_name = "Street of Gibraltar", von_drift_to = 85, von_speed_to = 0.4;
  v_deg2min();
  v_copy(5);
  von_breite = 36.6, von_laenge = 2.2, von_name = "Cabo de Gata, Alboran", von_drift_to = 80, von_speed_to = 0.6;
  v_deg2min();
  v_copy(6);
  von_breite = 37.6, von_laenge = 0.5, von_name = "Cabo de Palos, Palos", von_drift_to = 220, von_speed_to = 0.4;
  v_deg2min();
  v_copy(7);
  von_breite = 38.73, von_laenge = -0.4, von_name = "Cabo de la Nao, Palos / Baleares", von_drift_to = 10, von_speed_to = 0.4;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function setup_italien()
{ // Definitionen in fmwx_scr.ini / _Nautic_Italien_5
  von_breite = 38.73, von_laenge = -0.4, von_name = "Cabo de la Nao, Baleares", von_drift_to = 130, von_speed_to = 0.4;
  v_deg2min();
  v_copy(0);
  von_breite = 41.92, von_laenge = -4.6, von_name = "Cabo Bagur, Lion", von_drift_to = 30, von_speed_to = 0.5;
  v_deg2min();
  v_copy(1);
  von_breite = 42.92, von_laenge = -6.2, von_name = "Iles d Hyeres, Provenze", von_drift_to = 270, von_speed_to = 0.5;
  v_deg2min();
  v_copy(2);
  von_breite = 44.2, von_laenge = -8.9, von_name = "Golfo di Genova, Ligurian Sea", von_drift_to = 270, von_speed_to = 0.6;
  v_deg2min();
  v_copy(3);
  von_breite = 43.0, von_laenge = -9.6, von_name = "Cap Corse, Sea of Corsica / North Tyrrenian", von_drift_to = 320, von_speed_to = 0.4;
  v_deg2min();
  v_copy(4);
  von_breite = 40.9, von_laenge = -9.75, von_name = "Olbia, Central Tyrrenian", von_drift_to = 230, von_speed_to = 0.4;
  v_deg2min();
  v_copy(5);
  von_breite = 40.5, von_laenge = -9.9, von_name = "Capo Comino, Central Tyrrenian", von_drift_to = 200, von_speed_to = 0.4;
  v_deg2min();
  v_copy(6);
  von_breite = 39.1, von_laenge = -9.6, von_name = "Capo Carbonara, South Tyrrenian", von_drift_to = 180, von_speed_to = 0.4;
  v_deg2min();
  v_copy(7);
  von_breite = 38.4, von_laenge = -13.4, von_name = "Palermo, South Tyrrenian", von_drift_to = 150, von_speed_to = 0.5;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function setup_nafric()
{ // Definitionen in fmwx_scr.ini / _Nautic_NorthAfrica_6
  von_breite = 36.0, von_laenge = 5.6, von_name = "Street of Gibraltar, Cadiz", von_drift_to = 90, von_speed_to = 0.6;
  v_deg2min();
  v_copy(0);
  von_breite = 35.5, von_laenge = 2.9, von_name = "Cap des trois Fourches, Alboran", von_drift_to = 80, von_speed_to = 0.5;
  v_deg2min();
  v_copy(1);
  von_breite = 36.6, von_laenge = -1.4, von_name = "Cap Tenes, Palos", von_drift_to = 70, von_speed_to = 0.5;
  v_deg2min();
  v_copy(2);
  von_breite = 37.0, von_laenge = -3.9, von_name = "Cap Bengut, Alger", von_drift_to = 80, von_speed_to = 0.5;
  v_deg2min();
  v_copy(3);
  von_breite = 37.2, von_laenge = -6.4, von_name = "Cap Bougar oun, Channel of Sardinia", von_drift_to = 90, von_speed_to = 0.5;
  v_deg2min();
  v_copy(4);
  von_breite = 37.4, von_laenge = -9.8, von_name = "Cap Blanc, Channel of Sicily", von_drift_to = 100, von_speed_to = 0.4;
  v_deg2min();
  v_copy(5);
  von_breite = 37.18, von_laenge = -11.2, von_name = "Cap Bon, Channel of Sicily", von_drift_to = 160, von_speed_to = 0.4;
  v_deg2min();
  v_copy(6);
  von_breite = 36.15, von_laenge = -14.5, von_name = "Malta, Melita", von_drift_to = 150, von_speed_to = 0.4;
  v_deg2min();
  v_copy(7);
  von_breite = 31.5, von_laenge = -32.29, von_name = "Port Said, Delta", von_drift_to = 100, von_speed_to = 0.5;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function setup_wemex()
{ // Definitionen in fmwx_scr.ini / _Nautic_WestMexico_7
  von_breite = 16.11, von_laenge = 61.16, von_name = "Guadeloupe", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(0);
  von_breite = 12.44, von_laenge = 71.74, von_name = "Punta Gallinas", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(1);
  von_breite = 9.67, von_laenge = 79.65, von_name = "Colon", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(2);
  von_breite = 8.91, von_laenge = 79.43, von_name = "Panama", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(3);
  von_breite = 7.17, von_laenge = 80.0, von_name = "Peninsula de Azuero", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(4);
  von_breite = 6.95, von_laenge = 81.88, von_name = "Isla de Coiba", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(5);
  von_breite = 18.77, von_laenge = 106.0, von_name = "Manzanillo", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(6);
  von_breite = 27.08, von_laenge = 116.0, von_name = "Punta San Pablo", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(7);
  von_breite = 32.72, von_laenge = 117.31, von_name = "San Diego", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function setup_weusa()
{ // Definitionen in fmwx_scr.ini / _Nautic_WestUSA_8
  von_breite = 32.72, von_laenge = 117.31, von_name = "San Diego, Point Conception to the Mexican border", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(0);
  von_breite = 34.2, von_laenge = 120.65, von_name = "Channel Islands, Point Conception to Guadeloupe Island", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(1);
  von_breite = 40.32, von_laenge = 124.71, von_name = "Cape Mendocino, Point Saint George to Point Arena", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(2);
  von_breite = 48.37, von_laenge = 125.0, von_name = "Cape Flattery, Cape Flattery to Cope Lookout", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(3);
  von_breite = 50.1, von_laenge = 128.16, von_name = "Cape Cook, West Coast Vancouver Island North", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(4);
  von_breite = 51.96, von_laenge = 131.84, von_name = "Cape St. James, West Coast Charlottes", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(5);
  von_breite = 53.69, von_laenge = 133.3, von_name = "Cape Knox, Dixon Entrance West", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(6);
  von_breite = 59.56, von_laenge = 140.2, von_name = "Jakutat Bay, Cape Fairweather to Cape Suckling", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(7);
  von_breite = 58.85, von_laenge = 152.17, von_name = "Barren Islands, Cape Suckling to Gore Point", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function setup_wafrika()
{ // Definitionen in fmwx_scr.ini / _Nautic_WestAfrika
  von_breite = 7.47583, von_laenge = 15.0, von_name = "", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(0);
  von_breite = 1.2883, von_laenge = 9.2346, von_name = "", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(1);
  von_breite = -3.9603, von_laenge = 4.173, von_name = "", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(2);
  von_breite = -9.313, von_laenge = -1.1873, von_name = "Angola ", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(3);
  von_breite = -14.475, von_laenge = -6.15, von_name = "Angola ", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(4);
  von_breite = -19.35116, von_laenge = -10.943, von_name = "", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(5);
  von_breite = -29.1225, von_laenge = -15.81916, von_name = "", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(6);
  von_breite = -35.7866, von_laenge = -22.24016, von_name = "", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(7);
  von_breite = -33.149, von_laenge = -27.95283, von_name = "South Africa, Weather Bureau ", von_drift_to = 0, von_speed_to = 0;
  v_deg2min();
  v_copy(8);
  wpberechnung(0);
  return;
}

function User_Memory()
{ // Definitionen in fmwx_scr.ini / _FMWX_Nautic_User-Memory_9
  pmembrt_deg[0]="00", pmembrt_min[0]="00", pmembrt_sec[0]="00", pmembrt_str[0]=" ", pmemlan_deg[0]="000", pmemlan_min[0]="00", pmemlan_sec[0]="00", pmemlan_str[0]=" ", pmstreamdeg[0]="0", pmstreamspd[0]="0", pmemgeo_nam[0]=" "+","+"  0";
  pmembrt_deg[1]="00", pmembrt_min[1]="00", pmembrt_sec[1]="00", pmembrt_str[1]=" ", pmemlan_deg[1]="000", pmemlan_min[1]="00", pmemlan_sec[1]="00", pmemlan_str[1]=" ", pmstreamdeg[1]="0", pmstreamspd[1]="0", pmemgeo_nam[1]=" "+","+"  1";
  pmembrt_deg[2]="00", pmembrt_min[2]="00", pmembrt_sec[2]="00", pmembrt_str[2]=" ", pmemlan_deg[2]="000", pmemlan_min[2]="00", pmemlan_sec[2]="00", pmemlan_str[2]=" ", pmstreamdeg[2]="0", pmstreamspd[2]="0", pmemgeo_nam[2]=" "+","+"  2";
  pmembrt_deg[3]="00", pmembrt_min[3]="00", pmembrt_sec[3]="00", pmembrt_str[3]=" ", pmemlan_deg[3]="000", pmemlan_min[3]="00", pmemlan_sec[3]="00", pmemlan_str[3]=" ", pmstreamdeg[3]="0", pmstreamspd[3]="0", pmemgeo_nam[3]=" "+","+"  3";
  pmembrt_deg[4]="00", pmembrt_min[4]="00", pmembrt_sec[4]="00", pmembrt_str[4]=" ", pmemlan_deg[4]="000", pmemlan_min[4]="00", pmemlan_sec[4]="00", pmemlan_str[4]=" ", pmstreamdeg[4]="0", pmstreamspd[4]="0", pmemgeo_nam[4]=" "+","+"  4";
  pmembrt_deg[5]="00", pmembrt_min[5]="00", pmembrt_sec[5]="00", pmembrt_str[5]=" ", pmemlan_deg[5]="000", pmemlan_min[5]="00", pmemlan_sec[5]="00", pmemlan_str[5]=" ", pmstreamdeg[5]="0", pmstreamspd[5]="0", pmemgeo_nam[5]=" "+","+"  5";
  pmembrt_deg[6]="00", pmembrt_min[6]="00", pmembrt_sec[6]="00", pmembrt_str[6]=" ", pmemlan_deg[6]="000", pmemlan_min[6]="00", pmemlan_sec[6]="00", pmemlan_str[6]=" ", pmstreamdeg[6]="0", pmstreamspd[6]="0", pmemgeo_nam[6]=" "+","+"  6";
  pmembrt_deg[7]="00", pmembrt_min[7]="00", pmembrt_sec[7]="00", pmembrt_str[7]=" ", pmemlan_deg[7]="000", pmemlan_min[7]="00", pmemlan_sec[7]="00", pmemlan_str[7]=" ", pmstreamdeg[7]="0", pmstreamspd[7]="0", pmemgeo_nam[7]=" "+","+"  7";
  pmembrt_deg[8]="00", pmembrt_min[8]="00", pmembrt_sec[8]="00", pmembrt_str[8]=" ", pmemlan_deg[8]="000", pmemlan_min[8]="00", pmemlan_sec[8]="00", pmemlan_str[8]=" ", pmstreamdeg[8]="0", pmstreamspd[8]="0", pmemgeo_nam[8]=" "+","+"  8";
  pmembrt_deg[9]="00", pmembrt_min[9]="00", pmembrt_sec[9]="00", pmembrt_str[9]=" ", pmemlan_deg[9]="000", pmemlan_min[9]="00", pmemlan_sec[9]="00", pmemlan_str[9]=" ", pmstreamdeg[9]="0", pmstreamspd[9]="0", pmemgeo_nam[9]=" "+","+"  9";
  pmembrt_deg[10]="00", pmembrt_min[10]="00", pmembrt_sec[10]="00", pmembrt_str[10]=" ", pmemlan_deg[10]="000", pmemlan_min[10]="00", pmemlan_sec[10]="00", pmemlan_str[10]=" ", pmstreamdeg[10]="0", pmstreamspd[10]="0", pmemgeo_nam[10]=" "+","+"  10";
  pmembrt_deg[11]="00", pmembrt_min[11]="00", pmembrt_sec[11]="00", pmembrt_str[11]=" ", pmemlan_deg[11]="000", pmemlan_min[11]="00", pmemlan_sec[11]="00", pmemlan_str[11]=" ", pmstreamdeg[11]="0", pmstreamspd[11]="0", pmemgeo_nam[11]=" "+","+"  11";
  pmembrt_deg[12]="00", pmembrt_min[12]="00", pmembrt_sec[12]="00", pmembrt_str[12]=" ", pmemlan_deg[12]="000", pmemlan_min[12]="00", pmemlan_sec[12]="00", pmemlan_str[12]=" ", pmstreamdeg[12]="0", pmstreamspd[12]="0", pmemgeo_nam[12]=" "+","+"  12";
  pmembrt_deg[13]="00", pmembrt_min[13]="00", pmembrt_sec[13]="00", pmembrt_str[13]=" ", pmemlan_deg[13]="000", pmemlan_min[13]="00", pmemlan_sec[13]="00", pmemlan_str[13]=" ", pmstreamdeg[13]="0", pmstreamspd[13]="0", pmemgeo_nam[13]=" "+","+"  13";
  pmembrt_deg[14]="00", pmembrt_min[14]="00", pmembrt_sec[14]="00", pmembrt_str[14]=" ", pmemlan_deg[14]="000", pmemlan_min[14]="00", pmemlan_sec[14]="00", pmemlan_str[14]=" ", pmstreamdeg[14]="0", pmstreamspd[14]="0", pmemgeo_nam[14]=" "+","+"  14";
  pmembrt_deg[15]="00", pmembrt_min[15]="00", pmembrt_sec[15]="00", pmembrt_str[15]=" ", pmemlan_deg[15]="000", pmemlan_min[15]="00", pmemlan_sec[15]="00", pmemlan_str[15]=" ", pmstreamdeg[15]="0", pmstreamspd[15]="0", pmemgeo_nam[15]=" "+","+"  15";
  pmembrt_deg[16]="00", pmembrt_min[16]="00", pmembrt_sec[16]="00", pmembrt_str[16]=" ", pmemlan_deg[16]="000", pmemlan_min[16]="00", pmemlan_sec[16]="00", pmemlan_str[16]=" ", pmstreamdeg[16]="0", pmstreamspd[16]="0", pmemgeo_nam[16]=" "+","+"  16";
  pmembrt_deg[17]="00", pmembrt_min[17]="00", pmembrt_sec[17]="00", pmembrt_str[17]=" ", pmemlan_deg[17]="000", pmemlan_min[17]="00", pmemlan_sec[17]="00", pmemlan_str[17]=" ", pmstreamdeg[17]="0", pmstreamspd[17]="0", pmemgeo_nam[17]=" "+","+"  17";
  pmembrt_deg[18]="00", pmembrt_min[18]="00", pmembrt_sec[18]="00", pmembrt_str[18]=" ", pmemlan_deg[18]="000", pmemlan_min[18]="00", pmemlan_sec[18]="00", pmemlan_str[18]=" ", pmstreamdeg[18]="0", pmstreamspd[18]="0", pmemgeo_nam[18]=" "+","+"  18";
  pmembrt_deg[19]="00", pmembrt_min[19]="00", pmembrt_sec[19]="00", pmembrt_str[19]=" ", pmemlan_deg[19]="000", pmemlan_min[19]="00", pmemlan_sec[19]="00", pmemlan_str[19]=" ", pmstreamdeg[19]="0", pmstreamspd[19]="0", pmemgeo_nam[19]=" "+","+"  19";
  pmembrt_deg[20]="00", pmembrt_min[20]="00", pmembrt_sec[20]="00", pmembrt_str[20]=" ", pmemlan_deg[20]="000", pmemlan_min[20]="00", pmemlan_sec[20]="00", pmemlan_str[20]=" ", pmstreamdeg[20]="0", pmstreamspd[20]="0", pmemgeo_nam[20]=" "+","+"  20";
  pmembrt_deg[21]="00", pmembrt_min[21]="00", pmembrt_sec[21]="00", pmembrt_str[21]=" ", pmemlan_deg[21]="000", pmemlan_min[21]="00", pmemlan_sec[21]="00", pmemlan_str[21]=" ", pmstreamdeg[21]="0", pmstreamspd[21]="0", pmemgeo_nam[21]=" "+","+"  21";
  pmembrt_deg[22]="00", pmembrt_min[22]="00", pmembrt_sec[22]="00", pmembrt_str[22]=" ", pmemlan_deg[22]="000", pmemlan_min[22]="00", pmemlan_sec[22]="00", pmemlan_str[22]=" ", pmstreamdeg[22]="0", pmstreamspd[22]="0", pmemgeo_nam[22]=" "+","+"  22";
  pmembrt_deg[23]="00", pmembrt_min[23]="00", pmembrt_sec[23]="00", pmembrt_str[23]=" ", pmemlan_deg[23]="000", pmemlan_min[23]="00", pmemlan_sec[23]="00", pmemlan_str[23]=" ", pmstreamdeg[23]="0", pmstreamspd[23]="0", pmemgeo_nam[23]=" "+","+"  23";
  pmembrt_deg[24]="00", pmembrt_min[24]="00", pmembrt_sec[24]="00", pmembrt_str[24]=" ", pmemlan_deg[24]="000", pmemlan_min[24]="00", pmemlan_sec[24]="00", pmemlan_str[24]=" ", pmstreamdeg[24]="0", pmstreamspd[24]="0", pmemgeo_nam[24]=" "+","+"  24";
  pmembrt_deg[25]="00", pmembrt_min[25]="00", pmembrt_sec[25]="00", pmembrt_str[25]=" ", pmemlan_deg[25]="000", pmemlan_min[25]="00", pmemlan_sec[25]="00", pmemlan_str[25]=" ", pmstreamdeg[25]="0", pmstreamspd[25]="0", pmemgeo_nam[25]=" "+","+"  25";
  pmembrt_deg[26]="00", pmembrt_min[26]="00", pmembrt_sec[26]="00", pmembrt_str[26]=" ", pmemlan_deg[26]="000", pmemlan_min[26]="00", pmemlan_sec[26]="00", pmemlan_str[26]=" ", pmstreamdeg[26]="0", pmstreamspd[26]="0", pmemgeo_nam[26]=" "+","+"  26";
  pmembrt_deg[27]="00", pmembrt_min[27]="00", pmembrt_sec[27]="00", pmembrt_str[27]=" ", pmemlan_deg[27]="000", pmemlan_min[27]="00", pmemlan_sec[27]="00", pmemlan_str[27]=" ", pmstreamdeg[27]="0", pmstreamspd[27]="0", pmemgeo_nam[27]=" "+","+"  27";
  pmembrt_deg[28]="00", pmembrt_min[28]="00", pmembrt_sec[28]="00", pmembrt_str[28]=" ", pmemlan_deg[28]="000", pmemlan_min[28]="00", pmemlan_sec[28]="00", pmemlan_str[28]=" ", pmstreamdeg[28]="0", pmstreamspd[28]="0", pmemgeo_nam[28]=" "+","+"  28";
  pmembrt_deg[29]="00", pmembrt_min[29]="00", pmembrt_sec[29]="00", pmembrt_str[29]=" ", pmemlan_deg[29]="000", pmemlan_min[29]="00", pmemlan_sec[29]="00", pmemlan_str[29]=" ", pmstreamdeg[29]="0", pmstreamspd[29]="0", pmemgeo_nam[29]=" "+","+"  29";
  pmembrt_deg[30]="00", pmembrt_min[30]="00", pmembrt_sec[30]="00", pmembrt_str[30]=" ", pmemlan_deg[30]="000", pmemlan_min[30]="00", pmemlan_sec[30]="00", pmemlan_str[30]=" ", pmstreamdeg[30]="0", pmstreamspd[30]="0", pmemgeo_nam[30]=" "+","+"  30";
  pmembrt_deg[31]="00", pmembrt_min[31]="00", pmembrt_sec[31]="00", pmembrt_str[31]=" ", pmemlan_deg[31]="000", pmemlan_min[31]="00", pmemlan_sec[31]="00", pmemlan_str[31]=" ", pmstreamdeg[31]="0", pmstreamspd[31]="0", pmemgeo_nam[31]=" "+","+"  31";
  pmembrt_deg[32]="00", pmembrt_min[32]="00", pmembrt_sec[32]="00", pmembrt_str[32]=" ", pmemlan_deg[32]="000", pmemlan_min[32]="00", pmemlan_sec[32]="00", pmemlan_str[32]=" ", pmstreamdeg[32]="0", pmstreamspd[32]="0", pmemgeo_nam[32]=" "+","+"  32";
  pmembrt_deg[33]="00", pmembrt_min[33]="00", pmembrt_sec[33]="00", pmembrt_str[33]=" ", pmemlan_deg[33]="000", pmemlan_min[33]="00", pmemlan_sec[33]="00", pmemlan_str[33]=" ", pmstreamdeg[33]="0", pmstreamspd[33]="0", pmemgeo_nam[33]=" "+","+"  33";
  pmembrt_deg[34]="00", pmembrt_min[34]="00", pmembrt_sec[34]="00", pmembrt_str[34]=" ", pmemlan_deg[34]="000", pmemlan_min[34]="00", pmemlan_sec[34]="00", pmemlan_str[34]=" ", pmstreamdeg[34]="0", pmstreamspd[34]="0", pmemgeo_nam[34]=" "+","+"  34";
  pmembrt_deg[35]="00", pmembrt_min[35]="00", pmembrt_sec[35]="00", pmembrt_str[35]=" ", pmemlan_deg[35]="000", pmemlan_min[35]="00", pmemlan_sec[35]="00", pmemlan_str[35]=" ", pmstreamdeg[35]="0", pmstreamspd[35]="0", pmemgeo_nam[35]=" "+","+"  35";
  pmembrt_deg[36]="00", pmembrt_min[36]="00", pmembrt_sec[36]="00", pmembrt_str[36]=" ", pmemlan_deg[36]="000", pmemlan_min[36]="00", pmemlan_sec[36]="00", pmemlan_str[36]=" ", pmstreamdeg[36]="0", pmstreamspd[36]="0", pmemgeo_nam[36]=" "+","+"  36";
  pmembrt_deg[37]="00", pmembrt_min[37]="00", pmembrt_sec[37]="00", pmembrt_str[37]=" ", pmemlan_deg[37]="000", pmemlan_min[37]="00", pmemlan_sec[37]="00", pmemlan_str[37]=" ", pmstreamdeg[37]="0", pmstreamspd[37]="0", pmemgeo_nam[37]=" "+","+"  37";
  pmembrt_deg[38]="00", pmembrt_min[38]="00", pmembrt_sec[38]="00", pmembrt_str[38]=" ", pmemlan_deg[38]="000", pmemlan_min[38]="00", pmemlan_sec[38]="00", pmemlan_str[38]=" ", pmstreamdeg[38]="0", pmstreamspd[38]="0", pmemgeo_nam[38]=" "+","+"  38";
  pmembrt_deg[39]="00", pmembrt_min[39]="00", pmembrt_sec[39]="00", pmembrt_str[39]=" ", pmemlan_deg[39]="000", pmemlan_min[39]="00", pmemlan_sec[39]="00", pmemlan_str[39]=" ", pmstreamdeg[39]="0", pmstreamspd[39]="0", pmemgeo_nam[39]=" "+","+"  39";
  pmembrt_deg[40]="00", pmembrt_min[40]="00", pmembrt_sec[40]="00", pmembrt_str[40]=" ", pmemlan_deg[40]="000", pmemlan_min[40]="00", pmemlan_sec[40]="00", pmemlan_str[40]=" ", pmstreamdeg[40]="0", pmstreamspd[40]="0", pmemgeo_nam[40]=" "+","+"  40";
  pmembrt_deg[41]="00", pmembrt_min[41]="00", pmembrt_sec[41]="00", pmembrt_str[41]=" ", pmemlan_deg[41]="000", pmemlan_min[41]="00", pmemlan_sec[41]="00", pmemlan_str[41]=" ", pmstreamdeg[41]="0", pmstreamspd[41]="0", pmemgeo_nam[41]=" "+","+"  41";
  pmembrt_deg[42]="00", pmembrt_min[42]="00", pmembrt_sec[42]="00", pmembrt_str[42]=" ", pmemlan_deg[42]="000", pmemlan_min[42]="00", pmemlan_sec[42]="00", pmemlan_str[42]=" ", pmstreamdeg[42]="0", pmstreamspd[42]="0", pmemgeo_nam[42]=" "+","+"  42";
  pmembrt_deg[43]="00", pmembrt_min[43]="00", pmembrt_sec[43]="00", pmembrt_str[43]=" ", pmemlan_deg[43]="000", pmemlan_min[43]="00", pmemlan_sec[43]="00", pmemlan_str[43]=" ", pmstreamdeg[43]="0", pmstreamspd[43]="0", pmemgeo_nam[43]=" "+","+"  43";
  pmembrt_deg[44]="00", pmembrt_min[44]="00", pmembrt_sec[44]="00", pmembrt_str[44]=" ", pmemlan_deg[44]="000", pmemlan_min[44]="00", pmemlan_sec[44]="00", pmemlan_str[44]=" ", pmstreamdeg[44]="0", pmstreamspd[44]="0", pmemgeo_nam[44]=" "+","+"  44";
  pmembrt_deg[45]="00", pmembrt_min[45]="00", pmembrt_sec[45]="00", pmembrt_str[45]=" ", pmemlan_deg[45]="000", pmemlan_min[45]="00", pmemlan_sec[45]="00", pmemlan_str[45]=" ", pmstreamdeg[45]="0", pmstreamspd[45]="0", pmemgeo_nam[45]=" "+","+"  45";
  pmembrt_deg[46]="00", pmembrt_min[46]="00", pmembrt_sec[46]="00", pmembrt_str[46]=" ", pmemlan_deg[46]="000", pmemlan_min[46]="00", pmemlan_sec[46]="00", pmemlan_str[46]=" ", pmstreamdeg[46]="0", pmstreamspd[46]="0", pmemgeo_nam[46]=" "+","+"  46";
  pmembrt_deg[47]="00", pmembrt_min[47]="00", pmembrt_sec[47]="00", pmembrt_str[47]=" ", pmemlan_deg[47]="000", pmemlan_min[47]="00", pmemlan_sec[47]="00", pmemlan_str[47]=" ", pmstreamdeg[47]="0", pmstreamspd[47]="0", pmemgeo_nam[47]=" "+","+"  47";
  pmembrt_deg[48]="00", pmembrt_min[48]="00", pmembrt_sec[48]="00", pmembrt_str[48]=" ", pmemlan_deg[48]="000", pmemlan_min[48]="00", pmemlan_sec[48]="00", pmemlan_str[48]=" ", pmstreamdeg[48]="0", pmstreamspd[48]="0", pmemgeo_nam[48]=" "+","+"  48";
  pmembrt_deg[49]="00", pmembrt_min[49]="00", pmembrt_sec[49]="00", pmembrt_str[49]=" ", pmemlan_deg[49]="000", pmemlan_min[49]="00", pmemlan_sec[49]="00", pmemlan_str[49]=" ", pmstreamdeg[49]="0", pmstreamspd[49]="0", pmemgeo_nam[49]=" "+","+"  49";
  return;
}

  var NMemPls = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"WP-Page Plus\" OnClick=\"WPPPLS(\'Plus\')\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var NMemMin = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"WP-Page Minus\" OnClick=\"WPPMNS(\'Minus\')\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var NMemIns = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"WayPoint Insert\" OnClick=\"MemIns()\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var NMemDel = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"WayPPont Delete\" OnClick=\"MemDel()\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";

  var ExcelRDO = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Radio Memory to Excel\" OnClick=\"runExcelRadioMem()\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var ExcelNTC = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Nautic Memory to Excel\" OnClick=\"runExcelNauticMem()\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var ExcelToRDO = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Excel to Radio Memory\" OnClick=\"runExcelToRadioMem()\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var ExcelToNTC = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Excel to Nautic Memory\" OnClick=\"runExcelToNauticMem()\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var NauticObjPlus = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"+1 Nautic Memory Zeile\" OnClick=\"AddHBYTabNauticObj()\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var NauticObjMinus = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"-1 Nautic Memory Zeile\" OnClick=\"DecHBYTabNauticObj()\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";

  var NMailHB = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Send E-Mail to set WP-Page default\" OnClick=\"WPMAIL(\'HBY\')\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";
  var XMailHB = "<IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Send E-Mail to set X-Ref default\" OnClick=\"INIMailText(\'HBY\')\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">";

var NcNr = 0;
function NauticObjekt (NcNr)    // Konstruktor Region
{ this.Regio = interface_map_gmdss[NcNr]; // Region,
  this.AreaK = interface_map_gmdss[1+NcNr];
  this.KuFSt = interface_map_gmdss[2+NcNr];
  this.KMMSI = interface_map_gmdss[3+NcNr];
  this.ChDSC = interface_map_gmdss[4+NcNr];
  this.CHVos = interface_map_gmdss[5+NcNr];
  this.NetAd = interface_map_gmdss[6+NcNr];
  this.MailA = interface_map_gmdss[7+NcNr];
  this.TelNr = interface_map_gmdss[8+NcNr];
}

var RadioData = new NauticObjekt(NcNr);

function ReadNauticObjekt (NcNr)
{ var lcNcNr = NcNr * 9;
  var Rem = 8;
  RadioData.Regio = interface_map_gmdss[1+lcNcNr+Rem];
  RadioData.AreaK = interface_map_gmdss[2+lcNcNr+Rem];
  RadioData.KuFSt = interface_map_gmdss[3+lcNcNr+Rem];
  RadioData.KMMSI = interface_map_gmdss[4+lcNcNr+Rem];
  RadioData.ChDSC = interface_map_gmdss[5+lcNcNr+Rem];
  RadioData.CHVos = interface_map_gmdss[6+lcNcNr+Rem];
  RadioData.NetAd = interface_map_gmdss[7+lcNcNr+Rem];
  RadioData.MailA = interface_map_gmdss[8+lcNcNr+Rem];
  RadioData.TelNr = interface_map_gmdss[9+lcNcNr+Rem];
  return;
}

function WriteNauticObjekt (NcNr)
{ var lcNcNr = NcNr * 9;
  var Rem = 8;
  interface_map_gmdss[1+lcNcNr+Rem] = RadioData.Regio;
  interface_map_gmdss[2+lcNcNr+Rem] = RadioData.AreaK;
  interface_map_gmdss[3+lcNcNr+Rem] = RadioData.KuFSt;
  interface_map_gmdss[4+lcNcNr+Rem] = RadioData.KMMSI;
  interface_map_gmdss[5+lcNcNr+Rem] = RadioData.ChDSC;
  interface_map_gmdss[6+lcNcNr+Rem] = RadioData.CHVos;
  interface_map_gmdss[7+lcNcNr+Rem] = RadioData.NetAd;
  interface_map_gmdss[8+lcNcNr+Rem] = RadioData.MailA;
  interface_map_gmdss[9+lcNcNr+Rem] = RadioData.TelNr;
  return;
}

function runExcelRadioMem()
{ var Excel;     // new Objekt
  var RadioBook; // ExcelInhalt
  var i = 0;
  Excel = new ActiveXObject("Excel.Application"); // Create the Excel application object.
  Excel.Visible = true;                           // Make Excel visible.
  RadioBook = Excel.Workbooks.Add();              // Create a new work book.
  for(i=1; i < parseInt(interface_map_gmdss.length/9); i++)
  { ReadNauticObjekt (i);
    RadioBook.ActiveSheet.Cells(i,1).Value = RadioData.Regio;
    RadioBook.ActiveSheet.Cells(i,2).Value = RadioData.AreaK;
    RadioBook.ActiveSheet.Cells(i,3).Value = RadioData.KuFSt;
    RadioBook.ActiveSheet.Cells(i,4).Value = RadioData.KMMSI;
    RadioBook.ActiveSheet.Cells(i,5).Value = RadioData.ChDSC;
    RadioBook.ActiveSheet.Cells(i,6).Value = RadioData.CHVos;
    RadioBook.ActiveSheet.Cells(i,7).Value = RadioData.NetAd;
    RadioBook.ActiveSheet.Cells(i,8).Value = RadioData.MailA;
    RadioBook.ActiveSheet.Cells(i,9).Value = RadioData.TelNr;
  }
  i = i + 3;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[0];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[0].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 0";
  RadioBook.ActiveSheet.Cells(i,6).Value = "BRT_D";
  RadioBook.ActiveSheet.Cells(i,7).Value = BRT_D;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&BRTD=UNSIG_INT GPS-Breite";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[1];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[1].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 1";
  RadioBook.ActiveSheet.Cells(i,6).Value = "BRT_M";
  RadioBook.ActiveSheet.Cells(i,7).Value = BRT_M;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&BRTM=UNSIG_FLOAT GPS-Breite";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[2];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[2].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 2";
  RadioBook.ActiveSheet.Cells(i,6).Value = "BRT_S";
  RadioBook.ActiveSheet.Cells(i,7).Value = BRT_S;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&BRTS=CHAR NSns GPS-Breite";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[3];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[3].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 3";
  RadioBook.ActiveSheet.Cells(i,6).Value = "LAN_D";
  RadioBook.ActiveSheet.Cells(i,7).Value = LAN_D;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LAND=UNSIG_INT GPS-Laenge";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[4];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[4].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 4";
  RadioBook.ActiveSheet.Cells(i,6).Value = "LAN_M";
  RadioBook.ActiveSheet.Cells(i,7).Value = LAN_M;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LANM=UNSIG_FLOAT GPS-Laenge";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[5];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[5].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 5";
  RadioBook.ActiveSheet.Cells(i,6).Value = "LAN_S";
  RadioBook.ActiveSheet.Cells(i,7).Value = LAN_S;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LANS=CHAR EWew GPS-Laenge";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[6];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[6].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 6";
  RadioBook.ActiveSheet.Cells(i,6).Value = "LVL_M";
  RadioBook.ActiveSheet.Cells(i,7).Value = LVL_M;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LVGM=FLOAT";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[7];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[7].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 7";
  RadioBook.ActiveSheet.Cells(i,6).Value = "LVL_S";
  RadioBook.ActiveSheet.Cells(i,7).Value = LVL_S;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LVLS=CHAR M";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[8];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[8].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 8";
  RadioBook.ActiveSheet.Cells(i,6).Value = "LVG_M";
  RadioBook.ActiveSheet.Cells(i,7).Value = LVG_M;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LVLM=FLOAT WGS84";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[9];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[9].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 9";
  RadioBook.ActiveSheet.Cells(i,6).Value = "LVG_S";
  RadioBook.ActiveSheet.Cells(i,7).Value = LVG_S;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LVGS=CHAR M";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[10];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[10].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 10";
  RadioBook.ActiveSheet.Cells(i,6).Value = "UT_ST";
  RadioBook.ActiveSheet.Cells(i,7).Value = UT_ST;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&UTST=INT UTC Stunde";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[11];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[11].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 11";
  RadioBook.ActiveSheet.Cells(i,6).Value = "UT_MI";
  RadioBook.ActiveSheet.Cells(i,7).Value = UT_MI;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&UTMI=INT UTC Minute";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[12];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[12].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 12";
  RadioBook.ActiveSheet.Cells(i,6).Value = "UT_SE";
  RadioBook.ActiveSheet.Cells(i,7).Value = UT_SE;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&UTSE=INT UTC Sekunde";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[13];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[13].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 13";
  RadioBook.ActiveSheet.Cells(i,6).Value = "U_TAG";
  RadioBook.ActiveSheet.Cells(i,7).Value = U_TAG;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&UTAG=INT UTC Tag";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[14] + " (remout_qth)";
  RadioBook.ActiveSheet.Cells(i,2).Value = remout_qth;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "U_MON";
  RadioBook.ActiveSheet.Cells(i,7).Value = U_MON;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&UMON=INT UTC Monat";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[15] + " (gps_sim_time)";
  RadioBook.ActiveSheet.Cells(i,2).Value = gps_sim_time;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "U_JAH";
  RadioBook.ActiveSheet.Cells(i,7).Value = U_JAH;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&UJAH=INT UTC Jahr";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[16] + " (MMSI)";
  RadioBook.ActiveSheet.Cells(i,2).Value = MMSI;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "SP_KN";
  RadioBook.ActiveSheet.Cells(i,7).Value = SP_KN;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&SPKN=FLOAT Geschwindigkeit";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[17];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[14].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 14";
  RadioBook.ActiveSheet.Cells(i,6).Value = "SP_KH";
  RadioBook.ActiveSheet.Cells(i,7).Value = SP_KH;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&SPKH=FLOAT Geschwindigkeit";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[18];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[15].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 15";
  RadioBook.ActiveSheet.Cells(i,6).Value = "DKT_D";
  RadioBook.ActiveSheet.Cells(i,7).Value = DKT_D;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&DKTD=FLOAT true Kurs";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = RemoteControlSet[19];
  RadioBook.ActiveSheet.Cells(i,2).Value = document.radiogmdss[16].value;
  RadioBook.ActiveSheet.Cells(i,3).Value = "RS-Feld 16";
  RadioBook.ActiveSheet.Cells(i,6).Value = "DKM_D";
  RadioBook.ActiveSheet.Cells(i,7).Value = DKM_D;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&DKMD= magnetischer Kurs";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = "RSGPS";
  RadioBook.ActiveSheet.Cells(i,2).Value = RSGPS;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "MAD_D";
  RadioBook.ActiveSheet.Cells(i,7).Value = MAD_D;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&MADD=";
  i++;
  RadioBook.ActiveSheet.Cells(i,6).Value = "MAD_S";
  RadioBook.ActiveSheet.Cells(i,7).Value = MAD_S;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&MADS=";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = "Region";
  RadioBook.ActiveSheet.Cells(i,2).Value = Region;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "MODUS";
  RadioBook.ActiveSheet.Cells(i,7).Value = MODUS;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&MODU=TEXT GPS Modus";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = "Klasse";
  RadioBook.ActiveSheet.Cells(i,2).Value = Klasse;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "BRT_F";
  RadioBook.ActiveSheet.Cells(i,7).Value = BRT_F;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&BRTF=SIG_FLOAT GPS-Breite";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = "Call";
  RadioBook.ActiveSheet.Cells(i,2).Value = Call;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "LAN_F";
  RadioBook.ActiveSheet.Cells(i,7).Value = LAN_F;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LANF=SIG_FLOAT GPS-Laenge";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = "EMailAdr";
  RadioBook.ActiveSheet.Cells(i,2).Value = EMailAdr;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "SEA_T";
  RadioBook.ActiveSheet.Cells(i,7).Value = SEA_T;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&SEAT=TEXT Region mit WMO";
  i++;
  RadioBook.ActiveSheet.Cells(i,1).Value = "Name";
  RadioBook.ActiveSheet.Cells(i,2).Value = Name;
  RadioBook.ActiveSheet.Cells(i,3).Value = "Variable";
  RadioBook.ActiveSheet.Cells(i,6).Value = "G_RST";
  RadioBook.ActiveSheet.Cells(i,7).Value = G_RST;
  RadioBook.ActiveSheet.Cells(i,8).Value = "Region fuer RadioSim";
  i++;
  RadioBook.ActiveSheet.Cells(i,6).Value = "LNK_T";
  RadioBook.ActiveSheet.Cells(i,7).Value = LNK_T;
  RadioBook.ActiveSheet.Cells(i,8).Value = "&LNKT=TEXT not used";
  RadioBook.ActiveSheet.Columns.AutoFit();
  return (RadioBook);
}

function runExcelNauticMem()
{ var Excel; // new Objekt
  var Book;  // ExcelInhalt
  var i = 0;
  Excel = new ActiveXObject("Excel.Application"); // Create the Excel application object.
  Excel.Visible = true;                           // Make Excel visible.
  Book = Excel.Workbooks.Add();                   // Create a new work book.
  for(i=0; i < 50; i++)
  { Book.ActiveSheet.Cells(i+1,1).Value = pmembrt_deg[i];
    Book.ActiveSheet.Cells(i+1,2).Value = pmembrt_min[i];
    Book.ActiveSheet.Cells(i+1,3).Value = pmembrt_sec[i];
    Book.ActiveSheet.Cells(i+1,4).Value = pmembrt_str[i];
    Book.ActiveSheet.Cells(i+1,5).Value = pmemlan_deg[i];
    Book.ActiveSheet.Cells(i+1,6).Value = pmemlan_min[i];
    Book.ActiveSheet.Cells(i+1,7).Value = pmemlan_sec[i];
    Book.ActiveSheet.Cells(i+1,8).Value = pmemlan_str[i];
    Book.ActiveSheet.Cells(i+1,9).Value = pmstreamdeg[i];
    Book.ActiveSheet.Cells(i+1,10).Value = pmstreamspd[i];
    Book.ActiveSheet.Cells(i+1,11).Value = pmemgeo_nam[i];
    if (pmembrt_str[i].charAt(0)=='N') Book.ActiveSheet.Cells(i+1,12).Value = String(parseFloat(pmembrt_deg[i])+parseFloat(pmembrt_min[i])/60+parseFloat(pmembrt_sec[i])/3600);
    if (pmemlan_str[i].charAt(0)=='W') Book.ActiveSheet.Cells(i+1,13).Value = String(parseFloat(pmemlan_deg[i])+parseFloat(pmemlan_min[i])/60+parseFloat(pmemlan_sec[i])/3600);
    if (pmembrt_str[i].charAt(0)=='S') Book.ActiveSheet.Cells(i+1,12).Value = String(-1.0 * (parseFloat(pmembrt_deg[i])+parseFloat(pmembrt_min[i])/60+parseFloat(pmembrt_sec[i])/3600));
    if (pmemlan_str[i].charAt(0)=='E') Book.ActiveSheet.Cells(i+1,13).Value = String(-1.0 * (parseFloat(pmemlan_deg[i])+parseFloat(pmemlan_min[i])/60+parseFloat(pmemlan_sec[i])/3600));
    if (pmembrt_str[i].charAt(0)=='n') Book.ActiveSheet.Cells(i+1,12).Value = String(parseFloat(pmembrt_deg[i])+parseFloat(pmembrt_min[i])/60+parseFloat(pmembrt_sec[i])/3600);
    if (pmemlan_str[i].charAt(0)=='w') Book.ActiveSheet.Cells(i+1,13).Value = String(parseFloat(pmemlan_deg[i])+parseFloat(pmemlan_min[i])/60+parseFloat(pmemlan_sec[i])/3600);
    if (pmembrt_str[i].charAt(0)=='s') Book.ActiveSheet.Cells(i+1,12).Value = String(-1.0 * (parseFloat(pmembrt_deg[i])+parseFloat(pmembrt_min[i])/60+parseFloat(pmembrt_sec[i])/3600));
    if (pmemlan_str[i].charAt(0)=='e') Book.ActiveSheet.Cells(i+1,13).Value = String(-1.0 * (parseFloat(pmemlan_deg[i])+parseFloat(pmemlan_min[i])/60+parseFloat(pmemlan_sec[i])/3600));
  }
  i = 0;
  for(i=1; i < 19; i++)
  { Book.ActiveSheet.Cells(i+3,15).Value = "wdev_" + String(37-i);
    Book.ActiveSheet.Cells(i+3,16).Value = wdev[i-1];
    Book.ActiveSheet.Cells(i+3,17).Value = edev[i-1];
    Book.ActiveSheet.Cells(i+3,18).Value = "edev_" + String(i);
  }
  Book.ActiveSheet.Columns.AutoFit();
  return (Book);
}

function runExcelToRadioMem()
{ var i = 0; // Applikation oeffnen und Felder nach Nautic Mem
  var excApp;
  var excFile = "HBYRadio.xlsx";
  alert (excFile);
  if (window.XMLHttpRequest) excApp = new XMLHttpRequest();
  if (window.ActiveXObject) excApp = new ActiveXObject("Excel.Application"); // Im root von Excel
  excApp.visible = true;
  var excBook = excApp.Workbooks.open(excFile);
  for(i=1; i < 235; i++) // Struktur vorgegeben
  { RadioData.Regio = String(excBook.ActiveSheet.Cells(i+1,1).Value);
    RadioData.AreaK = String(excBook.ActiveSheet.Cells(i+1,2).Value);
    RadioData.KuFSt = String(excBook.ActiveSheet.Cells(i+1,3).Value);
    RadioData.KMMSI = String(excBook.ActiveSheet.Cells(i+1,4).Value);
    RadioData.ChDSC = String(excBook.ActiveSheet.Cells(i+1,5).Value);
    RadioData.CHVos = String(excBook.ActiveSheet.Cells(i+1,6).Value);
    RadioData.NetAd = String(excBook.ActiveSheet.Cells(i+1,7).Value);
    RadioData.MailA = String(excBook.ActiveSheet.Cells(i+1,8).Value);
    RadioData.TelNr = String(excBook.ActiveSheet.Cells(i+1,9).Value);
    WriteNauticObjekt (i);
  }
  i = 240; // ----- DEFINED by runExcelRadioMem(); -----
  RemoteControlSet[0] = String(excBook.ActiveSheet.Cells(i,1).Value);
  document.radiogmdss[0].value = String(excBook.ActiveSheet.Cells(i,2).Value);
  BRT_D = parseInt(excBook.ActiveSheet.Cells(i,7).Value);
  RemoteControlSet[1] = String(excBook.ActiveSheet.Cells(i+1,1).Value);
  document.radiogmdss[1].value = String(excBook.ActiveSheet.Cells(i+1,2).Value);
  BRT_M = parseFloat(excBook.ActiveSheet.Cells(i+1,7).Value);
  RemoteControlSet[2] = String(excBook.ActiveSheet.Cells(i+2,1).Value);
  document.radiogmdss[2].value = String(excBook.ActiveSheet.Cells(i+2,2).Value);
  BRT_S = String(excBook.ActiveSheet.Cells(i+2,7).Value);
  RemoteControlSet[3] = String(excBook.ActiveSheet.Cells(i+3,1).Value);
  document.radiogmdss[3].value = String(excBook.ActiveSheet.Cells(i+3,2).Value);
  LAN_D = parseInt(excBook.ActiveSheet.Cells(i+3,7).Value);
  RemoteControlSet[4] = String(excBook.ActiveSheet.Cells(i+4,1).Value);
  document.radiogmdss[4].value = String(excBook.ActiveSheet.Cells(i+4,2).Value);
  LAN_M = parseFloat(excBook.ActiveSheet.Cells(i+4,7).Value);
  RemoteControlSet[5] = String(excBook.ActiveSheet.Cells(i+5,1).Value);
  document.radiogmdss[5].value = String(excBook.ActiveSheet.Cells(i+5,2).Value);
  LAN_S = String(excBook.ActiveSheet.Cells(i+5,7).Value);
  RemoteControlSet[6] = String(excBook.ActiveSheet.Cells(i+6,1).Value);
  document.radiogmdss[6].value = String(excBook.ActiveSheet.Cells(i+6,2).Value);
  LVL_M = parseFloat(excBook.ActiveSheet.Cells(i+6,7).Value);
  RemoteControlSet[7] = String(excBook.ActiveSheet.Cells(i+7,1).Value);
  document.radiogmdss[7].value = String(excBook.ActiveSheet.Cells(i+7,2).Value);
  LVL_S = String(excBook.ActiveSheet.Cells(i+7,7).Value);
  RemoteControlSet[8] = String(excBook.ActiveSheet.Cells(i+8,1).Value);
  document.radiogmdss[8].value = String(excBook.ActiveSheet.Cells(i+8,2).Value);
  LVG_M = parseFloat(excBook.ActiveSheet.Cells(i+8,7).Value);
  RemoteControlSet[9] = String(excBook.ActiveSheet.Cells(i+9,1).Value);
  document.radiogmdss[9].value = String(excBook.ActiveSheet.Cells(i+9,2).Value);
  LVG_S = String(excBook.ActiveSheet.Cells(i+9,7).Value);
  RemoteControlSet[10] = String(excBook.ActiveSheet.Cells(i+10,1).Value);
  document.radiogmdss[10].value = String(excBook.ActiveSheet.Cells(i+10,2).Value);
  UT_ST = parseInt(excBook.ActiveSheet.Cells(i+10,7).Value);
  RemoteControlSet[11] = String(excBook.ActiveSheet.Cells(i+11,1).Value);
  document.radiogmdss[11].value = String(excBook.ActiveSheet.Cells(i+11,2).Value);
  UT_MI = parseInt(excBook.ActiveSheet.Cells(i+11,7).Value);
  RemoteControlSet[12] = String(excBook.ActiveSheet.Cells(i+12,1).Value);
  document.radiogmdss[12].value = String(excBook.ActiveSheet.Cells(i+12,2).Value);
  UT_SE = parseInt(excBook.ActiveSheet.Cells(i+12,7).Value);
  RemoteControlSet[13] = String(excBook.ActiveSheet.Cells(i+13,1).Value);
  document.radiogmdss[13].value = String(excBook.ActiveSheet.Cells(i+13,2).Value);
  U_TAG = parseInt(excBook.ActiveSheet.Cells(i+13,7).Value);
  RemoteControlSet[14] = String(excBook.ActiveSheet.Cells(i+14,1).Value);
  remout_qth = String(excBook.ActiveSheet.Cells(i+14,2).Value);
  U_MON = parseInt(excBook.ActiveSheet.Cells(i+14,7).Value);
  RemoteControlSet[15] = String(excBook.ActiveSheet.Cells(i+15,1).Value);
  gps_sim_time = String(excBook.ActiveSheet.Cells(i+15,2).Value);
  U_JAH = parseInt(excBook.ActiveSheet.Cells(i+15,7).Value);
  RemoteControlSet[16] = String(excBook.ActiveSheet.Cells(i+16,1).Value);
  MMSI = String(excBook.ActiveSheet.Cells(i+16,2).Value);
  SP_KN = parseFloat(excBook.ActiveSheet.Cells(i+16,7).Value);
  RemoteControlSet[17] = String(excBook.ActiveSheet.Cells(i+17,1).Value);
  document.radiogmdss[14].value = String(excBook.ActiveSheet.Cells(i+17,2).Value);
  SP_KH = parseFloat(excBook.ActiveSheet.Cells(i+17,7).Value);
  RemoteControlSet[18] = String(excBook.ActiveSheet.Cells(i+18,1).Value);
  document.radiogmdss[15].value = String(excBook.ActiveSheet.Cells(i+18,2).Value);
  DKT_D = parseFloat(excBook.ActiveSheet.Cells(i+18,7).Value);
  RemoteControlSet[19] = String(excBook.ActiveSheet.Cells(i+19,1).Value);
  document.radiogmdss[16].value = String(excBook.ActiveSheet.Cells(i+19,2).Value);
  DKM_D = parseFloat(excBook.ActiveSheet.Cells(i+19,7).Value);
  RSGPS = parseInt(excBook.ActiveSheet.Cells(i+20,2).Value);
  MAD_D = parseFloat(excBook.ActiveSheet.Cells(i+20,7).Value);
  MAD_S = parseFloat(excBook.ActiveSheet.Cells(i+21,7).Value);
  Region = String(excBook.ActiveSheet.Cells(i+22,2).Value);
  MODUS = parseFloat(excBook.ActiveSheet.Cells(i+22,7).Value);
  Klasse = String(excBook.ActiveSheet.Cells(i+23,2).Value);
  BRT_F = parseFloat(excBook.ActiveSheet.Cells(i+23,7).Value);
  Call = String(excBook.ActiveSheet.Cells(i+24,2).Value);
  LAN_F = parseFloat(excBook.ActiveSheet.Cells(i+24,7).Value);
  EMailAdr = String(excBook.ActiveSheet.Cells(i+25,2).Value);
  SEA_T = String(excBook.ActiveSheet.Cells(i+25,7).Value);
  Name = String(excBook.ActiveSheet.Cells(i+26,2).Value);
  G_RST = String(excBook.ActiveSheet.Cells(i+26,7).Value);
  LNK_T = String(excBook.ActiveSheet.Cells(i+27,7).Value);
  excBook.ActiveSheet.Columns.AutoFit();
  alert ("Ready");
  return;
}

function runExcelToNauticMem()
{ var i = 0; // Applikation oeffnen und Felder nach Nautic Mem
  var excApp;
  var excFile = "HBYNautic.xlsx";
  alert (excFile);
  if (window.XMLHttpRequest) excApp = new XMLHttpRequest();
  if (window.ActiveXObject) excApp = new ActiveXObject("Excel.Application"); // Im root von Excel
  excApp.visible = true;
  var excBook = excApp.Workbooks.open(excFile);
  for(i=0; i < 9; i++) // 9 Wegpunkte ueberschreiben
  { document.waypoint[i*11].value = String(excBook.ActiveSheet.Cells(i+1,1).Value);
    document.waypoint[i*11+1].value = String(excBook.ActiveSheet.Cells(i+1,2).Value);
    document.waypoint[i*11+2].value = String(excBook.ActiveSheet.Cells(i+1,3).Value);
    document.waypoint[i*11+3].value = String(excBook.ActiveSheet.Cells(i+1,4).Value);
    document.waypoint[i*11+4].value = String(excBook.ActiveSheet.Cells(i+1,5).Value);
    document.waypoint[i*11+5].value = String(excBook.ActiveSheet.Cells(i+1,6).Value);
    document.waypoint[i*11+6].value = String(excBook.ActiveSheet.Cells(i+1,7).Value);
    document.waypoint[i*11+7].value = String(excBook.ActiveSheet.Cells(i+1,8).Value);
    document.waypoint[i*11+8].value = String(excBook.ActiveSheet.Cells(i+1,9).Value);
    document.waypoint[i*11+9].value = String(excBook.ActiveSheet.Cells(i+1,10).Value);
    document.waypoint[i*11+10].value = String(excBook.ActiveSheet.Cells(i+1,11).Value);
  }
  i= 0;
  for(i=0; i < 50; i++) // 50 Position Speicher ueberschreiben
  { pmembrt_deg[i] = String(excBook.ActiveSheet.Cells(i+1,1).Value);
    pmembrt_min[i] = String(excBook.ActiveSheet.Cells(i+1,2).Value);
    pmembrt_sec[i] = String(excBook.ActiveSheet.Cells(i+1,3).Value);
    pmembrt_str[i] = String(excBook.ActiveSheet.Cells(i+1,4).Value);
    pmemlan_deg[i] = String(excBook.ActiveSheet.Cells(i+1,5).Value);
    pmemlan_min[i] = String(excBook.ActiveSheet.Cells(i+1,6).Value);
    pmemlan_sec[i] = String(excBook.ActiveSheet.Cells(i+1,7).Value);
    pmemlan_str[i] = String(excBook.ActiveSheet.Cells(i+1,8).Value);
    pmstreamdeg[i] = String(excBook.ActiveSheet.Cells(i+1,9).Value);
    pmstreamspd[i] = String(excBook.ActiveSheet.Cells(i+1,10).Value);
    pmemgeo_nam[i] = String(excBook.ActiveSheet.Cells(i+1,11).Value);
  }
  i = 1;
  for(i=1; i < 19; i++)
  { wdev[i-1] = parseFloat(excBook.ActiveSheet.Cells(i+3,16).Value);
    edev[i-1] = parseFloat(excBook.ActiveSheet.Cells(i+3,17).Value);
  }
  excBook.ActiveSheet.Columns.AutoFit();
  alert ("Ready");
  return;
}

  // Einfuegen als: HBYTabNauticObj ();
function HBYTabNauticObj ()
{ var NtZzlr = 0;
  if (RSGPS==0) return;
  T2T.TextName      = "NtObj";
  T2T.TextBild      = "fm2wx";
  T2T.TextLink      = "";
  T2T.TextLinkTitel = "Nautic Objekt";
  T2T.TextTitel     = "Nautic X-Referenz " + NauticObjPlus + " " + NauticObjMinus + " Excel " + ExcelRDO + " " + ExcelToRDO + " (local) / X-Ref to HB-Yacht " + XMailHB;
  T2T.intPrz_1      = 21;  // Prozent Feld_1 Regio AreaK
  T2T.intPrz_2      = 24;  // Prozent Feld_2 KuFSt KMMSI
  T2T.intPrz_3      = 13;  // Prozent Feld_3 ChDSC CHVos
  T2T.intPrz_4      = 42;  // Prozent Feld_4 NetAd MailA TelNr
  T2T.intBrd        = 0;   // Border 0/1
  T2T.intWdt        = 720; // WIDTH oder 500
  document.writeln ("<FORM NAME=\"NtObj\" ID=\"NtObj\" ACTION=\"info@hb-yacht.ch\" METHOD=\"post\" ENCTYPE=\"text/plain\">");
  // ReadNauticObjekt (NtZzlr);
  T2T.TextTabA[NtZzlr] = "<input name=\"NtOb1\" size=17 maxlength=30 value=\" Regio 1\" onhelp=\"HelpF1(901)\">" // Regio
                     + " <input name=\"NtOb2\" size=2 maxlength=30 value=\" AreaK \" onhelp=\"HelpF1(902)\">";   // AreaK
  T2T.TextTabB[NtZzlr] = "<input name=\"NtOb3\" size=16 maxlength=28 value=\" KuFSt \" onhelp=\"HelpF1(903)\">"  // KuFSt
                     + " <input name=\"NtOb4\" size=8 maxlength=32 value=\" KMMSI \" onhelp=\"HelpF1(904)\">";   // KMMSI
  T2T.TextTabC[NtZzlr] = "<input name=\"NtOb5\" size=4 maxlength=30 value=\" ChDSC \" onhelp=\"HelpF1(905)\">"   // ChDSC
                     + " <input name=\"NtOb6\" size=4 maxlength=30 value=\" ChVos \" onhelp=\"HelpF1(906)\">";   // CHVos
  T2T.TextTabD[NtZzlr] = "<input name=\"NtOb7\" size=15 maxlength=30 value=\" NetAd \" onhelp=\"HelpF1(907)\">"  // NetAd
                     + " <input name=\"NtOb8\" size=15 maxlength=30 value=\" MailA \" onhelp=\"HelpF1(908)\">"   // MailA
                     + " <input name=\"NtOb9\" size=15 maxlength=30 value=\" TelNr \" onhelp=\"HelpF1(909)\">";  // TelNr
  NtZzlr++;
  T2T.TextTabA[NtZzlr] = "<input name=\"NtOb11\" size=17 maxlength=30 value=\" Regio 1\" onhelp=\"HelpF1(911)\">" // Regio
                     + " <input name=\"NtOb12\" size=2 maxlength=30 value=\" AreaK \" onhelp=\"HelpF1(912)\">";   // AreaK
  T2T.TextTabB[NtZzlr] = "<input name=\"NtOb13\" size=16 maxlength=30 value=\" KuFSt \" onhelp=\"HelpF1(913)\">"  // KuFSt
                     + " <input name=\"NtOb14\" size=8 maxlength=30 value=\" KMMSI \" onhelp=\"HelpF1(914)\">";   // KMMSI
  T2T.TextTabC[NtZzlr] = "<input name=\"NtOb15\" size=4 maxlength=30 value=\" ChDSC \" onhelp=\"HelpF1(915)\">"   // ChDSC
                     + " <input name=\"NtOb16\" size=4 maxlength=30 value=\" ChVos \" onhelp=\"HelpF1(916)\">";   // CHVos
  T2T.TextTabD[NtZzlr] = "<input name=\"NtOb17\" size=15 maxlength=30 value=\" NetAd \" onhelp=\"HelpF1(917)\">"  // NetAd
                     + " <input name=\"NtOb18\" size=15 maxlength=30 value=\" MailA \" onhelp=\"HelpF1(918)\">"   // MailA
                     + " <input name=\"NtOb19\" size=15 maxlength=30 value=\" TelNr \" onhelp=\"HelpF1(919)\">";  // TelNr
  NtZzlr++;
  T2T.TextTabA[NtZzlr] = "<input name=\"NtOb21\" size=17 maxlength=30 value=\" Regio 1\" onhelp=\"HelpF1(901)\">" // Regio
                     + " <input name=\"NtOb22\" size=2 maxlength=30 value=\" AreaK \" onhelp=\"HelpF1(902)\">";   // AreaK
  T2T.TextTabB[NtZzlr] = "<input name=\"NtOb23\" size=16 maxlength=30 value=\" KuFSt \" onhelp=\"HelpF1(903)\">"  // KuFSt
                     + " <input name=\"NtOb24\" size=8 maxlength=30 value=\" KMMSI \" onhelp=\"HelpF1(904)\">";   // KMMSI
  T2T.TextTabC[NtZzlr] = "<input name=\"NtOb25\" size=4 maxlength=30 value=\" ChDSC \" onhelp=\"HelpF1(905)\">"   // ChDSC
                     + " <input name=\"NtOb26\" size=4 maxlength=30 value=\" ChVos \" onhelp=\"HelpF1(906)\">";   // CHVos
  T2T.TextTabD[NtZzlr] = "<input name=\"NtOb27\" size=15 maxlength=30 value=\" NetAd \" onhelp=\"HelpF1(907)\">"  // NetAd
                     + " <input name=\"NtOb28\" size=15 maxlength=30 value=\" MailA \" onhelp=\"HelpF1(908)\">"   // MailA
                     + " <input name=\"NtOb29\" size=15 maxlength=30 value=\" TelNr \" onhelp=\"HelpF1(909)\">";  // TelNr
  NtZzlr++;
  T2T.intZeilen     = NtZzlr; // Tabellen als Zeilen
  NtZzlr = 0;
  HBYTab2Tab ();
  document.writeln ("</FORM><BR>");
  return;
}

function AddHBYTabNauticObj ()
{ if (0 < PtrNauticObj)
  { RadioData.Regio = document.NtObj[9].value;
    RadioData.AreaK = document.NtObj[10].value;
    RadioData.KuFSt = document.NtObj[11].value;
    RadioData.KMMSI = document.NtObj[12].value;
    RadioData.ChDSC = document.NtObj[13].value;
    RadioData.CHVos = document.NtObj[14].value;
    RadioData.NetAd = document.NtObj[15].value;
    RadioData.MailA = document.NtObj[16].value;
    RadioData.TelNr = document.NtObj[17].value;
    WriteNauticObjekt (PtrNauticObj+1);
  }
  if (PtrNauticObj < parseInt(interface_map_gmdss.length/9)-2) PtrNauticObj++;
  ReadNauticObjekt (PtrNauticObj);
  document.NtObj[0].value = RadioData.Regio;
  document.NtObj[1].value = RadioData.AreaK;
  document.NtObj[2].value = RadioData.KuFSt;
  document.NtObj[3].value = RadioData.KMMSI;
  document.NtObj[4].value = RadioData.ChDSC;
  document.NtObj[5].value = RadioData.CHVos;
  document.NtObj[6].value = RadioData.NetAd;
  document.NtObj[7].value = RadioData.MailA;
  document.NtObj[8].value = RadioData.TelNr;
  ReadNauticObjekt (PtrNauticObj+1);
  document.NtObj[9].value = RadioData.Regio;
  document.NtObj[10].value = RadioData.AreaK;
  document.NtObj[11].value = RadioData.KuFSt;
  document.NtObj[12].value = RadioData.KMMSI;
  document.NtObj[13].value = RadioData.ChDSC;
  document.NtObj[14].value = RadioData.CHVos;
  document.NtObj[15].value = RadioData.NetAd;
  document.NtObj[16].value = RadioData.MailA;
  document.NtObj[17].value = RadioData.TelNr;
  ReadNauticObjekt (PtrNauticObj+2);
  document.NtObj[18].value = RadioData.Regio;
  document.NtObj[19].value = RadioData.AreaK;
  document.NtObj[20].value = RadioData.KuFSt;
  document.NtObj[21].value = RadioData.KMMSI;
  document.NtObj[22].value = RadioData.ChDSC;
  document.NtObj[23].value = RadioData.CHVos;
  document.NtObj[24].value = RadioData.NetAd;
  document.NtObj[25].value = RadioData.MailA;
  document.NtObj[26].value = RadioData.TelNr;
  return;
}

function DecHBYTabNauticObj ()
{ if (0 < PtrNauticObj)
  { RadioData.Regio = document.NtObj[9].value;
    RadioData.AreaK = document.NtObj[10].value;
    RadioData.KuFSt = document.NtObj[11].value;
    RadioData.KMMSI = document.NtObj[12].value;
    RadioData.ChDSC = document.NtObj[13].value;
    RadioData.CHVos = document.NtObj[14].value;
    RadioData.NetAd = document.NtObj[15].value;
    RadioData.MailA = document.NtObj[16].value;
    RadioData.TelNr = document.NtObj[17].value;
    WriteNauticObjekt (PtrNauticObj+1);
  }
  if (1 < PtrNauticObj) PtrNauticObj--;
  ReadNauticObjekt (PtrNauticObj);
  document.NtObj[0].value = RadioData.Regio;
  document.NtObj[1].value = RadioData.AreaK;
  document.NtObj[2].value = RadioData.KuFSt;
  document.NtObj[3].value = RadioData.KMMSI;
  document.NtObj[4].value = RadioData.ChDSC;
  document.NtObj[5].value = RadioData.CHVos;
  document.NtObj[6].value = RadioData.NetAd;
  document.NtObj[7].value = RadioData.MailA;
  document.NtObj[8].value = RadioData.TelNr;
  ReadNauticObjekt (PtrNauticObj+1);
  document.NtObj[9].value = RadioData.Regio;
  document.NtObj[10].value = RadioData.AreaK;
  document.NtObj[11].value = RadioData.KuFSt;
  document.NtObj[12].value = RadioData.KMMSI;
  document.NtObj[13].value = RadioData.ChDSC;
  document.NtObj[14].value = RadioData.CHVos;
  document.NtObj[15].value = RadioData.NetAd;
  document.NtObj[16].value = RadioData.MailA;
  document.NtObj[17].value = RadioData.TelNr;
  ReadNauticObjekt (PtrNauticObj+2);
  document.NtObj[18].value = RadioData.Regio;
  document.NtObj[19].value = RadioData.AreaK;
  document.NtObj[20].value = RadioData.KuFSt;
  document.NtObj[21].value = RadioData.KMMSI;
  document.NtObj[22].value = RadioData.ChDSC;
  document.NtObj[23].value = RadioData.CHVos;
  document.NtObj[24].value = RadioData.NetAd;
  document.NtObj[25].value = RadioData.MailA;
  document.NtObj[26].value = RadioData.TelNr;
  return;
}

function MailGRIB(i) // GRIB-Mail mit WPi gebraucht fuer Tagesreise
{ return(" <IMG SRC=\"to.gif\" BORDER=0 TITLE=\"Login to WWW.GRIB.US\" OnClick=\"GoGRIB("+i+")\" OnMouseMove=\"src=\'tog.gif\'\" OnMouseOut=\"src=\'to.gif\'\">");
}

function wp_nav_start()
{ document.writeln ("<BR><BR><B>set the WP-NAV</B><BR><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=setup_hammer();\" TITLE=\"Defined route shown into the WPs\">to Hammerfest</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=setup_natlantic();\" TITLE=\"Defined route shown into the WPs\">Nord Atlantic</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=setup_kanal();\" TITLE=\"Defined route shown into the WPs\">Kanal</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=setup_spanien();\" TITLE=\"Defined route shown into the WPs\">Spanien</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=setup_italien();\" TITLE=\"Defined route shown into the WPs\">Italien</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=setup_nafric();\" TITLE=\"Defined route shown into the WPs\">Nord Afrika</A><BR>");
//document.writeln ("<A HREF=\"javascript:onClick=setup_wafrika();\" TITLE=\"Defined route shown into the WPs\">West Afrika</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=setup_wemex();\" TITLE=\"Defined route shown into the WPs\">W-Mexiko</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=setup_weusa();\" TITLE=\"Defined route shown into the WPs\">W-USA</A><BR><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=overrwite_mem();\" TITLE=\"Storage of the shown WPs\">write to</A> <A HREF=\"javascript:onClick=set_memory_back();\" TITLE=\"Displays the memory content\">Memory</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=mset(0);\" TITLE=\"Overwriting of WP 1\">1</A> <A HREF=\"javascript:onClick=mset(1);\" TITLE=\"Overwriting of WP 2\">2</A> <A HREF=\"javascript:onClick=mset(2);\" TITLE=\"Overwriting of WP 3\">3</A>");
  document.writeln ("<A HREF=\"javascript:onClick=mset(3);\" TITLE=\"Overwriting of WP 4\">4</A> <A HREF=\"javascript:onClick=mset(4);\" TITLE=\"Overwriting of WP 5\">5</A> <A HREF=\"javascript:onClick=mset(5);\" TITLE=\"Overwriting of WP 6\">6</A>");
  document.writeln ("<A HREF=\"javascript:onClick=mset(6);\" TITLE=\"Overwriting of WP 7\">7</A> <A HREF=\"javascript:onClick=mset(7);\" TITLE=\"Overwriting of WP 8\">8</A> <A HREF=\"javascript:onClick=mset(8);\" TITLE=\"Overwriting of WP 9\">9</A><BR>");
  document.writeln ("WP Memory <A HREF=\"javascript:onClick=mset(9);\" TITLE=\"Overwriting off\">off</A><BR>");
  document.writeln ("<A HREF=\"javascript:onClick=SendFormNav();\" TITLE=\"Publishing WP 1-9 (at first store)\">Public WP-Nav.</A><BR>(write to ",WpDir," map)<BR>");
  return;
}

function WPPPLS(NavText)
{ MemPut();
  if (pmem_pos < 41) pmem_pos = pmem_pos + 1;
  MemGet();
  return;
}

function WPPMNS(NavText)
{ MemPut();
  if (0 < pmem_pos) pmem_pos = pmem_pos - 1;
  MemGet();
  return;
}

function SendFormNav()
{ form = document.getElementById("waypoint");
  form.action = "http://www.hb-yacht.ch/cgi-bin/FM2WX"+WpDir+"_memo.cgi";
  form.method = "GET"; // Umgebungsvariable
  form.submit();
  return;
}

function SendFormNavUSER(key)
{ if (key.length < 12) return;
  var strfmwx = "cgi-bin/FM2WX"+WpDir+"_memo.cgi?HBYU="+key;
  for (i=0; i<document.waypoint.elements.length; i++)
  { strfmwx = strfmwx +"&"+ document.waypoint[i].name+"="+document.waypoint[i].value;
  }
  var GotoHBYacht = window.prompt("WP is rooting you to your own memory (0-9)","http://www.hb-yacht.ch/"+strfmwx);
  window.location.href = GotoHBYacht;
  return;
}

function MemPut()
{ var i=0, ii=0, j=0; // COPY und EINGABE-BEGRENZER
  for (i = 0; i < pos_mem_geonam.length; i++)
  { ii = i * 11;
    pmembrt_deg[pmem_pos+i] = String(parseInt(100000*parseFloat(document.waypoint[ii].value))/100000);
    pmembrt_min[pmem_pos+i] = String(parseInt(10000*parseFloat(document.waypoint[ii+1].value))/10000);
    pmembrt_sec[pmem_pos+i] = String(parseInt(1000*parseFloat(document.waypoint[ii+2].value))/1000);
    pmembrt_str[pmem_pos+i] = document.waypoint[ii+3].value;
    pmemlan_deg[pmem_pos+i] = String(parseInt(100000*parseFloat(document.waypoint[ii+4].value))/100000);
    pmemlan_min[pmem_pos+i] = String(parseInt(10000*parseFloat(document.waypoint[ii+5].value))/10000);
    pmemlan_sec[pmem_pos+i] = String(parseInt(1000*parseFloat(document.waypoint[ii+6].value))/1000);
    pmemlan_str[pmem_pos+i] = document.waypoint[ii+7].value;
    pmstreamdeg[pmem_pos+i] = String(parseInt(1000*parseFloat(document.waypoint[ii+8].value))/1000);
    pmstreamspd[pmem_pos+i] = String(parseInt(1000*parseFloat(document.waypoint[ii+9].value))/1000);
    pmemgeo_nam[pmem_pos+i] = document.waypoint[ii+10].value;
  }
  return;
}

function MemGet()
{ var i=0, ii=0, j=0;
  for (i = 0; i < pos_mem_geonam.length; i++)
  { ii = i * 11;
    document.waypoint[ii].value = pmembrt_deg[pmem_pos+i];
    document.waypoint[ii+1].value = pmembrt_min[pmem_pos+i];
    document.waypoint[ii+2].value = pmembrt_sec[pmem_pos+i];
    document.waypoint[ii+3].value = pmembrt_str[pmem_pos+i];
    document.waypoint[ii+4].value = pmemlan_deg[pmem_pos+i];
    document.waypoint[ii+5].value = pmemlan_min[pmem_pos+i];
    document.waypoint[ii+6].value = pmemlan_sec[pmem_pos+i];
    document.waypoint[ii+7].value = pmemlan_str[pmem_pos+i];
    document.waypoint[ii+8].value = pmstreamdeg[pmem_pos+i];
    document.waypoint[ii+9].value = pmstreamspd[pmem_pos+i];
    document.waypoint[ii+10].value = pmemgeo_nam[pmem_pos+i];
  }
  return;
}

function ZWPINS(pwp) // Zeile
{ MemPut();
  if (pmem_pos < 41) pos_mem_pointer = pwp;
  MemIns();
  return;
}

function ZWPDEL(pwp) // Zeile
{ MemPut();
  if (0 <= pmem_pos) pos_mem_pointer = pwp;
  MemDel();
  return;
}

function MemIns()
{ var i=0;
  for (i = pmembrt_deg.length-2; i >= (pmem_pos+pos_mem_pointer); i--)
  { pmembrt_deg[1+i] = pmembrt_deg[i];
    pmembrt_min[1+i] = pmembrt_min[i];
    pmembrt_sec[1+i] = pmembrt_sec[i];
    pmembrt_str[1+i] = pmembrt_str[i];
    pmemlan_deg[1+i] = pmemlan_deg[i];
    pmemlan_min[1+i] = pmemlan_min[i];
    pmemlan_sec[1+i] = pmemlan_sec[i];
    pmemlan_str[1+i] = pmemlan_str[i];
    pmstreamdeg[1+i] = pmstreamdeg[i];
    pmstreamspd[1+i] = pmstreamspd[i];
    pmemgeo_nam[1+i] = pmemgeo_nam[i];
  }
  pmembrt_deg[pmem_pos+pos_mem_pointer] = "00";
  pmembrt_min[pmem_pos+pos_mem_pointer] = "00";
  pmembrt_sec[pmem_pos+pos_mem_pointer] = "00";
  pmembrt_str[pmem_pos+pos_mem_pointer] = " ";
  pmemlan_deg[pmem_pos+pos_mem_pointer] = "000";
  pmemlan_min[pmem_pos+pos_mem_pointer] = "00";
  pmemlan_sec[pmem_pos+pos_mem_pointer] = "00";
  pmemlan_str[pmem_pos+pos_mem_pointer] = " ";
  pmstreamdeg[pmem_pos+pos_mem_pointer] = "0";
  pmstreamspd[pmem_pos+pos_mem_pointer] = "0";
  pmemgeo_nam[pmem_pos+pos_mem_pointer] = " -inserted-";
  MemGet();
  return;
}

function MemDel()
{ var i=0;
  for (i = (pmem_pos+pos_mem_pointer); i < pmembrt_deg.length-1; i++)
  { pmembrt_deg[i] = pmembrt_deg[i+1];
    pmembrt_min[i] = pmembrt_min[i+1];
    pmembrt_sec[i] = pmembrt_sec[i+1];
    pmembrt_str[i] = pmembrt_str[i+1];
    pmemlan_deg[i] = pmemlan_deg[i+1];
    pmemlan_min[i] = pmemlan_min[i+1];
    pmemlan_sec[i] = pmemlan_sec[i+1];
    pmemlan_str[i] = pmemlan_str[i+1];
    pmstreamdeg[i] = pmstreamdeg[i+1];
    pmstreamspd[i] = pmstreamspd[i+1];
    pmemgeo_nam[i] = pmemgeo_nam[i+1];
  }
  pmembrt_deg[pmembrt_deg.length-1] = "00";
  pmembrt_min[pmembrt_min.length-1] = "00";
  pmembrt_sec[pmembrt_sec.length-1] = "00";
  pmembrt_str[pmembrt_str.length-1] = " ";
  pmemlan_deg[pmemlan_deg.length-1] = "000";
  pmemlan_min[pmemlan_min.length-1] = "00";
  pmemlan_sec[pmemlan_sec.length-1] = "00";
  pmemlan_str[pmemlan_str.length-1] = " ";
  pmstreamdeg[pmstreamdeg.length-1] = "0";
  pmstreamspd[pmstreamspd.length-1] = "0";
  pmemgeo_nam[pmemgeo_nam.length-1] = " -deleted point-";
  MemGet();
  return;
}

// http://code.google.com/intl/de-CH/apis/maps/documentation/staticmaps/ // 110611
// Google Map
// http://maps.google.com/maps?f=q&hl=de&geocode=&q=57.42n+6.381e&ie=UTF8&z=16&iwloc=addr&om=1
// Ausgetestet am 111207-0900

function GoEat(zwp)
{ zwp = (zwp * 11) - 11;
  var G_breite_deg = parseFloat(document.waypoint[zwp].value);
  var G_breite_min = parseFloat(document.waypoint[zwp+1].value);
  var G_breite_sec = parseFloat(document.waypoint[zwp+2].value);
  var G_breite_str = document.waypoint[zwp+3].value;
  var G_laenge_deg = parseFloat(document.waypoint[zwp+4].value);
  var G_laenge_min = parseFloat(document.waypoint[zwp+5].value);
  var G_laenge_sec = parseFloat(document.waypoint[zwp+6].value);
  var G_laenge_str = document.waypoint[zwp+7].value;
  var G_breite = parseInt(G_breite_deg) + parseInt(G_breite_min) / 60 + G_breite_sec / 3600;
  var G_laenge = parseInt(G_laenge_deg) + parseInt(G_laenge_min) / 60 + G_laenge_sec / 3600;
  var DayTripDEG = DayRadius(G_breite); // Aktionsradius in DEG
  var GB_int = (parseInt(G_breite*10000000))/10000000;
  var GL_int = (parseInt(G_laenge*10000000))/10000000;
  if (G_breite_str.charAt(0) == 's') G_breite = G_breite * (-1);
  if (G_laenge_str.charAt(0) == 'e') G_laenge = G_laenge * (-1);
  if (G_breite_str.charAt(0) == 'S') G_breite = G_breite * (-1);
  if (G_laenge_str.charAt(0) == 'E') G_laenge = G_laenge * (-1);
  if (G_laenge_str.charAt(0) == 'O') G_laenge = G_laenge * (-1);
  if (G_breite_str.charAt(0) == 'S') G_breite_str = "s";
  if (G_breite_str.charAt(0) == 'N') G_breite_str = "n";
  if (G_laenge_str.charAt(0) == 'W') G_laenge_str = "w";
  if (G_laenge_str.charAt(0) == 'E') G_laenge_str = "e";
  if (G_laenge_str.charAt(0) == 'O') G_laenge_str = "e";
  // z=12   Zoomfaktor
  // hl=de  Sprache
  // q=     Position als Breite, Laenge oder Namen
  var u_str = "f=q&hl=de&geocode=&q=" + GB_int + G_breite_str + "+" + GL_int + G_laenge_str + "&z=12&ie=UTF8&iwloc=addr&om=1";
  var U_lnk = "http://maps.google.com/maps?";
  var GotoGoogle = window.prompt("WP is rooting you to Google maps at MAPS.GOOGLE.COM","http://maps.google.com/maps?"+u_str);
  window.location.href = GotoGoogle;
  return;
}

// Freie Tonne DE http://www.freietonne.de/osm/?zoom=14&lat=52.43928&lon=13.59992&layers=BOOT Ausgetestet am 080609-2000
// OpenStreatMap http://www.openstreatmap.org/?zoom=14&lat=52.43928&lon=13.59992&layers=BOOT Ausgetestet am 250110-2000
// OpenSeaMap http://map.openseamap.org/map/?zoom=12&lat=52.43928&lon=13.59992&layers=B0FTT Ausgetestet am 060210-0939
// Obj EDIT http://map.openseamap.org/map/map_edit.php?zoom=16&lat=54.47966&lon=9.00445&layers=B0TT Ausgetestet am 060210-1458

function FrTon(zwp)
{ zwp = (zwp * 11) - 11;
  var F_breite_deg = parseFloat(document.waypoint[zwp].value);
  var F_breite_min = parseFloat(document.waypoint[zwp+1].value);
  var F_breite_sec = parseFloat(document.waypoint[zwp+2].value);
  var F_breite_str = document.waypoint[zwp+3].value;
  var F_laenge_deg = parseFloat(document.waypoint[zwp+4].value);
  var F_laenge_min = parseFloat(document.waypoint[zwp+5].value);
  var F_laenge_sec = parseFloat(document.waypoint[zwp+6].value);
  var F_laenge_str = document.waypoint[zwp+7].value;
  var F_breite = parseInt(F_breite_deg) + parseInt(F_breite_min) / 60 + F_breite_sec / 3600;
  var F_laenge = parseInt(F_laenge_deg) + parseInt(F_laenge_min) / 60 + F_laenge_sec / 3600;
  var DayTripDEG = DayRadius(F_breite); // Aktionsradius in DEG
  var GB_int = (parseInt(F_breite*1000000))/1000000;
  var GL_int = (parseInt(F_laenge*1000000))/1000000;
  if (F_breite_str.charAt(0) == 'S') F_breite = F_breite * (-1);
  if (F_laenge_str.charAt(0) == 'W') F_laenge = F_laenge * (-1);
  // if (F_laenge_str.charAt(0) == 'O') F_laenge = F_laenge * (-1);
  if (F_breite_str.charAt(0) == 'S') F_breite_str = "s";
  if (F_breite_str.charAt(0) == 'N') F_breite_str = "n";
  if (F_laenge_str.charAt(0) == 'W') F_laenge_str = "w";
  if (F_laenge_str.charAt(0) == 'E') F_laenge_str = "e";
  if (F_laenge_str.charAt(0) == 'O') F_laenge_str = "e";
  // zoom=12   Zoomfaktor
  // layers=B0FTT
  // Breite = lat, Laenge = lon
  var u_str = "zoom=12&lat=" + String(F_breite) + "&lon=" + String(F_laenge) + "&layers=B0FTT";
  var U_lnk = "http://map.openseamap.org/map/?";
  var GotoFreieT = window.prompt("WP is rooting you to map.OpenSeaMap.org","http://map.openseamap.org/map/?"+u_str);
  window.location.href = GotoFreieT;
  return;
}

function DayRadius(locdegbrt)
{ var dayshift=0;
  var nmspeed = 0;
  var nmprodeg = 0;
  if (RSGPS==0 && 5 > parseInt(parseFloat(document.maplocation[8].value))) nmspeed = 120;
  if (RSGPS==0 && 5 <= parseInt(parseFloat(document.maplocation[8].value))) nmspeed = 24 * parseInt(parseFloat(document.maplocation[8].value));
  if (RSGPS==1 && 5 > parseInt(parseFloat(SP_KN))) nmspeed = 120;
  if (RSGPS==1 && 5 <= parseInt(parseFloat(SP_KN))) nmspeed = 24 * parseInt(parseFloat(SP_KN));
  dayshift = parseInt(10 * (nmspeed / (60 * fndcos(locdegbrt)))) / 10;
  return(dayshift);
}

function GoGRIB(wploc)
{ var u_str = "";
  var DayTripDEG = DayRadius(parseInt(parseFloat(document.waypoint[11*wploc].value)));
  var GotoGRIB = window.prompt("Your PWD:  at WWW.GRIB.US","?"+u_str);
  window.location.href = GotoGRIB;
  return;
}

function wpnav(region)
{ var fm2wx_feld_link = BildDirWXBSR + "idxhdvgmdsse.htm";
  var TbInnenWPN = 660;
  document.writeln ("<FORM NAME=\"waypoint\" ID=\"waypoint\" ACTION=\"http://www.hb-yacht.ch/cgi-bin/FM2WX",WpDir,"_memo.cgi\" METHOD=\"GET\">");
  TRline();
  document.writeln ("<TABLE CELLSPACING=1 CELLPADDING=1 BORDERCOLOR=#",bcg_color_tab_border_define[col_def]," BGCOLOR=#",bcg_color_tab_border_define[col_def]," BORDERCOLORDARK=#",bcg_color_tab_border_dark[col_def]," BORDERCOLORLIGHT=#",bcg_color_tab_border_light[col_def]," BORDER=0 WIDTH=",TbInnenWPN,"><TBODY>");
  document.writeln ("<TH HEIGHT=5></TH>");
  document.writeln ("<TR><TD WIDTH=\"100%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">");
  document.writeln ("<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=0 WIDTH=660><TBODY>");
  document.writeln ("  <TR><TD WIDTH=\"8%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("<TD WIDTH=\"22%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"D_SPD_\" SIZE=18 onhelp=\"HelpF1(501)\"></TD>");
  document.writeln ("<TD WIDTH=\"15%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">DIST </TD>");
  document.writeln ("  <TD WIDTH=\"15%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"DIST_\" SIZE=10 onhelp=\"HelpF1(502)\"></TD>");
  document.writeln ("  <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">NM</TD>");
  document.writeln ("  <TD WIDTH=\"5%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><FONT COLOR=\"green\">to</FONT></TD>");
  document.writeln ("  <TD WIDTH=\"25%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"D_SPD_\" SIZE=18 onhelp=\"HelpF1(503)\"></TD>");
  document.writeln ("  </TR><TR><TD WIDTH=\"8%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("  <TD WIDTH=\"22%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"> </TD></TD>");
  document.writeln ("  <TD WIDTH=\"15%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">MAP (KK)</TD>");
  document.writeln ("  <TD WIDTH=\"15%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"KURS_\" SIZE=10 onhelp=\"HelpF1(504)\"></TD>");
  document.writeln ("  <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">DEG</TD>");
  document.writeln ("  <TD WIDTH=\"5%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("  <TD WIDTH=\"25%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"> </TD>");
  document.writeln ("  </TR></TBODY></TABLE>");
  document.writeln ("<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=0 WIDTH=660><TBODY>");
  document.writeln ("      <TD WIDTH=\"8%\" VALIGN=\"TOP\"> </TD>");
  tastevon();
  document.writeln ("      <TD WIDTH=\"4%\" VALIGN=\"TOP\"></TD>");
  document.writeln ("</TR></TBODY></TABLE>");
  document.writeln ("<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=0 WIDTH=660><TBODY>");
  document.writeln ("<TD WIDTH=\"8%\" VALIGN=\"TOP\"><B>back</B></TD>");
  tastenach();
  document.writeln ("<TD WIDTH=\"4%\" VALIGN=\"TOP\"></TD>");
  document.writeln ("</TR></TBODY></TABLE>");
  document.writeln ("<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=0 WIDTH=660><TBODY>");
  document.writeln ("  <TR><TD WIDTH=\"8%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">DEG</TD>");
  document.writeln ("      <TD WIDTH=\"11%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">kn</TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">DEV.</TD>");
  document.writeln ("      <TD WIDTH=\"11%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">VAR.</TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">Speed</TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">KpK</TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">F&uuml;G</TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">h</TD>");
  document.writeln ("  </TR><TR><TD WIDTH=\"8%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"D_deg_\" SIZE=5 onhelp=\"HelpF1(505)\"></TD>");
  document.writeln ("      <TD WIDTH=\"11%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"D_SPD_\" SIZE=5 onhelp=\"HelpF1(506)\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"DEV_DEG_\" SIZE=5 onhelp=\"HelpF1(507)\"></TD>");
  document.writeln ("      <TD WIDTH=\"11%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"VAR_DEG_\" SIZE=5 onhelp=\"HelpF1(508)\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"V_\" SIZE=5 onhelp=\"HelpF1(509)\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT CLASS=\"button\" TYPE=\"button\" VALUE=\"CALC\" onClick=\"wpkpkber()\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"KPK_DEG_\" SIZE=5 onhelp=\"HelpF1(510)\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"KPK_FUG_\" SIZE=5 onhelp=\"HelpF1(511)\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"FUG_std_\" SIZE=5 onhelp=\"HelpF1(512)\"></TD>");
  document.writeln ("  </TR><TR><TD WIDTH=\"8%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"D_deg_\" SIZE=5 onhelp=\"HelpF1(513)\"></TD>");
  document.writeln ("      <TD WIDTH=\"11%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"D_SPD_\" SIZE=5 onhelp=\"HelpF1(514)\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"11%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></TD>");
  document.writeln ("      <TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"></FORM></TD>");
  document.writeln ("  </TR></TBODY></TABLE>");
  document.writeln ("</TD></TR><TH HEIGHT=5></TH></TBODY></TABLE>");
  var BsrLeg_t1 = "<TR><TD WIDTH=\"20%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">";
  var BsrLeg_t2 = "<TD WIDTH=\"80%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">";

  if (RSGPS==1) User_Memory(); // User SpeicherBereiche setzen
  if (RSGPS==1) MemGet(); // User Setting sichtbar
  if (region=="nordatlantic" && RSGPS==0) setup_natlantic();
  document.writeln ("<FONT SIZE=1><BR></FONT>");
 // document.writeln ("</FORM>");
 // HBYTabGelb ("wplegende","fm2wx",fm2wx_feld_link,"GMDSS","Legende",
 // "<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=0 WIDTH=448><TBODY>"
 // + BsrLeg_t1 + "Speed</TD>" + BsrLeg_t2 + "Fahrt durchs Wasser / Speed in the water</TD></TR>"
 // + BsrLeg_t1 + "KK</TD>" + BsrLeg_t2 + "Karten Kurs / Map course</TD></TR>"
 // + BsrLeg_t1 + "KpK</TD>" + BsrLeg_t2 + "Kompass Kurs / Compass course</TD></TR>"
 // + BsrLeg_t1 + "F&uuml;G</TD>" + BsrLeg_t2 + "Fahrt &uuml;ber Grund / Ground speed</TD></TR>"
 // + BsrLeg_t1 + "h</TD>" + BsrLeg_t2 + "Fahrt Zeit in Stunden / required period in hours</TD></TR>"
 // + "</TR></TBODY></TABLE>");
  return;
}

function TRline()
{ var zp ="<TD WIDTH=\"12%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"";
  var ap ="<TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"";
  var sp ="<TD WIDTH=\"10%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"><INPUT TYPE=\"text\" NAME=\"";
  var bsr1 ="<TD WIDTH=\"21%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"> <FONT COLOR=\"blue\">Stream</FONT> <INPUT TYPE=\"text\" NAME=\"";
  var bsr2 ="<TD WIDTH=\"47%\" VALIGN=\"TOP\" ALIGN=\"LEFT\"> <FONT COLOR=\"green\">Pos.</FONT> <INPUT TYPE=\"text\" NAME=\"";
  var insert;
  var i = 1;
  while (i<=9)
  { insert = insert_taste(i) + " " + insert1_taste(i) + " " + insert_astronav(i)+ " ";
    BsrTabText = "IN " + ins_taste_INS(i-1) + " DL " + ins_taste_DEL(i-1) + "<BR>";
    BsrTabText = BsrTabText + "<A HREF=\"http://www.grib.us\" TARGET=\"_blank\">GRIB</A> " + MailGRIB(i-1);
    HBYTabGelb ("WP_"+i,BsrTab[i],"","BildBSR",
    "<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=0 WIDTH=480><TBODY><TR>"
    + ap + "B_DEG_" + i + "\" SIZE=3 onhelp=\"HelpF1(401)\">"
    + "</TD>" + sp + "B_MIN_" + i + "\" SIZE=4 onhelp=\"HelpF1(402)\">"
    + "</TD>" + sp + "B_SEC_" + i + "\" SIZE=2 onhelp=\"HelpF1(403)\">"
    + "</TD>" + zp + "B_STR_" + i + "\" SIZE=5 onhelp=\"HelpF1(404)\"></TD>"
    + ap + "L_DEG_" + i + "\" SIZE=3 onhelp=\"HelpF1(405)\">"
    + "</TD>" + sp + "L_MIN_" + i + "\" SIZE=4 onhelp=\"HelpF1(406)\">"
    + "</TD>" + sp + "L_SEC_" + i + "\" SIZE=2 onhelp=\"HelpF1(407)\">"
    + "</TD>" + zp + "L_STR_" + i + "\" SIZE=5 onhelp=\"HelpF1(408)\"></TD>"
    + "<TD WIDTH=\"8%\" VALIGN=\"TOP\" ALIGN=\"LEFT\">WP_" + i + "</TD></TR></TBODY></TABLE>",
    "<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=0 WIDTH=480><TBODY><TR>"
    + bsr1 + "D_DEG_" + i + "\" SIZE=2 onhelp=\"HelpF1(409)\"> <FONT COLOR=\"blue\">Deg</FONT>"
    + " </TD>" + zp + "D_SPD_" + i + "\" SIZE=2 onhelp=\"HelpF1(410)\"> <FONT COLOR=\"blue\">kn</FONT>"
    + " </TD> " + bsr2 + "D_TXT_" + i + "\" SIZE=30 MAXLENGTH=80 onhelp=\"HelpF1(411)\"> "
    + insert + "</TD>"
    + "</TR></TBODY></TABLE>");
      document.writeln ("<FONT SIZE=1><BR></FONT>");
    i++;
  }
  return;
}

function tastevon()
{ var i = 2;
  var j = 0;
  while (i<=9)
  { document.writeln ("<TD WIDTH=\"11%\" VALIGN=\"TOP\"><INPUT CLASS=\"button\" TYPE=\"button\" VALUE=\"to WP",i,"\" onClick=\"wpberechnung(",j,")\"></TD>");
    i++;
    j++;
  }
  return;
}

function tastenach()
{ var i = 1;
  while (i<=8)
  { document.writeln ("<TD WIDTH=\"11%\" VALIGN=\"TOP\"><INPUT CLASS=\"button\" TYPE=\"button\" VALUE=\"to WP",i,"\" onClick=\"wpbackto(",i,")\"></TD>");
    i++;
  }
  return;
}

function v_deg2min ()
{ var v_breite = von_breite;
  if (von_breite < 0) von_breite_str = "South";
  if (von_breite >= 0) von_breite_str = "North";
  v_breite = Math.abs(von_breite);
  von_breite_deg = parseInt(v_breite);
  von_breite_min = (( 100* (v_breite - von_breite_deg)) *60) /100;
  von_breite_sec = parseInt((parseInt ((100* (von_breite_min - parseInt(von_breite_min))) *60)) /100);
  von_breite_min = parseInt(von_breite_min);
  var v_laenge = von_laenge;
  if (von_laenge < 0) von_laenge_str = "East";
  if (von_laenge >= 0) von_laenge_str = "West";
  v_laenge = Math.abs(von_laenge);
  von_laenge_deg = parseInt(v_laenge);
  von_laenge_min = (( 100* (v_laenge - von_laenge_deg)) *60) /100;
  von_laenge_sec = parseInt((parseInt ((100* (von_laenge_min - parseInt(von_laenge_min))) *60)) /100);
  von_laenge_min = parseInt(von_laenge_min);
  return;
}

function v_copy(wp)
{ wp_pos = 11 * wp;
  document.waypoint[wp_pos].value = String(von_breite_deg);
  document.waypoint[wp_pos+1].value = String(von_breite_min);
  document.waypoint[wp_pos+2].value = String(von_breite_sec);
  document.waypoint[wp_pos+3].value = von_breite_str;
  document.waypoint[wp_pos+4].value = String(von_laenge_deg);
  document.waypoint[wp_pos+5].value = String(von_laenge_min);
  document.waypoint[wp_pos+6].value = String(von_laenge_sec);
  document.waypoint[wp_pos+7].value = von_laenge_str;
  document.waypoint[wp_pos+8].value = String(von_drift_to);
  document.waypoint[wp_pos+9].value = String(von_speed_to);
  document.waypoint[wp_pos+10].value = von_name;
  return;
}

// definiert in fmwx_scr
function set_memory_back()
{ var i=0, ii=0, j=0;
  for (i = 0; i < pos_mem_geonam.length; i++)
    { ii = i * 11;
      document.waypoint[ii].value = String(pos_mem_breite_deg[j]);
      document.waypoint[ii+1].value = String(pos_mem_breite_min[j]);
      document.waypoint[ii+2].value = String(pos_mem_breite_sec[j]);
      document.waypoint[ii+3].value = pos_mem_breite_str[j];
      document.waypoint[ii+4].value = String(pos_mem_laenge_deg[j]);
      document.waypoint[ii+5].value = String(pos_mem_laenge_min[j]);
      document.waypoint[ii+6].value = String(pos_mem_laenge_sec[j]);
      document.waypoint[ii+7].value = pos_mem_laenge_str[j];
      document.waypoint[ii+8].value = String(pos_mem_stream_deg[j]);
      document.waypoint[ii+9].value = String(pos_mem_stream_spd[j]);
      document.waypoint[ii+10].value = pos_mem_geonam[j];
      j = j + 1;
    }
  return;
}

// definiert in fmwx_scr
function overrwite_mem()
{ var i=0, ii=0, j=0;
  for (i = 0; i < pos_mem_geonam.length; i++)
    { ii = i * 11;
      pos_mem_breite_deg[j] = parseInt(document.waypoint[ii].value);
      pos_mem_breite_min[j] = parseInt(document.waypoint[ii+1].value);
      pos_mem_breite_sec[j] = parseFloat(document.waypoint[ii+2].value);
      pos_mem_breite_str[j] = document.waypoint[ii+3].value;
      pos_mem_laenge_deg[j] = parseInt(document.waypoint[ii+4].value);
      pos_mem_laenge_min[j] = parseInt(document.waypoint[ii+5].value);
      pos_mem_laenge_sec[j] = parseFloat(document.waypoint[ii+6].value);
      pos_mem_laenge_str[j] = document.waypoint[ii+7].value;
      pos_mem_stream_deg[j] = parseFloat(document.waypoint[ii+8].value);
      pos_mem_stream_spd[j] = parseFloat(document.waypoint[ii+9].value);
      pos_mem_geonam[j] = document.waypoint[ii+10].value;
      j = j + 1;
    }
  SendFormNavUSER("");
  return;
}

// definiert in fmwx_scr
function mset(m_pointer)
{ pos_mem_pointer = m_pointer;
  return;
}

function v_setup(wp)
{ wp_pos = 11 * wp;
  von_breite_deg = parseFloat(document.waypoint[wp_pos].value);
  von_breite_min = parseFloat(document.waypoint[wp_pos+1].value);
  von_breite_sec = parseInt(1000 * parseFloat(document.waypoint[wp_pos+2].value))/1000;
  von_breite_str = document.waypoint[wp_pos+3].value;
  von_laenge_deg = parseFloat(document.waypoint[wp_pos+4].value);
  von_laenge_min = parseFloat(document.waypoint[wp_pos+5].value);
  von_laenge_sec = parseInt(1000 * parseFloat(document.waypoint[wp_pos+6].value))/1000;
  von_laenge_str = document.waypoint[wp_pos+7].value;
  von_breite = parseInt(von_breite_deg) + parseInt(von_breite_min) / 60 + parseFloat(von_breite_sec) / 3600;
  von_laenge = parseInt(von_laenge_deg) + parseInt(von_laenge_min) / 60 + parseFloat(von_laenge_sec) / 3600;
  if (von_breite_str.charAt(0) == 'S') von_breite = von_breite * (-1);
  if (von_laenge_str.charAt(0) == 'E') von_laenge = von_laenge * (-1);
  return;
}

function von2nach()
{ nach_breite_deg = von_breite_deg;
  nach_breite_min = von_breite_min;
  nach_breite_sec = von_breite_sec;
  nach_breite_str = von_breite_str;
  nach_breite = von_breite;
  nach_laenge_deg = von_laenge_deg;
  nach_laenge_min = von_laenge_min;
  nach_laenge_sec = von_laenge_sec;
  nach_laenge_str = von_laenge_str;
  nach_laenge = von_laenge;
  return;
}

function wpberechnung(part)
{ var anz = document.waypoint.elements.length;
  v_setup(part + 1);
  von2nach();
  v_setup(part)
  wpkurs();
  document.waypoint[anz - wps-3].value = document.waypoint[part * 11 +10].value;
  document.waypoint[anz - wps-1].value = document.waypoint[(part+1) * 11 +10].value;
  document.waypoint[anz-2].value = document.waypoint[part * 11 +8].value;
  document.waypoint[anz-1].value = document.waypoint[part * 11 +9].value;
  return;
}

function wpbackto(part)
{ var anz = document.waypoint.elements.length;
  v_setup(part - 1);
  von2nach();
  v_setup(part)
  wpkurs();
  document.waypoint[anz - wps-3].value = document.waypoint[part * 11 +10].value;
  document.waypoint[anz - wps-1].value = document.waypoint[(part-1) * 11 +10].value;
  document.waypoint[anz-2].value = document.waypoint[part * 11 +8].value;
  document.waypoint[anz-1].value = document.waypoint[part * 11 +9].value;
  return;
}

function wpkurs()
{ var richtung = "";
  var anz = document.waypoint.elements.length;
  ha = fndsin(von_breite) * fndsin(nach_breite);
  hb = fndcos(von_breite) * fndcos(nach_breite) * fndcos(nach_laenge - von_laenge);
  nm = (parseInt(100 * (3600 * Math.acos(ha + hb)))) / 100;
  nc = Math.acos(ha + hb);
  document.waypoint[anz - wps-2].value = nm;
  if (von_laenge < nach_laenge && von_breite < nach_breite) richtung = "w";
  if (von_laenge > nach_laenge && von_breite < nach_breite) richtung = "o";
  if (von_laenge < nach_laenge && von_breite > nach_breite) richtung = "w";
  if (von_laenge > nach_laenge && von_breite > nach_breite) richtung = "o";
  if (von_laenge == nach_laenge && von_breite > nach_breite) richtung = "o";
  if (von_laenge == nach_laenge && von_breite < nach_breite) richtung = "w";
  if (von_laenge < nach_laenge && von_breite == nach_breite) richtung = "w";
  if (von_laenge > nach_laenge && von_breite == nach_breite) richtung = "o";
  hc = fndsin(nach_breite) - (fndsin(von_breite) * Math.cos(nc));
  hd = hc / (fndcos(von_breite) * Math.sin(nc));
  vd = (parseInt(10 * (60 * Math.acos(hd)))) / 10;
  if (richtung == "w") vd = 360 - Math.abs(vd);
  if (richtung == "o") vd = Math.abs(vd);
  document.waypoint[anz - wps].value = vd;
  return;
}

function wpkpkber()
{ var ri = "";
  var h = 0;
  var k = 0.0;
  var kp=0, kpk=0, kpk_1=0, kpk_2=0, kpk_3=0;
  var vrz = 1;
  var lmd=0; lmd1=0;
  var phi=0, phi1=0;
  var fug=0, fug_1=0, fug_2=0, fug_3=0, fug_4=0, fug_5=0, fug_6=0, fug_7=0;
  var fugd=0, fugd_1=0, fugd_2=0, fugd_3=0;
  var wklb=0, wklb1=0;
  var wklc=0, wklc1=0;
  var anz = document.waypoint.elements.length;
  var sc = 0;
  var wklc = 0;
  if (document.waypoint[anz-1].value=="0") // kn Wind Fehler 0-Berechnung
  { document.waypoint[anz-1].value = "0";
  }
  sc = parseFloat(document.waypoint[anz-1].value);
  if (document.waypoint[anz-2].value=="") // DEG Wind
  { document.waypoint[anz-2].value = "0";
  }
  wklc = parseFloat(document.waypoint[anz-2].value);
  if (document.waypoint[anz-10].value=="") // kn Stream
  { document.waypoint[anz-10].value = "0";
  }
  var sb = parseFloat(document.waypoint[anz-10].value);
  if (document.waypoint[anz-11].value=="") // DEG. Stream
  { document.waypoint[anz-11].value = "0";
  }
  var wklb = parseFloat(document.waypoint[anz-11].value);
  if (document.waypoint[anz-7].value=="")  // Speed auf min. Yacht 7 kn
  { document.waypoint[anz-7].value = "7.0";
  }
  var sa = parseFloat(document.waypoint[anz-7].value);
  var wkla = parseFloat(document.waypoint[anz-wps].value);
  if (document.waypoint[anz-8].value=="")  // VAR
  { document.waypoint[anz-8].value = "0";
  }
  var vav = parseFloat(document.waypoint[anz-8].value);
  if (document.waypoint[anz-9].value=="")  // DEV
  { document.waypoint[anz-9].value = "0";
  }
  var dev = parseFloat(document.waypoint[anz-9].value);
  lmd = sa * fndcos(wkla) + sb * fndcos(wklb) + sc * fndcos(wklc);
  phi = sa * fndsin(wkla) + sb * fndsin(wklb) + sc * fndsin(wklc);
  if ((document.waypoint[anz-2].value == "0") && (document.waypoint[anz-1].value == "0")) // wklc sc
  { lmd = sa * fndcos(wkla) + sb * fndcos(wklb);
    phi = sa * fndsin(wkla) + sb * fndsin(wklb);
  }
  if ((document.waypoint[anz-11].value == "0") && (document.waypoint[anz-10].value == "0")) // wklb sb
  { lmd = sa * fndcos(wkla) + sc * fndcos(wklc);
    phi = sa * fndsin(wkla) + sc * fndsin(wklc);
  }
  if ((document.waypoint[anz-2].value == "0") && (document.waypoint[anz-1].value == "0") && (document.waypoint[anz-11].value == "0") && (document.waypoint[anz-10].value == "0"))
  { lmd = sa * fndcos(wkla);
    phi = sa * fndsin(wkla);
  }
  fug_1 = fndsin(k) * fndsin(phi);
  fug_2 = fndcos(k) * fndcos(phi) * fndcos(lmd);
  fug_3 = fug_1 + fug_2;
  fugd = 60 * Math.acos(fug_3);
  fugd_1 = fndsin(lmd) - (fndsin(k) * fndcos(fugd));
  fugd_2 = fndcos(k) * fndsin(fugd);
  fugd_3 = fugd_1 / fugd_2;
  kp = (parseInt(10 * 60 * Math.acos(fugd_3))) / 10;
  fug = (parseInt(10 * 60 * Math.acos(fug_3))) / 10;
  if (k > lmd && k > phi) ri = "w";
  if (k < lmd && k > phi) ri = "w";
  if (k > lmd && k < phi) ri = "o";
  if (k < lmd && k < phi) ri = "o";
  if (k == lmd && k < phi) ri = "w";
  if (k == lmd && k > phi) ri = "o";
  if (k > lmd && k == phi) ri = "w";
  if (k < lmd && k == phi) ri = "o";
  if (kp > 360) kp = kp - 360;
  if (ri == "w") kp = 360 - kp;
  wkld = wkla;
  if (wkld >= 270 || wkld <= 90)
  { wkld = wkld + 180;
  kp = kp + 180;
  }
  if (wkld > 360) wkld = wkld - 360;
  if (kp > 360) kp = kp - 360;
  if (wkld > 90 && wkld < 270 && (((wkld + 90) < kp) || ((wkld - 90) > kp))) vrz = -1;
  fug = fug * vrz;
  if ((wklb + 180) <= 360) wklb1 = wklb + 180;
  if ((wklb + 180) > 360) wklb1 = wklb - 180;
  if ((wklc + 180) <= 360) wklc1 = wklc + 180;
  if ((wklc + 180) > 360) wklc1 = wklc - 180;
  lmd1 = sa * fndcos(wkla) + sb * fndcos(wklb1) + sc * fndcos(wklc1);
  phi1 = sa * fndsin(wkla) + sb * fndsin(wklb1) + sc * fndsin(wklc1);
  if ((document.waypoint[anz-11].value == "0") && (document.waypoint[anz-10].value == "0")) // wklb sb
  { lmd1 = sa * fndcos(wkla) + sc * fndcos(wklc1);
    phi1 = sa * fndsin(wkla) + sc * fndsin(wklc1);
  }
  if ((document.waypoint[anz-2].value == "0") && (document.waypoint[anz-1].value == "0")) // wklc sc
  { lmd1 = sa * fndcos(wkla) + sb * fndcos(wklb1);
    phi1 = sa * fndsin(wkla) + sb * fndsin(wklb1);
  }
  if ((document.waypoint[anz-2].value == "0") && (document.waypoint[anz-1].value == "0") && (document.waypoint[anz-11].value == "0") && (document.waypoint[anz-10].value == "0"))
  { lmd1 = sa * fndcos(wkla);
    phi1 = sa * fndsin(wkla);
  }
  if (k > lmd1 && k > phi1) ri = "w";
  if (k < lmd1 && k > phi1) ri = "w";
  if (k > lmd1 && k < phi1) ri = "o";
  if (k < lmd1 && k < phi1) ri = "o";
  if (k == lmd1 && k < phi1) ri = "w";
  if (k == lmd1 && k > phi1) ri = "o";
  if (k > lmd1 && k == phi1) ri = "w";
  if (k < lmd1 && k == phi1) ri = "o";
  fug_4 = fndsin(k) * fndsin(phi1);
  fug_5 = fndcos(k) * fndcos(phi1) * fndcos(lmd1);
  fug_6 = fug_4 + fug_5;
  fug_7 = 60 * Math.acos(fug_6);
  kpk_1 = fndsin(lmd1) - (fndsin(k) * fndcos(fug_7));
  kpk_2 = fndcos(k) * fndsin(fug_7);
  kpk_3 = kpk_1 / kpk_2;
  kpk = (parseInt(10 * 60 * Math.acos(kpk_3))) / 10;
  if (ri == "w") kpk = 360 - kpk;
  if ((document.waypoint[anz-2].value == "0") && (document.waypoint[anz-1].value == "0") && (wklb == 0) && (sb == 0))
  { kpk = parseFloat(document.waypoint[anz-28].value);
    fug = parseFloat(document.waypoint[anz-7].value); // fug = FdW
  }
  kpk = kpk + (-1.0) * dev + (-1.0) * vav;
  h = parseInt(10 * parseFloat(document.waypoint[anz - wps-2].value) / fug) / 10;
  document.waypoint[anz-5].value = String(kpk);
  document.waypoint[anz-4].value = String(fug);
  document.waypoint[anz-3].value = String(h);
  return;
}

function INIMailText(tstxt)
{ if (RSGPS==0) return;
  if (tstxt!="HBY") return;
  var navtool = navigator.appName;
  var XRText = "\n";
  XRText = XRText + "[SETUP_interface_map_gmdss]\n";
  var bildname = "BildINIMAIL";
  var dimension = "width=1210,height=650";
  var inikey = "{000000/000000/00-271111-081211-1149};\n";
  var i = 0;
  var LiNu = "";
  for(i=0; i < parseInt(interface_map_gmdss.length/9); i++)
  { ReadNauticObjekt (i);
     if (i < 10) LiNu = "$Line_00" + String(i+1) + "$";
     if (9 < i && i < 99) LiNu = "$Line_0" + String(i+1) + "$";
     if (98 < i && i < 297) LiNu = "$Line_" + String(i+1) + "$";     // - Line_197
     if (196 < i && i < 226) LiNu = "$-Line_" + String(i+3) + "$";   // Line_200
     if (225 < i && i < 236) LiNu = "$+UpDate_" + String(i+4) + "$"; // UpDate_230
     if (235 < i) LiNu ="";
     if (4 < LiNu.length)
     { XRText = XRText + LiNu + "=" + String(RadioData.Regio);
       XRText = XRText + "," + String(RadioData.AreaK);
       XRText = XRText + "," + String(RadioData.KuFSt);
       XRText = XRText + "," + String(RadioData.KMMSI);
       XRText = XRText + "," + String(RadioData.ChDSC);
       XRText = XRText + "," + String(RadioData.CHVos);
       XRText = XRText + "," + String(RadioData.NetAd);
       XRText = XRText + "," + String(RadioData.MailA);
       XRText = XRText + "," + String(RadioData.TelNr) + inikey;
       LiNu = "";
     }
  }
  winINI = window.open ("",bildname,dimension);
  if (navtool != "Netscape") winINI.document.open ("html");
  winINI.document.writeln ("<HTML><HEAD>");
  winINI.document.writeln ("<SCRIPT LANGUAGE=\"JavaScript\" TYPE=\"text/javascript\">\n<!-- //\n");
  winINI.document.writeln ("  var MailAdsTo = \"info@hb-yacht.ch\";\n");
  winINI.document.writeln ("function cpyINI()");
  winINI.document.writeln ("{ \n");
  winINI.document.writeln ("  \n");
  winINI.document.writeln ("  return;\n}\n\n// -->\n</SCRIPT>");
  winINI.document.writeln ("<style>");
  winINI.document.writeln ("body {font-family: Italic;");
  winINI.document.writeln ("  font-size: 12pt;");
  winINI.document.writeln ("  color: #000000;");
  winINI.document.writeln ("  background-color:#FFFFDD;");
  winINI.document.writeln ("  background-image:url(worldmap.gif);");
  winINI.document.writeln ("  margin:6px;");
  winINI.document.writeln ("  padding:6px;");
  winINI.document.writeln ("  scrollbar-arrow-color:#",bcg_color_tab_border_dark[col_def],";");     //555535
  winINI.document.writeln ("  scrollbar-base-color:#",bcg_color_tab_border_define[col_def],";");    //E0E0C0
  winINI.document.writeln ("  scrollbar-3dlight-color:#",bcg_color_tab_border_light[col_def],";}"); //F0F0D0
  winINI.document.writeln ("input{font-family: Italic;");
  winINI.document.writeln ("  font-size: 9pt;");
  winINI.document.writeln ("  color: #111111;");
  winINI.document.writeln ("  background-color:#FFFFDF;");
  winINI.document.writeln ("  border-bottom-width: thin;");
  winINI.document.writeln ("  border-left-width: thin;");
  winINI.document.writeln ("  border-right-width: thin;");
  winINI.document.writeln ("  border-top-width: thin;");
  winINI.document.writeln ("  border-color:#E0E0C0;}");
  winINI.document.writeln (".button{font-family: Italic;");
  winINI.document.writeln ("  font-size: 9pt;");
  winINI.document.writeln ("  color: #111111;");
  winINI.document.writeln ("  background-color:#FFFFDF;");
  winINI.document.writeln ("  border-top-style:solid;");
  winINI.document.writeln ("  border-right-style:solid;");
  winINI.document.writeln ("  border-left-style:solid;");
  winINI.document.writeln ("  border-bottom-style:solid;");
  winINI.document.writeln ("  border-top-width: 2px;");
  winINI.document.writeln ("  border-left-width: 2px;");
  winINI.document.writeln ("  border-right-width: 2px;");
  winINI.document.writeln ("  border-bottom-width: 2px;");
  winINI.document.writeln ("  border-top-color:#F0F0D0;");
  winINI.document.writeln ("  border-right-color:#A0A080;");
  winINI.document.writeln ("  border-left-color:#F0F0D0;");
  winINI.document.writeln ("  border-bottom-color:#A0A080;}");
  winINI.document.writeln (".submit{font-family: Italic;");
  winINI.document.writeln ("  font-size: 9pt;");
  winINI.document.writeln ("  color: #111111;");
  winINI.document.writeln ("  background-color:#FFFFDF;");
  winINI.document.writeln ("  border-top-style:solid;");
  winINI.document.writeln ("  border-right-style:solid;");
  winINI.document.writeln ("  border-left-style:solid;");
  winINI.document.writeln ("  border-bottom-style:solid;");
  winINI.document.writeln ("  border-top-width: 2px;");
  winINI.document.writeln ("  border-left-width: 2px;");
  winINI.document.writeln ("  border-right-width: 2px;");
  winINI.document.writeln ("  border-bottom-width: 2px;");
  winINI.document.writeln ("  border-top-color:#F0F0D0;");
  winINI.document.writeln ("  border-right-color:#A0A080;");
  winINI.document.writeln ("  border-left-color:#F0F0D0;");
  winINI.document.writeln ("  border-bottom-color:#A0A080;}");
  winINI.document.writeln (".select{font-family: Italic;");
  winINI.document.writeln ("  font-size: 11pt;");
  winINI.document.writeln ("  color: #555555;");
  winINI.document.writeln ("  background-color:#FFFFDF;");
  winINI.document.writeln ("  border-top-style:solid;");
  winINI.document.writeln ("  border-right-style:solid;");
  winINI.document.writeln ("  border-left-style:solid;");
  winINI.document.writeln ("  border-bottom-style:solid;");
  winINI.document.writeln ("  border-top-width: 2px;");
  winINI.document.writeln ("  border-left-width: 2px;");
  winINI.document.writeln ("  border-right-width: 2px;");
  winINI.document.writeln ("  border-bottom-width: 2px;");
  winINI.document.writeln ("  border-top-color:#F0F0D0;");
  winINI.document.writeln ("  border-right-color:#A0A080;");
  winINI.document.writeln ("  border-left-color:#F0F0D0;");
  winINI.document.writeln ("  border-bottom-color:#A0A080;}");
  winINI.document.writeln ("a:hover{color:red;}");
  winINI.document.writeln ("</style>");
  winINI.document.writeln ("<TITLE>to HB-Yacht your X-REF.INI-File</TITLE></HEAD><BODY BGCOLOR=#FFFFDD>");
  winINI.document.writeln ("<FONT COLOR=\"blue\">These monitor show the defined X-REF settings to send a mail to N. Huser, HB-Yacht<BR><BR>");
  winINI.document.writeln ("<form name=\"INIMailHBY\" action=\"mailto:info@hb-yacht.ch\" method=\"post\" enctype=\"text/plain\">");
  winINI.document.writeln ("<TEXTAREA NAME=\"XREFTXT\" COLS=\"150\" ROWS=\"35\"></TEXTAREA>");
  winINI.document.writeln ("<INPUT CLASS=\"button\" TYPE=\"submit\" VALUE=\"SEND X-REFERENCE TO HB-YACHT\">");
  winINI.document.writeln ("</form>");
  winINI.document.INIMailHBY.elements[0].value = XRText;
  winINI.document.writeln ("</BODY></HTML>");
  winINI.document.close();
  return;
}

function WPMAIL(tstxt)
{ if (RSGPS==0) return;
  if (tstxt!="HBY") return;
  var navtool = navigator.appName;
  return;
}

function WX_Verzeichnis()
{ atag = ob_date.getUTCDate();
  var TabL = "<TR><TD WIDTH=\"20%\" VALIGN=\"TOP\"><FONT SIZE=4 COLOR=\"#751075\">  </FONT></TD><TD WIDTH=\"40%\" VALIGN=\"TOP\"><FONT SIZE=4 COLOR=\"#751075\"><A HREF=\"http://ftp.hb-yacht.ch/ASXX21.";
  var TabM = "</A></FONT></TD><TD WIDTH=\"40%\" VALIGN=\"TOP\"><FONT SIZE=4 COLOR=\"#751075\"><A HREF=\"http://ftp.hb-yacht.ch/FSXX21.";
  var TabR = "</A></FONT></TD></TR>";
  if ((0 < atag) && (atag < 8))
  { HBYTabGelb ("WXV","icowx",tmp,"HB-Yacht","HTTP://FTP.HB-YACHT.CH (30 - 8)",
  "<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=3 WIDTH=400><TBODY><TR>"
  + TabL + "300000\" TARGET=\"_blank\">ASXX21.300000" + TabM + "300000\" TARGET=\"_blank\">FSXX21.300000" + TabR
  + TabL + "300600\" TARGET=\"_blank\">ASXX21.300600" + TabM + "300600\" TARGET=\"_blank\">FSXX21.300600" + TabR
  + TabL + "301200\" TARGET=\"_blank\">ASXX21.301200" + TabM + "301200\" TARGET=\"_blank\">FSXX21.301200" + TabR
  + TabL + "301800\" TARGET=\"_blank\">ASXX21.301800" + TabM + "301800\" TARGET=\"_blank\">FSXX21.301800" + TabR
  + TabL + "310000\" TARGET=\"_blank\">ASXX21.310000" + TabM + "310000\" TARGET=\"_blank\">FSXX21.310000" + TabR
  + TabL + "310600\" TARGET=\"_blank\">ASXX21.310600" + TabM + "310600\" TARGET=\"_blank\">FSXX21.310600" + TabR
  + TabL + "311200\" TARGET=\"_blank\">ASXX21.311200" + TabM + "311200\" TARGET=\"_blank\">FSXX21.311200" + TabR
  + TabL + "311800\" TARGET=\"_blank\">ASXX21.311800" + TabM + "311800\" TARGET=\"_blank\">FSXX21.311800" + TabR
  + TabL + "010000\" TARGET=\"_blank\">ASXX21.010000" + TabM + "010000\" TARGET=\"_blank\">FSXX21.010000" + TabR
  + TabL + "010600\" TARGET=\"_blank\">ASXX21.010600" + TabM + "010600\" TARGET=\"_blank\">FSXX21.010600" + TabR
  + TabL + "011200\" TARGET=\"_blank\">ASXX21.011200" + TabM + "011200\" TARGET=\"_blank\">FSXX21.011200" + TabR
  + TabL + "011800\" TARGET=\"_blank\">ASXX21.011800" + TabM + "011800\" TARGET=\"_blank\">FSXX21.011800" + TabR
  + TabL + "020000\" TARGET=\"_blank\">ASXX21.020000" + TabM + "020000\" TARGET=\"_blank\">FSXX21.020000" + TabR
  + TabL + "020600\" TARGET=\"_blank\">ASXX21.020600" + TabM + "020600\" TARGET=\"_blank\">FSXX21.020600" + TabR
  + TabL + "021200\" TARGET=\"_blank\">ASXX21.021200" + TabM + "021200\" TARGET=\"_blank\">FSXX21.021200" + TabR
  + TabL + "021800\" TARGET=\"_blank\">ASXX21.021800" + TabM + "021800\" TARGET=\"_blank\">FSXX21.021800" + TabR
  + TabL + "030000\" TARGET=\"_blank\">ASXX21.030000" + TabM + "030000\" TARGET=\"_blank\">FSXX21.030000" + TabR
  + TabL + "030600\" TARGET=\"_blank\">ASXX21.030600" + TabM + "030600\" TARGET=\"_blank\">FSXX21.030600" + TabR
  + TabL + "031200\" TARGET=\"_blank\">ASXX21.031200" + TabM + "031200\" TARGET=\"_blank\">FSXX21.031200" + TabR
  + TabL + "031800\" TARGET=\"_blank\">ASXX21.031800" + TabM + "031800\" TARGET=\"_blank\">FSXX21.031800" + TabR
  + TabL + "040000\" TARGET=\"_blank\">ASXX21.040000" + TabM + "040000\" TARGET=\"_blank\">FSXX21.040000" + TabR
  + TabL + "040600\" TARGET=\"_blank\">ASXX21.040600" + TabM + "040600\" TARGET=\"_blank\">FSXX21.040600" + TabR
  + TabL + "041200\" TARGET=\"_blank\">ASXX21.041200" + TabM + "041200\" TARGET=\"_blank\">FSXX21.041200" + TabR
  + TabL + "041800\" TARGET=\"_blank\">ASXX21.041800" + TabM + "041800\" TARGET=\"_blank\">FSXX21.041800" + TabR
  + TabL + "050000\" TARGET=\"_blank\">ASXX21.050000" + TabM + "050000\" TARGET=\"_blank\">FSXX21.050000" + TabR
  + TabL + "050600\" TARGET=\"_blank\">ASXX21.050600" + TabM + "050600\" TARGET=\"_blank\">FSXX21.050600" + TabR
  + TabL + "051200\" TARGET=\"_blank\">ASXX21.051200" + TabM + "051200\" TARGET=\"_blank\">FSXX21.051200" + TabR
  + TabL + "051800\" TARGET=\"_blank\">ASXX21.051800" + TabM + "051800\" TARGET=\"_blank\">FSXX21.051800" + TabR
  + TabL + "060000\" TARGET=\"_blank\">ASXX21.060000" + TabM + "060000\" TARGET=\"_blank\">FSXX21.060000" + TabR
  + TabL + "060600\" TARGET=\"_blank\">ASXX21.060600" + TabM + "060600\" TARGET=\"_blank\">FSXX21.060600" + TabR
  + TabL + "061200\" TARGET=\"_blank\">ASXX21.061200" + TabM + "061200\" TARGET=\"_blank\">FSXX21.061200" + TabR
  + TabL + "061800\" TARGET=\"_blank\">ASXX21.061800" + TabM + "061800\" TARGET=\"_blank\">FSXX21.061800" + TabR
  + TabL + "070000\" TARGET=\"_blank\">ASXX21.070000" + TabM + "070000\" TARGET=\"_blank\">FSXX21.070000" + TabR
  + TabL + "070600\" TARGET=\"_blank\">ASXX21.070600" + TabM + "070600\" TARGET=\"_blank\">FSXX21.070600" + TabR
  + TabL + "071200\" TARGET=\"_blank\">ASXX21.071200" + TabM + "071200\" TARGET=\"_blank\">FSXX21.071200" + TabR
  + TabL + "071800\" TARGET=\"_blank\">ASXX21.071800" + TabM + "071800\" TARGET=\"_blank\">FSXX21.071800" + TabR
  + TabL + "080000\" TARGET=\"_blank\">ASXX21.080000" + TabM + "080000\" TARGET=\"_blank\">FSXX21.080000" + TabR
  + TabL + "080600\" TARGET=\"_blank\">ASXX21.080600" + TabM + "080600\" TARGET=\"_blank\">FSXX21.080600" + TabR
  + TabL + "081200\" TARGET=\"_blank\">ASXX21.081200" + TabM + "081200\" TARGET=\"_blank\">FSXX21.081200" + TabR
  + TabL + "081800\" TARGET=\"_blank\">ASXX21.081800" + TabM + "081800\" TARGET=\"_blank\">FSXX21.081800" + TabR
  + "</TBODY></TABLE>");}
  if ((7 < atag) && (atag < 16))
  { HBYTabGelb ("WXV","icowx",tmp,"HB-Yacht","HTTP://FTP.HB-YACHT.CH (7 - 16)",
  "<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=3 WIDTH=400><TBODY><TR>"
  + TabL + "070000\" TARGET=\"_blank\">ASXX21.070000" + TabM + "070000\" TARGET=\"_blank\">FSXX21.070000" + TabR
  + TabL + "070600\" TARGET=\"_blank\">ASXX21.070600" + TabM + "070600\" TARGET=\"_blank\">FSXX21.070600" + TabR
  + TabL + "071200\" TARGET=\"_blank\">ASXX21.071200" + TabM + "071200\" TARGET=\"_blank\">FSXX21.071200" + TabR
  + TabL + "071800\" TARGET=\"_blank\">ASXX21.071800" + TabM + "071800\" TARGET=\"_blank\">FSXX21.071800" + TabR
  + TabL + "080000\" TARGET=\"_blank\">ASXX21.080000" + TabM + "080000\" TARGET=\"_blank\">FSXX21.080000" + TabR
  + TabL + "080600\" TARGET=\"_blank\">ASXX21.080600" + TabM + "080600\" TARGET=\"_blank\">FSXX21.080600" + TabR
  + TabL + "081200\" TARGET=\"_blank\">ASXX21.081200" + TabM + "081200\" TARGET=\"_blank\">FSXX21.081200" + TabR
  + TabL + "081800\" TARGET=\"_blank\">ASXX21.081800" + TabM + "081800\" TARGET=\"_blank\">FSXX21.081800" + TabR
  + TabL + "090000\" TARGET=\"_blank\">ASXX21.090000" + TabM + "090000\" TARGET=\"_blank\">FSXX21.090000" + TabR
  + TabL + "090600\" TARGET=\"_blank\">ASXX21.090600" + TabM + "090600\" TARGET=\"_blank\">FSXX21.090600" + TabR
  + TabL + "091200\" TARGET=\"_blank\">ASXX21.091200" + TabM + "091200\" TARGET=\"_blank\">FSXX21.091200" + TabR
  + TabL + "091800\" TARGET=\"_blank\">ASXX21.091800" + TabM + "091800\" TARGET=\"_blank\">FSXX21.091800" + TabR
  + TabL + "100000\" TARGET=\"_blank\">ASXX21.100000" + TabM + "100000\" TARGET=\"_blank\">FSXX21.100000" + TabR
  + TabL + "100600\" TARGET=\"_blank\">ASXX21.100600" + TabM + "100600\" TARGET=\"_blank\">FSXX21.100600" + TabR
  + TabL + "101200\" TARGET=\"_blank\">ASXX21.101200" + TabM + "101200\" TARGET=\"_blank\">FSXX21.101200" + TabR
  + TabL + "101800\" TARGET=\"_blank\">ASXX21.101800" + TabM + "101800\" TARGET=\"_blank\">FSXX21.101800" + TabR
  + TabL + "110000\" TARGET=\"_blank\">ASXX21.110000" + TabM + "110000\" TARGET=\"_blank\">FSXX21.110000" + TabR
  + TabL + "110600\" TARGET=\"_blank\">ASXX21.110600" + TabM + "110600\" TARGET=\"_blank\">FSXX21.110600" + TabR
  + TabL + "111200\" TARGET=\"_blank\">ASXX21.111200" + TabM + "111200\" TARGET=\"_blank\">FSXX21.111200" + TabR
  + TabL + "111800\" TARGET=\"_blank\">ASXX21.111800" + TabM + "111800\" TARGET=\"_blank\">FSXX21.111800" + TabR
  + TabL + "120000\" TARGET=\"_blank\">ASXX21.120000" + TabM + "120000\" TARGET=\"_blank\">FSXX21.120000" + TabR
  + TabL + "120600\" TARGET=\"_blank\">ASXX21.120600" + TabM + "120600\" TARGET=\"_blank\">FSXX21.120600" + TabR
  + TabL + "121200\" TARGET=\"_blank\">ASXX21.121200" + TabM + "121200\" TARGET=\"_blank\">FSXX21.121200" + TabR
  + TabL + "121800\" TARGET=\"_blank\">ASXX21.121800" + TabM + "121800\" TARGET=\"_blank\">FSXX21.121800" + TabR
  + TabL + "130000\" TARGET=\"_blank\">ASXX21.130000" + TabM + "130000\" TARGET=\"_blank\">FSXX21.130000" + TabR
  + TabL + "130600\" TARGET=\"_blank\">ASXX21.130600" + TabM + "130600\" TARGET=\"_blank\">FSXX21.130600" + TabR
  + TabL + "131200\" TARGET=\"_blank\">ASXX21.131200" + TabM + "131200\" TARGET=\"_blank\">FSXX21.131200" + TabR
  + TabL + "131800\" TARGET=\"_blank\">ASXX21.131800" + TabM + "131800\" TARGET=\"_blank\">FSXX21.131800" + TabR
  + TabL + "140000\" TARGET=\"_blank\">ASXX21.140000" + TabM + "140000\" TARGET=\"_blank\">FSXX21.140000" + TabR
  + TabL + "140600\" TARGET=\"_blank\">ASXX21.140600" + TabM + "140600\" TARGET=\"_blank\">FSXX21.140600" + TabR
  + TabL + "141200\" TARGET=\"_blank\">ASXX21.141200" + TabM + "141200\" TARGET=\"_blank\">FSXX21.141200" + TabR
  + TabL + "141800\" TARGET=\"_blank\">ASXX21.141800" + TabM + "141800\" TARGET=\"_blank\">FSXX21.141800" + TabR
  + TabL + "150000\" TARGET=\"_blank\">ASXX21.150000" + TabM + "150000\" TARGET=\"_blank\">FSXX21.150000" + TabR
  + TabL + "150600\" TARGET=\"_blank\">ASXX21.150600" + TabM + "150600\" TARGET=\"_blank\">FSXX21.150600" + TabR
  + TabL + "151200\" TARGET=\"_blank\">ASXX21.151200" + TabM + "151200\" TARGET=\"_blank\">FSXX21.151200" + TabR
  + TabL + "151800\" TARGET=\"_blank\">ASXX21.151800" + TabM + "151800\" TARGET=\"_blank\">FSXX21.151800" + TabR
  + TabL + "160000\" TARGET=\"_blank\">ASXX21.160000" + TabM + "160000\" TARGET=\"_blank\">FSXX21.160000" + TabR
  + TabL + "160600\" TARGET=\"_blank\">ASXX21.160600" + TabM + "160600\" TARGET=\"_blank\">FSXX21.160600" + TabR
  + TabL + "161200\" TARGET=\"_blank\">ASXX21.161200" + TabM + "161200\" TARGET=\"_blank\">FSXX21.161200" + TabR
  + TabL + "161800\" TARGET=\"_blank\">ASXX21.161800" + TabM + "161800\" TARGET=\"_blank\">FSXX21.161800" + TabR
  + "</TBODY></TABLE>");}
  if ((15 < atag) && (atag < 24))
  { HBYTabGelb ("WXV","icowx",tmp,"HB-Yacht","HTTP://FTP.HB-YACHT.CH (15 - 24)",
  "<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=3 WIDTH=400><TBODY><TR>"
  + TabL + "150000\" TARGET=\"_blank\">ASXX21.150000" + TabM + "150000\" TARGET=\"_blank\">FSXX21.150000" + TabR
  + TabL + "150600\" TARGET=\"_blank\">ASXX21.150600" + TabM + "150600\" TARGET=\"_blank\">FSXX21.150600" + TabR
  + TabL + "151200\" TARGET=\"_blank\">ASXX21.151200" + TabM + "151200\" TARGET=\"_blank\">FSXX21.151200" + TabR
  + TabL + "151800\" TARGET=\"_blank\">ASXX21.151800" + TabM + "151800\" TARGET=\"_blank\">FSXX21.151800" + TabR
  + TabL + "160000\" TARGET=\"_blank\">ASXX21.160000" + TabM + "160000\" TARGET=\"_blank\">FSXX21.160000" + TabR
  + TabL + "160600\" TARGET=\"_blank\">ASXX21.160600" + TabM + "160600\" TARGET=\"_blank\">FSXX21.160600" + TabR
  + TabL + "161200\" TARGET=\"_blank\">ASXX21.161200" + TabM + "161200\" TARGET=\"_blank\">FSXX21.161200" + TabR
  + TabL + "161800\" TARGET=\"_blank\">ASXX21.161800" + TabM + "161800\" TARGET=\"_blank\">FSXX21.161800" + TabR
  + TabL + "170000\" TARGET=\"_blank\">ASXX21.170000" + TabM + "170000\" TARGET=\"_blank\">FSXX21.170000" + TabR
  + TabL + "170600\" TARGET=\"_blank\">ASXX21.170600" + TabM + "170600\" TARGET=\"_blank\">FSXX21.170600" + TabR
  + TabL + "171200\" TARGET=\"_blank\">ASXX21.171200" + TabM + "171200\" TARGET=\"_blank\">FSXX21.171200" + TabR
  + TabL + "171800\" TARGET=\"_blank\">ASXX21.171800" + TabM + "171800\" TARGET=\"_blank\">FSXX21.171800" + TabR
  + TabL + "180000\" TARGET=\"_blank\">ASXX21.180000" + TabM + "180000\" TARGET=\"_blank\">FSXX21.180000" + TabR
  + TabL + "180600\" TARGET=\"_blank\">ASXX21.180600" + TabM + "180600\" TARGET=\"_blank\">FSXX21.180600" + TabR
  + TabL + "181200\" TARGET=\"_blank\">ASXX21.181200" + TabM + "181200\" TARGET=\"_blank\">FSXX21.181200" + TabR
  + TabL + "181800\" TARGET=\"_blank\">ASXX21.181800" + TabM + "181800\" TARGET=\"_blank\">FSXX21.181800" + TabR
  + TabL + "190000\" TARGET=\"_blank\">ASXX21.190000" + TabM + "190000\" TARGET=\"_blank\">FSXX21.190000" + TabR
  + TabL + "190600\" TARGET=\"_blank\">ASXX21.190600" + TabM + "190600\" TARGET=\"_blank\">FSXX21.190600" + TabR
  + TabL + "191200\" TARGET=\"_blank\">ASXX21.191200" + TabM + "191200\" TARGET=\"_blank\">FSXX21.191200" + TabR
  + TabL + "191800\" TARGET=\"_blank\">ASXX21.191800" + TabM + "191800\" TARGET=\"_blank\">FSXX21.191800" + TabR
  + TabL + "200000\" TARGET=\"_blank\">ASXX21.200000" + TabM + "200000\" TARGET=\"_blank\">FSXX21.200000" + TabR
  + TabL + "200600\" TARGET=\"_blank\">ASXX21.200600" + TabM + "200600\" TARGET=\"_blank\">FSXX21.200600" + TabR
  + TabL + "201200\" TARGET=\"_blank\">ASXX21.201200" + TabM + "201200\" TARGET=\"_blank\">FSXX21.201200" + TabR
  + TabL + "201800\" TARGET=\"_blank\">ASXX21.201800" + TabM + "201800\" TARGET=\"_blank\">FSXX21.201800" + TabR
  + TabL + "210000\" TARGET=\"_blank\">ASXX21.210000" + TabM + "210000\" TARGET=\"_blank\">FSXX21.210000" + TabR
  + TabL + "210600\" TARGET=\"_blank\">ASXX21.210600" + TabM + "210600\" TARGET=\"_blank\">FSXX21.210600" + TabR
  + TabL + "211200\" TARGET=\"_blank\">ASXX21.211200" + TabM + "211200\" TARGET=\"_blank\">FSXX21.211200" + TabR
  + TabL + "211800\" TARGET=\"_blank\">ASXX21.211800" + TabM + "211800\" TARGET=\"_blank\">FSXX21.211800" + TabR
  + TabL + "220000\" TARGET=\"_blank\">ASXX21.220000" + TabM + "220000\" TARGET=\"_blank\">FSXX21.220000" + TabR
  + TabL + "220600\" TARGET=\"_blank\">ASXX21.220600" + TabM + "220600\" TARGET=\"_blank\">FSXX21.220600" + TabR
  + TabL + "221200\" TARGET=\"_blank\">ASXX21.221200" + TabM + "221200\" TARGET=\"_blank\">FSXX21.221200" + TabR
  + TabL + "221800\" TARGET=\"_blank\">ASXX21.221800" + TabM + "221800\" TARGET=\"_blank\">FSXX21.221800" + TabR
  + TabL + "230000\" TARGET=\"_blank\">ASXX21.230000" + TabM + "230000\" TARGET=\"_blank\">FSXX21.230000" + TabR
  + TabL + "230600\" TARGET=\"_blank\">ASXX21.230600" + TabM + "230600\" TARGET=\"_blank\">FSXX21.230600" + TabR
  + TabL + "231200\" TARGET=\"_blank\">ASXX21.231200" + TabM + "231200\" TARGET=\"_blank\">FSXX21.231200" + TabR
  + TabL + "231800\" TARGET=\"_blank\">ASXX21.231800" + TabM + "231800\" TARGET=\"_blank\">FSXX21.231800" + TabR
  + TabL + "240000\" TARGET=\"_blank\">ASXX21.240000" + TabM + "240000\" TARGET=\"_blank\">FSXX21.240000" + TabR
  + TabL + "240600\" TARGET=\"_blank\">ASXX21.240600" + TabM + "240600\" TARGET=\"_blank\">FSXX21.240600" + TabR
  + TabL + "241200\" TARGET=\"_blank\">ASXX21.241200" + TabM + "241200\" TARGET=\"_blank\">FSXX21.241200" + TabR
  + TabL + "241800\" TARGET=\"_blank\">ASXX21.241800" + TabM + "241800\" TARGET=\"_blank\">FSXX21.241800" + TabR
  + "</TBODY></TABLE>");}
  if ((23 < atag) && (atag < 32))
  { HBYTabGelb ("WXV","icowx",tmp,"HB-Yacht","HTTP://FTP.HB-YACHT.CH (23 - 31)",
  "<TABLE CELLSPACING=0 BORDER=0 CELLPADDING=3 WIDTH=400><TBODY><TR>"
  + TabL + "230000\" TARGET=\"_blank\">ASXX21.230000" + TabM + "230000\" TARGET=\"_blank\">FSXX21.230000" + TabR
  + TabL + "230600\" TARGET=\"_blank\">ASXX21.230600" + TabM + "230600\" TARGET=\"_blank\">FSXX21.230600" + TabR
  + TabL + "231200\" TARGET=\"_blank\">ASXX21.231200" + TabM + "231200\" TARGET=\"_blank\">FSXX21.231200" + TabR
  + TabL + "231800\" TARGET=\"_blank\">ASXX21.231800" + TabM + "231800\" TARGET=\"_blank\">FSXX21.231800" + TabR
  + TabL + "240000\" TARGET=\"_blank\">ASXX21.240000" + TabM + "240000\" TARGET=\"_blank\">FSXX21.240000" + TabR
  + TabL + "240600\" TARGET=\"_blank\">ASXX21.240600" + TabM + "240600\" TARGET=\"_blank\">FSXX21.240600" + TabR
  + TabL + "241200\" TARGET=\"_blank\">ASXX21.241200" + TabM + "241200\" TARGET=\"_blank\">FSXX21.241200" + TabR
  + TabL + "241800\" TARGET=\"_blank\">ASXX21.241800" + TabM + "241800\" TARGET=\"_blank\">FSXX21.241800" + TabR
  + TabL + "250000\" TARGET=\"_blank\">ASXX21.250000" + TabM + "250000\" TARGET=\"_blank\">FSXX21.250000" + TabR
  + TabL + "250600\" TARGET=\"_blank\">ASXX21.250600" + TabM + "250600\" TARGET=\"_blank\">FSXX21.250600" + TabR
  + TabL + "251200\" TARGET=\"_blank\">ASXX21.251200" + TabM + "251200\" TARGET=\"_blank\">FSXX21.251200" + TabR
  + TabL + "251800\" TARGET=\"_blank\">ASXX21.251800" + TabM + "251800\" TARGET=\"_blank\">FSXX21.251800" + TabR
  + TabL + "260000\" TARGET=\"_blank\">ASXX21.260000" + TabM + "260000\" TARGET=\"_blank\">FSXX21.260000" + TabR
  + TabL + "260600\" TARGET=\"_blank\">ASXX21.260600" + TabM + "260600\" TARGET=\"_blank\">FSXX21.260600" + TabR
  + TabL + "261200\" TARGET=\"_blank\">ASXX21.261200" + TabM + "261200\" TARGET=\"_blank\">FSXX21.261200" + TabR
  + TabL + "261800\" TARGET=\"_blank\">ASXX21.261800" + TabM + "261800\" TARGET=\"_blank\">FSXX21.261800" + TabR
  + TabL + "270000\" TARGET=\"_blank\">ASXX21.270000" + TabM + "270000\" TARGET=\"_blank\">FSXX21.270000" + TabR
  + TabL + "270600\" TARGET=\"_blank\">ASXX21.270600" + TabM + "270600\" TARGET=\"_blank\">FSXX21.270600" + TabR
  + TabL + "271200\" TARGET=\"_blank\">ASXX21.271200" + TabM + "271200\" TARGET=\"_blank\">FSXX21.271200" + TabR
  + TabL + "271800\" TARGET=\"_blank\">ASXX21.271800" + TabM + "271800\" TARGET=\"_blank\">FSXX21.271800" + TabR
  + TabL + "280000\" TARGET=\"_blank\">ASXX21.280000" + TabM + "280000\" TARGET=\"_blank\">FSXX21.280000" + TabR
  + TabL + "280600\" TARGET=\"_blank\">ASXX21.280600" + TabM + "280600\" TARGET=\"_blank\">FSXX21.280600" + TabR
  + TabL + "281200\" TARGET=\"_blank\">ASXX21.281200" + TabM + "281200\" TARGET=\"_blank\">FSXX21.281200" + TabR
  + TabL + "281800\" TARGET=\"_blank\">ASXX21.281800" + TabM + "281800\" TARGET=\"_blank\">FSXX21.281800" + TabR
  + TabL + "290000\" TARGET=\"_blank\">ASXX21.290000" + TabM + "290000\" TARGET=\"_blank\">FSXX21.290000" + TabR
  + TabL + "290600\" TARGET=\"_blank\">ASXX21.290600" + TabM + "290600\" TARGET=\"_blank\">FSXX21.290600" + TabR
  + TabL + "291200\" TARGET=\"_blank\">ASXX21.291200" + TabM + "291200\" TARGET=\"_blank\">FSXX21.291200" + TabR
  + TabL + "291800\" TARGET=\"_blank\">ASXX21.291800" + TabM + "291800\" TARGET=\"_blank\">FSXX21.291800" + TabR
  + TabL + "300000\" TARGET=\"_blank\">ASXX21.300000" + TabM + "300000\" TARGET=\"_blank\">FSXX21.300000" + TabR
  + TabL + "300600\" TARGET=\"_blank\">ASXX21.300600" + TabM + "300600\" TARGET=\"_blank\">FSXX21.300600" + TabR
  + TabL + "301200\" TARGET=\"_blank\">ASXX21.301200" + TabM + "301200\" TARGET=\"_blank\">FSXX21.301200" + TabR
  + TabL + "301800\" TARGET=\"_blank\">ASXX21.301800" + TabM + "301800\" TARGET=\"_blank\">FSXX21.301800" + TabR
  + TabL + "310000\" TARGET=\"_blank\">ASXX21.310000" + TabM + "310000\" TARGET=\"_blank\">FSXX21.310000" + TabR
  + TabL + "310600\" TARGET=\"_blank\">ASXX21.310600" + TabM + "310600\" TARGET=\"_blank\">FSXX21.310600" + TabR
  + TabL + "311200\" TARGET=\"_blank\">ASXX21.311200" + TabM + "311200\" TARGET=\"_blank\">FSXX21.311200" + TabR
  + TabL + "311800\" TARGET=\"_blank\">ASXX21.311800" + TabM + "311800\" TARGET=\"_blank\">FSXX21.311800" + TabR
  + "</TBODY></TABLE>");}
  return 0;
}