var planck = 6.6260755E-34;
var boltz  = 1.380658E-23;
var el_charge = 1.60217733E-19;
var avogadro  = 6.0221367E23;
var sp_light = 2.99792458E8;
var prme_vac = 12.566370614E-7;
var prmi_vac = 8.854187817E-12;
var fn_struc = 1 / 137.0359895;

var elec_mss = 9.1093897E-31;
var prot_mss = 1.6726231E-27;
var neut_mss = 1.6749286E-27;
var bohr_mag = 9.2740154E-24;
var nucl_mag = 5.0507866E-27;
var free_e_g = 2.002319304386;
var faraday  = 9.64846E4;
var gravity  = 9.80665;



function billentyu(ertek)
{
    k = (window.event) ? event.keyCode : ertek.keyCode;

   if(progablak_volt == 1)
      {
          eval("progszoveg = proginput" + egyedi + ".value");
      }

   (k>=96)&&(k<=105)?gomb(k-96):1;
   (k>=48)&&(k<=57)?gomb(k-48):1;

   k==110?gomb('.'):1;     
   k==107?gomb('+'):1;
   k==109?gomb('-'):1;
   k==106?gomb('*'):1;
   k==111?gomb('/'):1;


if (hotkeys_ertek == 1)
{

if(k==72) {change_hist();}
if(k==65) {hiquest();}
if(k==83) {change_stat();}
if(k==78) {change_conv();}
if(k==79) {change_hot();}
if(k==80) {change_prog();}
if(k==83) {change_set();}

if(k==32) {eredmeny_torol('');}  // space    = eredmény
if(k==13) {eredmeny_torol('');}  // enter    = eredmény

if(k==70) {gomb('(');}     // (
if(k==71) {gomb(')');}     // )

if(k==37 ) {   bal();}
if(k==39 ) {   jobb();}

if(k==67 ) {   torol();}
if(k==66 ) {   vissza();}
if(k==68 ) {   del();}

if(k==84 ) {   top();}
if(k==77 ) {   bottom();}
if(k==73 ) {   insert();}

if(k==82 ) {dr();}

}

}


function gomb(vmi)
{

 if(vmi == 'idez') { vmi = '\"';}

if(folytat == 0) { topdisplay.innerHTML = ''; bottomdisplay.innerHTML = ''; folytat = 1;}
if(torolni_lenn == 1) { bottomdisplay.innerHTML = ''; torolni_lenn = 0;}

/*
sor = topdisplay.innerHTML;
sor = sor.substr(0, mutato - 1) + sor.substr(mutato, sor.length - 1);
topdisplay.innerHTML = sor;
 */

felso = topdisplay.innerHTML;

if(bevitel == 'insert')
{
if(mutato != 1)
{
kimenet = felso.substr(0,mutato-1) + vmi + felso.substr(mutato-1, felso.length - 1); 
topdisplay.innerHTML = kimenet;
}
else
{
topdisplay.innerHTML = vmi + topdisplay.innerHTML;
}

mutato++;
rajzol();


}


else
{

 topdisplay.innerHTML = topdisplay.innerHTML + vmi;
}


meretez();

}


function meretez()
{

szoveg = topdisplay.innerHTML;

if (szoveg.length >= 33) {   topdisplay.style.letterSpacing = '-1px';
                             topdisplay.style.fontWeight = 'normal';
                             topdisplay.style.fontSize = '11px';   }
if (szoveg.length >= 33) {   cursor.style.letterSpacing = '-1px';
                             cursor.style.fontWeight = 'normal';
                             cursor.style.fontSize = '11px';   }

if (szoveg.length < 33) {    topdisplay.style.letterSpacing = '0 px';
                             topdisplay.style.fontWeight = 'bold';
                             topdisplay.style.fontSize = '14px';   }
if (szoveg.length < 33) {    cursor.style.letterSpacing = '0 px';
                             cursor.style.fontWeight = 'bold';
                             cursor.style.fontSize = '14px';   }

}


function eredmeny_nemtorol()
{
   folytat = 1;
   torolni_lenn = 1;
   bottomdisplay.innerHTML = '';
   eredmeny('');
}

function eredmeny_torol()
{
   folytat = 0;
   torolni_lenn = 1;
   bottomdisplay.innerHTML = '';
   eredmeny('');
}


function eredmeny(megj)
{
  
    if(inputra_var == 1)
    {
        valtozo = sor.charAt(5) + '' + sor.charAt(6);
        eval("D" + valtozo + " = topdisplay.innerHTML");
        inputra_var = 0;
        prg_counter++;
        honnan = prg_counter;
        program_run(honnan);
    }

    else if(inputra_var == 2)
    {
        inputra_var = 0;
        prg_counter++;
        honnan = prg_counter;
        program_run(honnan);
    }

    else if(inputra_var == 3)
    {
        jatek_ok();
    }

    else 
    {

       if(topdisplay.innerHTML == '') { return;  }

       var zarojelek = 0;
       var str_kezd = '';
       var str_veg  = '';
       txt = topdisplay.innerHTML;
       for(i=0;i<txt.length;i++) 
          {   if(txt.charAt(i) == '(') { zarojelek++;}
              if(txt.charAt(i) == ')') { zarojelek--;}
          }
       if(zarojelek < 0) { for(i=0;i>zarojelek;i--) { str_kezd += '(';} }
       if(zarojelek > 0) { for(i=0;i<zarojelek;i++) { str_veg  += ')';} }
       topdisplay.innerHTML = str_kezd + topdisplay.innerHTML + str_veg;


       try 
       {
          if (kerekites != 10) 
          { 
             bottomdisplay.innerHTML = kerekit(eval(szorzasjel(topdisplay.innerHTML)),kerekites);
          }
          else 
          {
             bottomdisplay.innerHTML = eval(szorzasjel(topdisplay.innerHTML)); 
          }

          mit = bottomdisplay.innerHTML;
          if(mit.indexOf("e")>0)
          {
              // alert("van benne e");
              ki = '';
              for(k=0;k<=12;k++) { if(mit.charAt(k)=='e') {break;} ki = ki + '' + mit.charAt(k);}
              honnan = mit.indexOf("e");
              // alert(kerekit(ki,kerekites) + " " + " e " + mit.substring(honnan+1));
              bottomdisplay.innerHTML = kerekit(ki,kerekites) + "e" + mit.substring(honnan+1);
          }
  
          if(bottomdisplay.innerHTML == '15121802') {game();}
       }
 
       catch (e) { bottomdisplay.innerHTML = 'ERROR'; }

   // if(megj == '') {history_ad(megj);}

   if(bottomdisplay.innerHTML == 'NaN') { bottomdisplay.innerHTML = 'ERROR'; }

   history_ad(megj);

   nekerekits = 0;

}


function history_ad(megjegyz)
{

    if((topdisplay.innerHTML != last_calc)||(bottomdisplay.innerHTML != last_ans)||(megjegyz != last_megj)||(megjegyz.indexOf('+')>0))
     {
         felso  = topdisplay.innerHTML;
         felso2 = "'" + felso + "'";
         also   = "'" + bottomdisplay.innerHTML + "'";

       if(history_ertek == 1)
       {
          eredki = "ERROR<br>";
          if(also != "'ERROR'") { eredki =  '<a href="javascript: gomb(' + also + ');">' 
                   + bottomdisplay.innerHTML + megjegyz + '</a><br>'; }

          hozzafuz = '<a href="javascript:replay('+felso2+');">' + felso + '</a> = '
                   + eredki;
 
          if(hist_mutat == 1)
          {
              his_tart.innerHTML += hozzafuz;
              str_history = his_tart.innerHTML;
          }
          else  { str_history += hozzafuz; }
       }
      }
       last_calc = topdisplay.innerHTML;
       last_ans  = bottomdisplay.innerHTML;
       last_megj = megjegyz;
   }

}


function kerekit(mit,jegyek)
{
  if(nekerekits == 1) { return mit;}
  return Math.floor(mit*Math.pow(10,jegyek)+0.5)/Math.pow(10,jegyek);
}


function kerekit_allit(mennyi)
{
  kerekites = mennyi;
  spandisp.innerHTML = "disp: " + kerekites;
  if (kerekites == 10) { spandisp.innerHTML = "disp: " + 'x'; }
  for(i=0;i<=10;i++) {eval("ker" + i + "" + egyedi + ".style.background =  '#eeeeee'");}
  eval("ker" + kerekites + "" + egyedi + ".style.background =  'lightblue'");
}


function hot_all(mennyi)
{

  hotkeys_ertek = mennyi;
  eval("hot" + 0 + "" + egyedi + ".style.background =  '#eeeeee'");
  eval("hot" + 1 + "" + egyedi + ".style.background =  '#eeeeee'");
  eval("hot" + mennyi + "" + egyedi + ".style.background =  'lightblue'");

}


function his_all(mennyi)
{

  history_ertek = mennyi;
  eval("his" + 0 + "" + egyedi + ".style.background =  '#eeeeee'");
  eval("his" + 1 + "" + egyedi + ".style.background =  '#eeeeee'");
  eval("his" + mennyi + "" + egyedi + ".style.background =  'lightblue'");

}

function hiquest()
{
 change_hist();
 if(str_history != '') { biztkerdes.style.display = 'block'; 
        // window.setTimeout("biztkerdes.style.display = 'none';",2000) ;
}
 else { biztkerdes2.style.display = 'block';
        window.setTimeout("biztkerdes2.style.display = 'none';",800) ;
      }
}

function hicancel()
{
  biztkerdes.style.display = 'none';
}


function hiclear()
{

if(hist_mutat == 1) { his_tart.innerHTML = '' 

// ide jön az törlés

};
str_history = '';

last_calc = '';
last_ans  = '';

hicancel();

}

function about()
{
topdisplay.innerHTML = "AVASMATH 80, ver. 0.1";


}



function replay(vmi)
{
   folytat = 1;
topdisplay.innerHTML = vmi;
bottomdisplay.innerHTML = '';
}


function torol()
{
folytat = 1; 
bottomdisplay.innerHTML = "";
topdisplay.innerHTML = "";
meretez();
}


function del()
{
folytat = 1; 
sor = topdisplay.innerHTML;
sor = sor.substr(0, mutato - 1) + sor.substr(mutato, sor.length - 1);
topdisplay.innerHTML = sor;
meretez();
}


function vissza()
{
folytat = 1; 
sor = topdisplay.innerHTML;
sor = sor.substr(0, sor.length - 1);
topdisplay.innerHTML = sor;
meretez();
}


function jobb()
{
folytat = 1; 
mutato++;
rajzol();
}

function bal()
{
folytat = 1; 
if(mutato>1) {mutato--; }
rajzol();
}

function top()
{
folytat = 1; 
mutato = 1;
rajzol();
}

function bottom()
{
folytat = 1; 
x = topdisplay.innerHTML;
mutato = x.length;
rajzol();
}


function insert()
{
folytat = 1; 
ujbevitel = 'normal';
if(bevitel == 'normal') { ujbevitel = 'insert';}
bevitel = ujbevitel;

spanins.style.color = '#999999';
if(bevitel == 'insert') { spanins.style.color = 'black'; }

rajzol();
}

function resetx()
{

// csak a mutatót állítja előre, deg-re vált, és kilép insert módból, ha abban volt.
// egyébként mást nem változtat.

mutato = 1;
rajzol();
if (bevitel == 'insert') { insert();}
if (fok == 'deg' ) {dr();}


}


function rajzol()
{
kitolt = '';
for(i=1;i<mutato;i++) {kitolt = kitolt + "&nbsp;"}
jel = '-';
if (bevitel == 'insert')  { jel = '<span style="color: black; background: black;">-</span>';}
cursor.innerHTML = kitolt + jel;


}

function szelesit()
{
display.style.width = "500px";
}



function ra(x)
{
  s='86d0a0';
  (x== 5)||(x==10)?s='ffa89a':1;
  (x>=11)&&(x<=35)?s='fff730':1;
  ((x>=26)&&(x<=28))||((x>=31)&&(x<=33))?s='ffba15':1;
  x>=36?s='dddddd':1;
  ((x>=36)&&(x<=38))||((x>=41)&&(x<=43))||((x>=46)&&(x<=48))||(x==51)?s='ffffaa':1;
  x==60?s='fff730':1;

  s = 'ffffaa';
  (x<=5)?s='ffa89a':1;
  (x<=3)?s='ffba15':1;
  (x==9)||(x==10)?s='dddddd':1;
  x>21?s='dddddd':1;
  (x==14)||(x==15)||(x==19)||(x==20)?s='b2b2b2':1;
  

  eval("g"+x+".style.backgroundColor='#"+s+"'");
}

function le(x)
{
  s='66B080';
  (x== 5)||(x==10)?s='ff786a':1;
  (x>=11)&&(x<=35)?s='ffd700':1;
  ((x>=26)&&(x<=28))||((x>=31)&&(x<=33))?s='ffa500':1;
  x>=36?s='cdcdcd':1;
  ((x>=36)&&(x<=38))||((x>=41)&&(x<=43))||((x>=46)&&(x<=48))||(x==51)?s='f8f8f8':1;
  x==60?s='ffd700':1;

  s = 'f8f8f8';
  (x<=5)?s='ff786a':1;
  (x<=3)?s='ffa500':1;
  (x==9)||(x==10)?s='cdcdcd':1;
  x>21?s='cdcdcd':1;
  (x==14)||(x==15)||(x==19)||(x==20)?s='aaaaaa':1;

  eval("g"+x+".style.backgroundColor='#"+s+"'");
}


function dr()
{
// funcdisplay.innerHTML = 'deg';

uj = 'deg';
if (fok == 'deg') { uj = 'rad';} 
fok = uj;

rad.style.color = '#999999';
deg.style.color = '#999999';

if (fok == 'deg') { deg.style.color = 'black';}
if (fok == 'rad') { rad.style.color = 'black';}

}


function sto(x)
{
 if(topdisplay.innerHTML == '') { return;}

  x = kerekit(x,kerekites);

  folytat = 0;

  //eredmeny(" (M"+x+")");
  eredmeny(" (M)");
  // eredmeny('');

  if(x==1)
  {
  mem1 = bottomdisplay.innerHTML;

  g1.title = mem1;
  g2.title = mem1;
  g3.title = mem1;

  bottomdisplay.innerHTML = 'M: ' + bottomdisplay.innerHTML;

  if(mem1!=0) { spanmem1.style.color = 'black';} 
     else  { spanmem1.style.color = '#999999';}
  }
  else
  {
  mem2 = bottomdisplay.innerHTML;

  g31.title = mem2;
  g32.title = mem2;
  g33.title = mem2;

  bottomdisplay.innerHTML = 'M2: ' + bottomdisplay.innerHTML;

  if(mem2!=0) { spanmem2.style.color = 'black';} 
     else  { spanmem2.style.color = '#999999';}
  }


}

function rcl(x)
{
  if(x==1) {topdisplay.innerHTML += mem1;}
  if(x==2) {topdisplay.innerHTML += mem2;}
}




function stoplus(x)
{
 if(topdisplay.innerHTML == '') { return;}

  x = kerekit(x,kerekites);

   folytat = 0;
  eredmeny(" (+M"+kerekit(x,kerekites)+")");
  if(x==1)
  {
  mem1 = mem1 * 1 + 1 * (bottomdisplay.innerHTML) ;
  bottomdisplay.innerHTML = 'M: ' + kerekit(mem1,kerekites) * 1;
  }
  else
  {
  mem2 = mem2 * 1 + 1 * (bottomdisplay.innerHTML) ;
  bottomdisplay.innerHTML = 'M2: ' + kerekit(mem2,kerekites) * 1;
  }

  // history_ad(" (+M"+x+" :" + bottomdisplay.innerHTML + ")");

  if(history_ertek == 1)
  {

     str_history = str_history.substring(0,str_history.length - 10);
     str_history += ": " + kerekit(eval("mem" + x),kerekites) + ")</a></br>";
     if(hist_mutat == 1) {his_tart.innerHTML = str_history; }
/*
     if(mem2!=0) { spanmem2.style.color = 'black';} 
           else  { spanmem2.style.color = '#999999';}
*/

     if(mem1!=0) { spanmem1.style.color = 'black';} 
           else  { spanmem1.style.color = '#999999';}

  }
}




function menutorol(y)
{
 // almenu.innerHTML = '';

hicancel();

for(i=1;i<=2;i++)
  {
     eval("menu" + i + ".style.fontWeight = 'normal'");
  }

his_tart.innerHTML = '';
his_tart.style.fontFamily = 'arial';

eval("menu" + y + ".style.fontWeight = 'bold'");
hist_mutat = 0;

}


function change_hist()
{


menutorol(1);
// almenu.innerHTML = '<a href="javascript:hiclear();">clear history</a>';
his_tart.innerHTML = str_history;
his_tart.style.fontFamily = 'courier';
hist_mutat = 1;

progablak_volt = 0;
}


function change_stat()
{
menutorol(2);
his_tart.innerHTML = ' <a href="javascript:stolist(1)">sto List1</a> | '
                   + ' <a href="javascript:rcllist(1)">rcl List1</a> <br> ' 
                   + ' <a href="javascript:stolist(2)">sto List2</a> | ' 
                   + ' <a href="javascript:rcllist(2)">rcl List2</a> | ' 
                   + ' <a href="javascript:filllist()">fill List2</a> (List2: weight) '
                   + ' <hr align="left" class="kicsi">' 
                   + ' <a href="javascript:gomb(\'min()\')">min</a> | '
                   + ' <a href="javascript:gomb(\'max()\')">max</a> | '
                   + ' <a href="javascript:gomb(\'avg()\')">avg</a> | ' 
                   + ' <a href="javascript:gomb(\'med()\')">med</a> | '
                   + ' <a href="javascript:gomb(\'count()\')">count</a><br>'
                   + ' <a href="javascript:gomb(\'sum()\')">sum</a> | '
                   + ' <a href="javascript:gomb(\'sump()\')">sump</a> | '

                   + ' <a href="javascript:gomb(\'devia()\')">devia</a> | '
                   + ' <a href="javascript:gomb(\'varia()\')">varia</a><br>'
                   + ' <hr align="left" class="kicsi">';

progablak_volt = 0;
}





function change_conv()
{
menutorol(3);
his_tart.innerHTML = 'length<br>'
           + '<a href="javascript:gomb(\'km_miles(\')">km_miles</a> | '
           + '<a href="javascript:gomb(\'miles_km(\')">miles_km</a>'
           + '<br>'
           + '<a href="javascript:gomb(\'cm_inch(\')">cm_inch</a> | '
           + '<a href="javascript:gomb(\'inch_cm(\')">inch_cm</a>'
                   + ' <hr align="left" class="kicsi">' 
           + 'weight<br>'
           + '<a href="javascript:gomb(\'gr_ounce(\')">gr_ounce</a> | '
           + '<a href="javascript:gomb(\'ounce_gr(\')">ounce_gr</a>'
                   + ' <hr align="left" class="kicsi">'
           + 'volume<br>'
           + '<a href="javascript:gomb(\'lit_gal(\')">lit_gal</a> | '
           + '<a href="javascript:gomb(\'gal_lit(\')">gal_lit</a>'
                   + ' <hr align="left" class="kicsi">'
           + 'temperature<br>'
           + '<a href="javascript:gomb(\'cels_kelv(\')">cels_kelv</a> | '
           + '<a href="javascript:gomb(\'kelv_cels(\')">kelv_cels</a>'
                   + ' <hr align="left" class="kicsi">';


progablak_volt = 0;
}

function change_prog()
{
menutorol(4);

his_tart.innerHTML =  '<b>Calprola</b> program code window<br>'
                   +  '<textarea id="proginput' + egyedi + '" style="width: 278px; height: 120px; border: 1px solid; border-color: #999999; background: #f3f3f3;"></textarea><br>'
                   +  '<a href="javascript:prog_indit()"><b>run</b></a> | '
                   +  '<a href="javascript:bevitel_torol()">clear</a> | '
                   +  '<a href="javascript:displayinput()">disp input</a> | '
                   +  '<a href="javascript:prog_save()">save</a>'
                   + '  | '

                   + '<span style="font-size: 12px;">hkeys: '
                   + '<a href="javascript:hot_all(1);" id="hot1' + egyedi + '">&nbsp;on&nbsp;</a> | '
                   + '<a href="javascript:hot_all(0);" id="hot0' + egyedi + '">&nbsp;off&nbsp;</a>'
                   + ' </span><hr align="left" class="kicsi">';


  eval("hot" + hotkeys_ertek + "" + egyedi + ".style.background =  'lightblue'");

eval("proginput" + egyedi + ".value = progszoveg");
progablak_volt = 1;              
}

function skeleton() 
{
  ki = '#BTN A1 // clear\n#\n#END';
  eval("proginput" + egyedi + ".value = ki");
}



function change_set()
{
egyedi++;
menutorol(2);
his_tart.innerHTML = 'display <br>'
                   + '<a href="javascript:kerekit_allit(0);" id="ker0' + egyedi + '">&nbsp;0&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(1);" id="ker1' + egyedi + '">&nbsp;1&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(2);" id="ker2' + egyedi + '">&nbsp;2&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(3);" id="ker3' + egyedi + '">&nbsp;3&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(4);" id="ker4' + egyedi + '">&nbsp;4&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(5);" id="ker5' + egyedi + '">&nbsp;5&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(6);" id="ker6' + egyedi + '">&nbsp;6&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(7);" id="ker7' + egyedi + '">&nbsp;7&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(8);" id="ker8' + egyedi + '">&nbsp;8&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(9);" id="ker9' + egyedi + '">&nbsp;9&nbsp;</a> | '
                   + '<a href="javascript:kerekit_allit(10);" id="ker10' + egyedi + '">&nbsp;ext&nbsp;</a>'
                   + ' <hr align="left" class="kicsi">'
                   + 'hotkeys <br>'
                   + '<a href="javascript:hot_all(1);" id="hot1' + egyedi + '">&nbsp;on&nbsp;</a> | '
                   + '<a href="javascript:hot_all(0);" id="hot0' + egyedi + '">&nbsp;off&nbsp;</a>'
                   + ' <hr align="left" class="kicsi">'
                   + 'history <br>'
                   + '<a href="javascript:his_all(1);" id="his1' + egyedi + '">&nbsp;on&nbsp;</a> | '
                   + '<a href="javascript:his_all(0);" id="his0' + egyedi + '">&nbsp;off&nbsp;</a>'
                   + ' <hr align="left" class="kicsi">';




  eval("ker" + kerekites + "" + egyedi + ".style.background =  'lightblue'");
  eval("hot" + hotkeys_ertek + "" + egyedi + ".style.background =  'lightblue'");
  eval("his" + history_ertek + "" + egyedi + ".style.background =  'lightblue'");
progablak_volt = 0;
}

function change_hot()
{
menutorol(6);
his_tart.innerHTML =  '<a href="javascript:gomb(\'nCr(\')">nCr</a> | '
                   +  '<a href="javascript:gomb(\'nPr(\')">nPr</a> '
                   + ' <hr align="left" class="kicsi">'

                   +  '<a href="javascript:gomb(\'A\')">A</a> | '
                   +  '<a href="javascript:gomb(\'B\')">B</a> | '
                   +  '<a href="javascript:gomb(\'C\')">C</a> | '
                   +  '<a href="javascript:gomb(\'D\')">D</a> | '
                   +  '<a href="javascript:gomb(\'E\')">E</a> | '
                   +  '<a href="javascript:gomb(\'F\')">F</a> | '

                   +  '<a href="javascript:gomb(\'idez\')">\"</a> '

                   + ' <hr align="left" class="kicsi">'
                   +  '<a href="javascript:gomb(\'dec_bin(\')">dec_bin</a> | '
                   +  '<a href="javascript:gomb(\'dec_oct(\')">dec_oct</a> | '
                   +  '<a href="javascript:gomb(\'dec_hex(\')">dec_hex</a><br>'
                   +  '<a href="javascript:gomb(\'bin_dec(\')">bin_dec</a> | '
                   +  '<a href="javascript:gomb(\'oct_dec(\')">oct_dec</a> | '
                   +  '<a href="javascript:gomb(\'hex_dec(\')">hex_dec</a> | '
                   +  '<a href="javascript:gomb(\'sys_sys(\')">sys_sys</a>'
                   + ' <hr align="left" class="kicsi">'

                   + ' physical constants <br> '
                   +  '<a href="javascript:gomb(\'planck\')">planck</a> | '
                   +  '<a href="javascript:gomb(\'boltz\')">boltz</a> | '
                   +  '<a href="javascript:gomb(\'el_charge\')">el_charge</a> | '
                   +  '<a href="javascript:gomb(\'avogadro\')">avogadro</a><br>'
                   +  '<a href="javascript:gomb(\'sp_light\')">sp_light</a> | '
                   +  '<a href="javascript:gomb(\'prme_vac\')">prme_vac</a> | '
                   +  '<a href="javascript:gomb(\'prmi_vac\')">prmi_vac</a> | '
                   +  '<a href="javascript:gomb(\'fn_struc\')">fn_struc</a><br>'
                   +  '<a href="javascript:gomb(\'elec_mss\')">elec_mss</a> | '
                   +  '<a href="javascript:gomb(\'prot_mss\')">prot_mss</a> | '
                   +  '<a href="javascript:gomb(\'neut_mss\')">neut_mss</a> | '
                   +  '<a href="javascript:gomb(\'bohr_mag\')">bohr_mag</a><br>'
                   +  '<a href="javascript:gomb(\'nucl_mag\')">nucl_mag</a> | '
                   +  '<a href="javascript:gomb(\'free_e_g\')">free_e_g</a> | '
                   +  '<a href="javascript:gomb(\'faraday\')">faraday</a> | '
                   +  '<a href="javascript:gomb(\'gravity\')">gravity</a>'  
               + ' <hr align="left" class="kicsi">'


   progablak_volt = 0;

}


function displayinput()
{
  szoveg = '';
  eval("szoveg = proginput" + egyedi + ".value");
  if(szoveg.length < 42) { topdisplay.innerHTML = szoveg;}
}



function szorzasjel(strinput)
{
  function szame(ertek)
        {  var ok = 0; var i; var szamok = '0123456789@@@';
           for(i=0;i<=11;i++) { if(szamok.charAt(i)==ertek) { ok = 1;} }
           return ok; }
       
 var ki = '';  var i; var hozzaad = '';
 for(i=0;i<strinput.length;i++)
   {  hozzaad = strinput.charAt(i);
      if(strinput.charAt(i)+strinput.charAt(i+1)== ')(')
           {  hozzaad = ')*('; i++; }
      ki = ki + hozzaad;
   }
 strinput = ki;

 ki = '';
 for(i=0;i<strinput.length;i++)
   {  hozzaad = strinput.charAt(i);
      if(  (szame(strinput.charAt(i))) && (strinput.charAt(i+1)=='(')  )
           {  hozzaad = strinput.charAt(i) + '*('; i++; }
      ki = ki + hozzaad;
   }
 strinput = ki;

 ki = '';
 for(i=0;i<strinput.length;i++)
   {  hozzaad = strinput.charAt(i);
      if((strinput.charAt(i)==')') && (szame(strinput.charAt(i+1)))  )
           {  hozzaad = ')*' + strinput.charAt(i+1); i++; }
      ki = ki + hozzaad;
   }

   return ki;
}