<!--
// Copyright by LOGITRON Rolf Hieke
// 01.12.2001 Code C4
// 01.10.2002 Code C5
// 05.10.2002 UP-Date h-Code
// 09.10.2002 UP-Date h_wecker
//
// Variablen Deklaration
var m_code1 = "C4xRFxFTLtHpKdnWVUzzIBZy";
var r_code1 = "C4000000000000100000000Y";
var c_code1 = "C4000000000000100000000Y";
var h_code1 = "C4000000000000100000000Y";

var y_code1 = "Z"
var x_code1 = "Z"
var r_ctr1 = "Z"
var t_hex_datum = "ZZZ"
var r_hex32a = "ZZZ";
var r_hex32b = "ZZZ";
var r_hexkdn = "ZZZ";
var r_cnt_lt = "ZZ";
var r_cnt_hp = "ZZ";
var r_ibz = "ZZ"
var r_deckdn = 1;
var r_clk_w = "Z";
var r_clk_v = "Z";
var r_clk_u = "Z";
var x_clk = "Z";
var x_wert =1.111;
var x_text = "Z";
var a_text = "Z";
var a_wert = 1;
var b_text = "Z";
var b_wert = 1;
var a_dec = 1;
var b_dec = 1;
var x_dec = 1;
var u_dec = 1;
var v_dec = 1;
var w_dec = 1;
var a_hex32 = "ZZZ";
var b_hex32 = "ZZZ";
var x_hex32 = "ZZZ";
var u_hex32 = "Z";
var v_hex32 = "Z";
var w_hex32 = "Z";
var a_datum = new Date();
var b_datum = new Date();
var x_datum = new Date();
var x_error = "INIT";

var m_code5 = "C5xRFxFTxHYxRRxGDxCDxLPy";
var r_code5 = "C5P00P00P00P00P00P00P00Y";
var c_code5 = "C5P00P00P00P00P00P00P00Y";
var h_code5 = "C5P00P00P00P00P00P00P00Y";

var r5_cnt_rf= "ZZ";
var r5_cnt_ft= "ZZ";
var r5_cnt_hy= "ZZ";
var r5_cnt_rr= "ZZ";
var r5_cnt_gd= "ZZ";
var r5_cnt_cd= "ZZ";
var r5_cnt_lp= "ZZ";

var r5_key_rf= "Z";
var r5_key_ft= "Z";
var r5_key_hy= "Z";
var r5_key_rr= "Z";
var r5_key_gd= "Z";
var r5_key_cd= "Z";
var r5_key_lp= "Z";
var r5_rest= "Y";
var r5_head= "C5";

var x_cnt = "ZZ";
var y_cnt = "ZZ";

var h_zeit, h_datum, h_banner;
var r_code3 ="ZZ01:02:03/15.09.1957";
var c_code3 ="ZZ01:02:03/15.09.1957";
var h_code3 ="ZZ01:02:03/15.09.1957";
var r3_head ="ZZXX";



function h_wecker () 
  {
  Jetzt = new Date();

        //aktuelle Uhrzeit

        Stunden = Jetzt.getHours();
        Minuten = Jetzt.getMinutes();
        Sekunden = Jetzt.getSeconds();
        h_zeit =  ((Stunden < 10) ? ":0" : ":") + Stunden;
        h_zeit += ((Minuten < 10) ? ":0" : ":") + Minuten;
        h_zeit += ((Sekunden < 10) ? ":0" : ":") + Sekunden;
        
        //aktuelles Datum
        Tag= Jetzt.getDate();
        Monat= Jetzt.getMonth()+1;
        Jahr= Jetzt.getYear();
		
		// Probleme mit 2-stelligen Jahreszahlen in einigen Browsern umgehen  
		if ((Jahr > 99) && (Jahr < 1900)) Jahr += 1900; 

        h_datum =  ((Tag < 10) ? "0" : "") + Tag;
        h_datum += ((Monat < 10) ? ".0" : ".") + Monat;
        h_datum += "." + Jahr;

		

        h_banner=(h_datum + "/" + h_zeit);
        
  }

function text2wert()
  {
  x_error = "CLEA";
  if (x_text == "Z") {x_wert=0; x_error="ERRZ"}
  if (x_text == "0") {x_wert=0;}
  if (x_text == "1") {x_wert=1;}
  if (x_text == "2") {x_wert=2;}
  if (x_text == "3") {x_wert=3;}
  if (x_text == "4") {x_wert=4;}
  if (x_text == "5") {x_wert=5;}
  if (x_text == "6") {x_wert=6;}
  if (x_text == "7") {x_wert=7;}
  if (x_text == "8") {x_wert=8;}
  if (x_text == "9") {x_wert=9;}
  if (x_text == "A") {x_wert=10;}
  if (x_text == "B") {x_wert=11;}
  if (x_text == "C") {x_wert=12;}
  if (x_text == "D") {x_wert=13;}
  if (x_text == "E") {x_wert=14;}
  if (x_text == "F") {x_wert=15;}

  if (x_text == "G") {x_wert=16;}
  if (x_text == "H") {x_wert=17;}
  if (x_text == "I") {x_wert=18;}
  if (x_text == "J") {x_wert=19;}
  if (x_text == "K") {x_wert=20;}
  if (x_text == "L") {x_wert=21;}
  if (x_text == "M") {x_wert=22;}
  if (x_text == "N") {x_wert=23;}
  if (x_text == "O") {x_wert=24;}
  if (x_text == "P") {x_wert=25;}
  if (x_text == "Q") {x_wert=26;}
  if (x_text == "R") {x_wert=27;}
  if (x_text == "S") {x_wert=28;}
  if (x_text == "T") {x_wert=29;}
  if (x_text == "U") {x_wert=30;}
  if (x_text == "V") {x_wert=31;}
  }

function wert2text()
  {
  var temp_wert;
  if (x_wert >= 32) {x_text="0"; temp_wert=0; x_error="OVER"}

  if (x_wert < 32) {x_text="V"; temp_wert=31;}
  if (x_wert < 31) {x_text="U"; temp_wert=30;}
  if (x_wert < 30) {x_text="T"; temp_wert=29;}
  if (x_wert < 29) {x_text="S"; temp_wert=28;}

  if (x_wert < 28) {x_text="R"; temp_wert=27;}
  if (x_wert < 27) {x_text="Q"; temp_wert=26;}
  if (x_wert < 26) {x_text="P"; temp_wert=25;}
  if (x_wert < 25) {x_text="O"; temp_wert=24;}

  if (x_wert < 24) {x_text="N"; temp_wert=23;}
  if (x_wert < 23) {x_text="M"; temp_wert=22;}
  if (x_wert < 22) {x_text="L"; temp_wert=21;}
  if (x_wert < 21) {x_text="K"; temp_wert=20;}

  if (x_wert < 20) {x_text="J"; temp_wert=19;}
  if (x_wert < 19) {x_text="I"; temp_wert=18;}
  if (x_wert < 18) {x_text="H"; temp_wert=17;}
  if (x_wert < 17) {x_text="G"; temp_wert=16;}

  if (x_wert < 16) {x_text="F"; temp_wert=15;}
  if (x_wert < 15) {x_text="E"; temp_wert=14;}
  if (x_wert < 14) {x_text="D"; temp_wert=13;}
  if (x_wert < 13) {x_text="C"; temp_wert=12;}

  if (x_wert < 12) {x_text="B"; temp_wert=11;}
  if (x_wert < 11) {x_text="A"; temp_wert=10;}
  if (x_wert < 10) {x_text="9"; temp_wert= 9;}
  if (x_wert <  9) {x_text="8"; temp_wert= 8;}

  if (x_wert <  8) {x_text="7"; temp_wert= 7;}
  if (x_wert <  7) {x_text="6"; temp_wert= 6;}
  if (x_wert <  6) {x_text="5"; temp_wert= 5;}
  if (x_wert <  5) {x_text="4"; temp_wert= 4;}

  if (x_wert <  4) {x_text="3"; temp_wert= 3;}
  if (x_wert <  3) {x_text="2"; temp_wert= 2;}
  if (x_wert <  2) {x_text="1"; temp_wert= 1;}
  if (x_wert <  1) {x_text="0"; temp_wert= 0;}

  x_wert = temp_wert;
  }

function rcl_back()
  {
   x_error = "CLEA";

   // Recall Backup ltcode  code1:
   
   var inhalt = document.cookie;   
   var start = inhalt.indexOf("ltcode=") + 7;   
   inhalt = inhalt.substring(start,inhalt.length)
   var ende = inhalt.indexOf(";");
   if (ende == -1)
     ende = inhalt.length;

   inhalt = inhalt.substring(0,ende);	
   r_code1 = inhalt;
   h_code1 = inhalt;

   // code1 chek 
   x_error="SAVE";

   r_ctr1=r_code1.substring(23,24);
   if (r_ctr1!="Y") { r_code1= c_code1; x_error="CHEK";}

   // code1 Version
   var r_hea1=r_code1.substring(0,2);
   if (r_hea1!="C4") { r_code1=c_code1; x_error="VERS"; }


   // code1 make sektoren
   var r_hea1=r_code1.substring(0,2);

   r_hex32a = r_code1.substring(2,5); 
   r_hex32b = r_code1.substring(5,8); 

   r_cnt_lt = r_code1.substring(8,10); 
   r_cnt_hp = r_code1.substring(10,12);     
 
   r_hexkdn = r_code1.substring(12,15);         
   r_clk_w = r_code1.substring(15,16);   
   r_clk_v = r_code1.substring(16,17);      
   r_clk_u = r_code1.substring(17,18);      
   r_ibz = r_code1.substring(21,23);           
   r_ctr1 = r_code1.substring(23,24);

   if (x_error == "SAVE") 
     {
     if (r_hexkdn == "001") {r_hexkdn = "002";x_error = "S002";}
     }
   

   //ENDE Block call_get
  }


function rcl3_back()
  {
   x_error = "CLEA";

   h_wecker();
   c_code3="C3--" + h_banner + "Y";

   // Recall Backup ltcod3  code3
   
   var inhalt = document.cookie;   
   var start = inhalt.indexOf("ltcod3=") + 7;   
   inhalt = inhalt.substring(start,inhalt.length)
   var ende = inhalt.indexOf(";");
   if (ende == -1)
     ende = inhalt.length;

   inhalt = inhalt.substring(0,ende);	
   r_code3 = inhalt;
   h_code3 = inhalt;

   // code3 chek 
   x_error="SAVE";

   // code5 Version
   r3_head=r_code3.substring(0,4);
   if (r3_head!="C3--") { r_code3=c_code3; x_error="VERS"; }
 
   //ENDE Block recall Code3
  }


function rcl5_back()
  {
   x_error = "CLEA";

   // Recall Backup ltcod5  code5
   
   var inhalt = document.cookie;   
   var start = inhalt.indexOf("ltcod5=") + 7;   
   inhalt = inhalt.substring(start,inhalt.length)
   var ende = inhalt.indexOf(";");
   if (ende == -1)
     ende = inhalt.length;

   inhalt = inhalt.substring(0,ende);	
   r_code5 = inhalt;
   h_code5 = inhalt;

   // code5 chek 
   x_error="SAVE";

   r5_rest=r_code5.substring(23,24);
   if (r5_rest!="Y") { r_code5= c_code5; x_error="CHEK";}

   // code5 Version
   r5_head=r_code5.substring(0,2);
   if (r5_head!="C5") { r_code5=c_code5; x_error="VERS"; }


   // code5 make sektoren
   r5_head =r_code5.substring(0,2);

   r5_key_rf = r_code5.substring(2,3);
   r5_cnt_rf = r_code5.substring(3,5); 

   r5_key_ft = r_code5.substring(5,6);
   r5_cnt_ft = r_code5.substring(6,8); 

   r5_key_hy = r_code5.substring(8,9);
   r5_cnt_hy = r_code5.substring(9,11); 

   r5_key_rr = r_code5.substring(11,12);
   r5_cnt_rr = r_code5.substring(12,14); 

   r5_key_gd = r_code5.substring(14,15);
   r5_cnt_gd = r_code5.substring(15,17); 

   r5_key_cd = r_code5.substring(17,18);
   r5_cnt_cd = r_code5.substring(18,20); 

   r5_key_lp = r_code5.substring(20,21); 
   r5_cnt_lp = r_code5.substring(21,23);

   r5_rest = r_code5.substring(23,24); 
 
   //ENDE Block recall Code5
  }

function clr_back()
   {

   var verfall=1000*60*60*24*730;		
   var jetzt = new Date();
   var verfallzeit = new Date(jetzt.getTime() + 
       verfall);
   verfallzeit = verfallzeit.toGMTString();
   x_error="DELE";
   r_code1 = c_code1;

   document.cookie = "ltcode=" + r_code1 + "; expires=" + verfallzeit + ";" ;
   }

function sto_back()
  {
   var verfall=1000*60*60*24*730;		
   var jetzt = new Date();
   var verfallzeit = new Date(jetzt.getTime() + 
       verfall);
   verfallzeit = verfallzeit.toGMTString();
  
   stamp_datum();

   r_code1="C4" + r_hex32a + r_hex32b + r_cnt_lt + r_cnt_hp + r_hexkdn;
   r_code1= r_code1 + r_clk_w + r_clk_v + r_clk_u + "---" + r_ibz + "Y";
   document.cookie = "ltcode=" + r_code1 + "; expires=" + verfallzeit + ";" ;
  }

function sto3_back()
  {
   var verfall=1000*60*60*24*730;		
   var jetzt = new Date();
   var verfallzeit = new Date(jetzt.getTime() + 
       verfall);
   verfallzeit = verfallzeit.toGMTString();
  
   stamp_datum();
   
   document.cookie = "ltcod3=" + r_code3 + "; expires=" + verfallzeit + ";" ;
  }

function sto5_back()
  {
   var verfall=1000*60*60*24*730;		
   var jetzt = new Date();
   var verfallzeit = new Date(jetzt.getTime() + 
       verfall);
   verfallzeit = verfallzeit.toGMTString();
  
   stamp_datum();

   r_code5="C5" + r5_key_rf + r5_cnt_rf + r5_key_ft + r5_cnt_ft + r5_key_hy + r5_cnt_hy;
   r_code5= r_code5 + r5_key_rr + r5_cnt_rr + r5_key_gd + r5_cnt_gd + r5_key_cd + r5_cnt_cd;
   r_code5= r_code5 + r5_key_lp + r5_cnt_lp + "Y";
   document.cookie = "ltcod5=" + r_code5 + "; expires=" + verfallzeit + ";" ;
  }

function hex2dec()
  {
   w_hex32 = x_hex32.substring(0,1);  
   v_hex32 = x_hex32.substring(1,2);  
   u_hex32 = x_hex32.substring(2,3);  

   x_text=u_hex32;
   text2wert();
   text2wert();
   u_dec=x_wert;

   x_text=v_hex32;
   text2wert();
   text2wert();
   v_dec=x_wert;

   x_text=w_hex32;
   text2wert();
   text2wert();
   w_dec=x_wert;

   x_dec = (1024*w_dec + 32*v_dec + u_dec);
  }

function datum2dec()
  {
   x_dec = new Date(x_datum.getTime());   
  }

function dec2datum()
  {
   x_datum = new Date(x_dec);   
  }

function d_datum()
  {
   a_dec = a_datum.getTime();      
   b_dec = b_datum.getTime();   
   x_dec = ((b_dec - a_dec)/86400000);
   x_dec = x_dec+0.5;
   dec2hex();
   dec2hex();
   hex2dec();
   hex2dec();
  }

function absolut_tage_2000()
  {   
   var tag_2000 = new Date(946681201000)   
   x_dec = ((x_datum.getTime() - tag_2000.getTime())/86400000);
   x_dec = x_dec+0.5;
   dec2hex();
   dec2hex();
   hex2dec();
   hex2dec();
  }

function absolut2Datum()
  {  
   hex2dec();   
   x_datum = new Date(946681201000+(x_dec*86400000));
  }

function stamp_datum()
  {  
   x_datum = new Date();
   absolut_tage_2000();
   t_hex_datum = x_hex32;
   if (r_hex32b != t_hex_datum) 
     {
     r_hex32a = r_hex32b;
     r_hex32b = t_hex_datum;
     key_clear();
     };
  }

function stamp_logitron()
  {
  x_hex32 = r_cnt_lt.substring(0,2);
  x_hex32 = ("0"+x_hex32);
  hex2dec();
  hex2dec();
  x_dec= x_dec+1;
  dec2hex();
  dec2hex();
  r_cnt_lt = (v_hex32 + u_hex32);
  }

function stamp_xx()
  {
  x_hex32 = x_cnt;
  x_hex32 = ("0"+x_hex32);
  hex2dec();
  hex2dec();
  x_dec= x_dec+1;
  dec2hex();
  dec2hex();  
  y_cnt = (v_hex32 + u_hex32);
  }

function stamp_ibz()
  {  
     x_cnt = r_ibz;
     stamp_xx();
     r_ibz = y_cnt;
     key_clear();x_clk="7";stamp_click();
     r5_key_rf = "S";
  }

function stamp_rf()
  {  
  if (r5_key_rf != "S")
     {
     x_cnt = r5_cnt_rf;
     stamp_xx();
     r5_cnt_rf = y_cnt;
     key_clear();x_clk="R";stamp_click();
     r5_key_rf = "S";
     };
  }

function stamp_ft()
  {  
  if (r5_key_ft != "S")
     {
     x_cnt = r5_cnt_ft;
     stamp_xx();
     r5_cnt_ft = y_cnt;
     key_clear();x_clk="F";stamp_click();
     r5_key_ft = "S";
     };
  }

function stamp_hy()
  {  
  if (r5_key_hy != "S")
     {
     x_cnt = r5_cnt_hy;
     stamp_xx();
     r5_cnt_hy = y_cnt;
     key_clear();x_clk="H";stamp_click();
     r5_key_hy = "S";
     };
  }

function stamp_rr()
  {  
  if (r5_key_rr != "S")
     {
     x_cnt = r5_cnt_rr;
     stamp_xx();
     r5_cnt_rr = y_cnt;
     key_clear();x_clk="A";stamp_click();
     r5_key_rr = "S";
     };
  }

function stamp_gd()
  {  
  if (r5_key_gd != "S")
     {
     x_cnt = r5_cnt_gd;
     stamp_xx();
     r5_cnt_gd = y_cnt;
     key_clear();x_clk="G";stamp_click();
     r5_key_gd = "S";
     };
  }

function stamp_cd()
  {  
  if (r5_key_cd != "S")
     {
     x_cnt = r5_cnt_rr;
     stamp_xx();
     r5_cnt_cd = y_cnt;
     key_clear();x_clk="C";stamp_click();
     r5_key_cd = "S";
     };
  }

function stamp_lp()
  {  
  if (r5_key_lp != "S")
     {
     x_cnt = r5_cnt_lp;
     stamp_xx();
     r5_cnt_lp = y_cnt;
     key_clear();x_clk="L";stamp_click();
     r5_key_lp = "W";
     };
  }

function key_clear()
  {
  r5_key_rf= "P";
  r5_key_ft= "P";
  r5_key_hy= "P";
  r5_key_rr= "P";
  r5_key_gd= "P";
  r5_key_cd= "P";
  r5_key_lp= "P";
  }

function stamp_rr()
  {
  x_cnt = r5_cnt_rr;
  stamp_xx();
  r5_cnt_rr = y_cnt;
  }

function stamp_rf()
  {
  x_cnt = r5_cnt_rf;
  stamp_xx();
  r5_cnt_rf = y_cnt;
  }

function stamp_ft()
  {
  x_cnt = r5_cnt_ft;
  stamp_xx();
  r5_cnt_ft = y_cnt;
  }

function stamp_gd()
  {
  x_cnt = r5_cnt_gd;
  stamp_xx();
  r5_cnt_gd = y_cnt;
  }
function stamp_hieke()
  {
  x_hex32 = r_cnt_hp.substring(0,2);
  x_hex32 = ("0"+x_hex32);
  hex2dec();
  hex2dec();
  x_dec= x_dec+1;
  dec2hex();
  dec2hex();  
  r_cnt_hp = (v_hex32 + u_hex32);
  }

function stamp_click()
  {
  if (x_clk!=r_clk_w)  
    {
    r_clk_u = r_clk_v;
    r_clk_v = r_clk_w;  
    r_clk_w = x_clk;   
    };
  }

function dec2hex()
  {
  a_dec = x_dec;
  w_hex32 = "Z";
  v_hex32 = "Z";
  u_hex32 = "Z";
  x_wert = (x_dec/1024);

  if (x_wert<0) {x_wert=0;};
  wert2text();
  wert2text();    
  w_hex32 = x_text;
  w_dec = x_wert*1024;
  v_dec = a_dec-w_dec;
  x_wert = (v_dec/32);

  if (x_wert<0) {x_wert=0;};
  wert2text();
  wert2text();   
  v_hex32 = x_text; 
  v_dec=x_wert*32;
  
  u_dec = (a_dec-w_dec-v_dec);
  x_wert = (u_dec);
  wert2text();
  wert2text();    
  u_hex32 = x_text;
  u_dec=x_wert;
  
  x_hex32 = (w_hex32 + v_hex32 + u_hex32)
  }

function r_copy()
  {
  x_code1 = y_code1;
  }


//-->