function inreg (nume,calorii,cant,um)
{
 this.nume=nume;
 this.calorii=calorii;
 this.cant=cant;
 this.melodieorig=um;
}

nr_inreg=205;
songz=new Array(nr_inreg);
//porc
songz[1]=new inreg ('inima',116,100,'g');
songz[2]=new inreg ('rinichi',124,100,'g');
songz[3]=new inreg ('creier',128,100,'g');
songz[4]=new inreg ('ficat',132,100,'g');
songz[5]=new inreg ('file',172,100,'g');
songz[6]=new inreg ('jambon',271,100,'g');
songz[7]=new inreg ('cotlet',335,100,'g');
songz[8]=new inreg ('ceafa',350,100,'g');
songz[9]=new inreg ('slanina',630,100,'g');
//vita                   
songz[10]=new inreg ('inima',116,100,'g');
songz[11]=new inreg ('rinichi',124,100,'g');
songz[12]=new inreg ('file',125,100,'g');
songz[13]=new inreg ('creier',128,100,'g');
songz[14]=new inreg ('ficat',132,100,'g');
songz[15]=new inreg ('burta',140,100,'g');
songz[16]=new inreg ('pulpa',198,100,'g');
songz[17]=new inreg ('limba',205,100,'g');
songz[18]=new inreg ('muschi',229,100,'g');
//vitel
songz[19]=new inreg ('inima',115,100,'g');
songz[20]=new inreg ('rinichi',124,100,'g');
songz[21]=new inreg ('creier',126,100,'g');
songz[22]=new inreg ('ficat',130,100,'g');
songz[23]=new inreg ('limba',142,100,'g');
songz[24]=new inreg ('cotlet',160,100,'g');
songz[25]=new inreg ('pulpa',188,100,'g');
//miel,oaie
songz[26]=new inreg ('rinichi',108,100,'g');
songz[27]=new inreg ('ficat',135,100,'g');
songz[28]=new inreg ('pulpa',259,100,'g');
songz[29]=new inreg ('cotlet',354,100,'g');
//carne diverse
songz[30]=new inreg ('iepure de camp',106,100,'g');
songz[31]=new inreg ('cal',120,100,'g');
songz[32]=new inreg ('caprioara',125,100,'g');
songz[33]=new inreg ('iepure de casa',164,100,'g');
//pasare
songz[34]=new inreg ('curca',106,100,'g');
songz[35]=new inreg ('ficat de gaina',120,100,'g');
songz[36]=new inreg ('ficat de gasca',106,100,'g');
songz[37]=new inreg ('gaina',120,100,'g');
songz[38]=new inreg ('gasca',106,100,'g');
songz[39]=new inreg ('rata',120,100,'g');
//peste
songz[40]=new inreg ('stridii',75,100,'g');
songz[41]=new inreg ('melci',75,100,'g');
songz[42]=new inreg ('midii',75,100,'g');
songz[43]=new inreg ('morun',80,100,'g');
songz[44]=new inreg ('stiuca',84,100,'g');
songz[45]=new inreg ('biban',88,100,'g');
songz[46]=new inreg ('salau',90,100,'g');
songz[47]=new inreg ('crab',91,100,'g');
songz[48]=new inreg ('homar',92,100,'g');
songz[49]=new inreg ('crevete',95,100,'g');
songz[50]=new inreg ('cambula',100,100,'g');
songz[51]=new inreg ('pastrav',103,100,'g');
songz[52]=new inreg ('crap',108,100,'g');
songz[53]=new inreg ('icre negre',120,100,'g');
songz[54]=new inreg ('somon',188,100,'g');
songz[55]=new inreg ('scrumbie',190,100,'g');
songz[56]=new inreg ('hering',202,100,'g');
songz[57]=new inreg ('tipar',214,100,'g');
songz[58]=new inreg ('scrumbie afumata',215,100,'g');
//branzeturi si oua
songz[59]=new inreg ('zer',25,100,'g');
songz[60]=new inreg ('albus de ou',52,100,'g');
songz[61]=new inreg ('iaurt',70,100,'g');
songz[62]=new inreg ('branza de vaci slaba',96,100,'g');
songz[63]=new inreg ('oua',165,100,'g');
songz[64]=new inreg ('galbenus de ou',165,100,'g');
songz[65]=new inreg ('branza de vaci',198,100,'g');
songz[66]=new inreg ('telemea de oaie',316,100,'g');
songz[67]=new inreg ('smantana',399,100,'g');
//cereale si fainoase
songz[68]=new inreg ('paine graham',225,100,'g');
songz[69]=new inreg ('paine neagra',242,100,'g');
songz[70]=new inreg ('chifle',250,100,'g');
songz[71]=new inreg ('paine de secara',252,100,'g');
songz[72]=new inreg ('paine alba',274,100,'g');
songz[73]=new inreg ('hrisca',287,100,'g');
songz[74]=new inreg ('faina de secara integrala',299,100,'g');
songz[75]=new inreg ('faina de grau integrala',318,100,'g');
songz[76]=new inreg ('faina de grau rafinata',320,100,'g');
songz[77]=new inreg ('soia',327,100,'g');
songz[78]=new inreg ('orez',330,100,'g');
songz[79]=new inreg ('porumb',336,100,'g');
songz[80]=new inreg ('germeni de grau',340,100,'g');
songz[81]=new inreg ('fulgi de ovaz',344,100,'g');
songz[82]=new inreg ('pop-corn',345,100,'g');
songz[83]=new inreg ('gris',348,100,'g');
songz[84]=new inreg ('paine prajita',350,100,'g');
songz[85]=new inreg ('spaghete',351,100,'g');
songz[86]=new inreg ('paste fainoase cu oua',355,100,'g');
songz[87]=new inreg ('orez integral',360,100,'g');
songz[88]=new inreg ('pesmeti',369,100,'g');
//legume
songz[89]=new inreg ('castraveti',15,100,'g');
songz[90]=new inreg ('andive',16,100,'g');
songz[91]=new inreg ('ridiche',17,100,'g');
songz[92]=new inreg ('marar',19,100,'g');
songz[93]=new inreg ('fetica',20,100,'g');
songz[94]=new inreg ('varza acra',20,100,'g');
songz[95]=new inreg ('dovleac',21,100,'g');
songz[96]=new inreg ('ciuperci',21,100,'g');
songz[97]=new inreg ('sparanghel',22,100,'g');
songz[98]=new inreg ('spanac',24,100,'g');
songz[99]=new inreg ('ardei',25,100,'g');
songz[100]=new inreg ('vinete',26,100,'g');
songz[101]=new inreg ('varza alba',26,100,'g');
songz[102]=new inreg ('ceapa verde',27,100,'g');
songz[103]=new inreg ('conopida',28,100,'g');
songz[104]=new inreg ('varza rosie',30,100,'g');
songz[105]=new inreg ('fasole verde',31,100,'g');
songz[106]=new inreg ('sfecla',31,100,'g');
songz[107]=new inreg ('patrunjel',32,100,'g');
songz[108]=new inreg ('telina',32,100,'g');
songz[109]=new inreg ('manatarci',32,100,'g');
songz[110]=new inreg ('rosii',33,100,'g');
songz[111]=new inreg ('varza verde',36,100,'g');
songz[112]=new inreg ('ceapa',36,100,'g');
songz[113]=new inreg ('morcovi',38,100,'g');
songz[114]=new inreg ('praz',40,100,'g');
songz[115]=new inreg ('sfecla rosie',40,100,'g');
songz[116]=new inreg ('papadie',44,100,'g');
songz[117]=new inreg ('anghinare',45,100,'g');
songz[118]=new inreg ('mazare verde',74,100,'g');
songz[119]=new inreg ('cartofi',78,100,'g');
songz[120]=new inreg ('hrean',84,100,'g');
songz[121]=new inreg ('usturoi',89,100,'g');
songz[122]=new inreg ('porumb',98,100,'g');
songz[123]=new inreg ('fasole',278,100,'g');
songz[124]=new inreg ('mazare uscata',290,100,'g');
songz[125]=new inreg ('linte uscata',295,100,'g');
songz[126]=new inreg ('soia uscata',341,100,'g');
songz[127]=new inreg ('cartofi prajiti',345,100,'g');
songz[128]=new inreg ('cartofi chips',546,100,'g');
//fructe
songz[129]=new inreg ('lamaie',24,100,'g');
songz[130]=new inreg ('pepene verde',26,100,'g');
songz[131]=new inreg ('pepene galben',28,100,'g');
songz[132]=new inreg ('capsune',39,100,'g');
songz[133]=new inreg ('grepfruit',40,100,'g');
songz[134]=new inreg ('agrise',41,100,'g');
songz[135]=new inreg ('ananas',42,100,'g');
songz[136]=new inreg ('piersici',43,100,'g');
songz[137]=new inreg ('mandarine',45,100,'g');
songz[138]=new inreg ('soc',48,100,'g');
songz[139]=new inreg ('portocale',49,100,'g');
songz[140]=new inreg ('coacaze',50,100,'g');
songz[141]=new inreg ('caise',52,100,'g');
songz[142]=new inreg ('mere',55,100,'g');
songz[143]=new inreg ('prune',56,100,'g');
songz[144]=new inreg ('cirese',57,100,'g');
songz[145]=new inreg ('gutui',57,100,'g');
songz[146]=new inreg ('mure',58,100,'g');
songz[147]=new inreg ('zmeura',58,100,'g');
songz[148]=new inreg ('pere',60,100,'g');
songz[149]=new inreg ('afine',64,100,'g');
songz[150]=new inreg ('smochine',66,100,'g');
songz[151]=new inreg ('struguri',72,100,'g');
songz[152]=new inreg ('banane',86,100,'g');
songz[153]=new inreg ('masline verzi',120,100,'g');
songz[154]=new inreg ('avocado',194,100,'g');
songz[155]=new inreg ('caise uscate',253,100,'g');
songz[156]=new inreg ('mere uscate',260,100,'g');
songz[157]=new inreg ('prune uscate',262,100,'g');
songz[158]=new inreg ('curmale',275,100,'g');
songz[159]=new inreg ('stafide',290,100,'g');
//oleaginoase
songz[160]=new inreg ('castane',215,100,'g');
songz[161]=new inreg ('cocos',341,100,'g');
songz[162]=new inreg ('alune',565,100,'g');
songz[163]=new inreg ('arahide',580,100,'g');
songz[164]=new inreg ('migdale',585,100,'g');
songz[165]=new inreg ('nuci',648,100,'g');
songz[166]=new inreg ('cocos uscat',652,100,'g');
//dulciuri
songz[167]=new inreg ('melasa',235,100,'g');
songz[168]=new inreg ('marmelada',272,100,'g');
songz[169]=new inreg ('miere',310,100,'g');
songz[170]=new inreg ('cacao',311,100,'g');
songz[171]=new inreg ('zahar nerafinat',375,100,'g');
songz[172]=new inreg ('zahar rafinat',385,100,'g');
songz[173]=new inreg ('glucoza',390,100,'g');
songz[174]=new inreg ('caramel',400,100,'g');
songz[175]=new inreg ('ciocolata',525,100,'g');
//bauturi
songz[176]=new inreg ('ceai fara zahar',1,100,'g');
songz[177]=new inreg ('cafea fara zahar',2,100,'g');
songz[178]=new inreg ('bere bruna',42,100,'g');
songz[179]=new inreg ('cidru',44,100,'g');
songz[180]=new inreg ('cola',48,100,'g');
songz[181]=new inreg ('bere blonda',53,100,'g');
songz[182]=new inreg ('limonada',58,100,'g');
songz[183]=new inreg ('vin alb',138,100,'g');
songz[184]=new inreg ('vin rosu',165,100,'g');
songz[185]=new inreg ('rom',245,100,'g');
songz[186]=new inreg ('whisky',245,100,'g');
songz[187]=new inreg ('tuica (rachiu)',250,100,'g');
songz[188]=new inreg ('vodca',280,100,'g');
//grasimi,mezeluri,conserve
songz[189]=new inreg ('parizer',248,100,'g');
songz[190]=new inreg ('crenvusti',260,100,'g');
songz[191]=new inreg ('conserva de peste in ulei',288,100,'g');
songz[192]=new inreg ('lapte condensat',318,100,'g');
songz[193]=new inreg ('sunca',321,100,'g');
songz[194]=new inreg ('pateu de ficat',322,100,'g');
songz[195]=new inreg ('cascaval',346,100,'g');
songz[196]=new inreg ('carnat',368,100,'g');
songz[197]=new inreg ('lapte praf',501,100,'g');
songz[198]=new inreg ('salam',562,100,'g');
songz[199]=new inreg ('slanina',630,100,'g');
songz[200]=new inreg ('margarina',695,100,'g');
songz[201]=new inreg ('maioneza',716,100,'g');
songz[202]=new inreg ('unt',742,100,'g');
songz[203]=new inreg ('uleiuri',890,100,'g');
songz[204]=new inreg ('untura de peste',901,100,'g');
songz[205]=new inreg ('untura topita',901,100,'g');

var ncal=0;
var valid = '0123456789.'

function isValid(string,allowed) {
    for (var i=0; i< string.length; i++) {
       if (allowed.indexOf(string.charAt(i)) == -1)
          return false;
    }
    return true;
}

function sel (ww) {
var s_idx=eval ('document.alimente.'+ww+'.selectedIndex');
var d_idx=eval ('document.alimente.'+ww+'.options[s_idx].text');
var cant=eval ('document.alimente.'+ww+'1.value');
if (isValid(cant,valid)) {
  var rmbr=-1;
  for (i=1;i<=nr_inreg;i++)
   { if (songz[i].nume==d_idx) rmbr=i }
  if (rmbr!=-1) {
   ncal=ncal+Math.round ((cant*songz[rmbr].calorii)/100);
   document.rezultat.rez.value=ncal;
  }
  document.alimente.reset();
 }
}

function display (s,e,cn,sn) {
 document.write ('<tr><td><img src="patrat.gif"></td><td>'+cn+'</td>');
 document.write ('<td><select name="'+sn+'">');
 document.write ('<option>--------------------------------------</option>');
 for (i=s;i<=e;i++) {
  var optiune=new Option(songz[i].nume,i-s+1);
  eval("document.alimente."+sn+".options[i-s+1]=optiune");
 }

 document.write ('</select></td>');
 document.write ('<td align=center><input type="text" name="'+sn+'1" size=4></td>');
 document.write ("<td><img src='adauga.gif' onclick='sel(&quot;"+sn+"&quot;)' style='border:0px;cursor:hand'></td></tr>");
}                                                                        

function createalim () {
 display (1,9,'Carne de porc', 'porc');
 display (10,18,'Carne de vita', 'vita');
 display (19,25,'Carne de vitel', 'vitel');
 display (26,29,'Carne de miel, oaie', 'oaie');
 display (30,33,'Carne diverse', 'diverse');
 display (34,39,'Carne de pasare', 'pasare');
 display (40,58,'Carne de peste', 'peste');
 display (59,67,'Branzeturi si oua', 'branzaoo');
 display (68,88,'Cereale si fainoase', 'cereale');
 display (89,128,'Legume', 'legume');
 display (129,159,'Fructe', 'fructe');
 display (160,166,'Oleaginoase', 'oleag');
 display (167,175,'Dulciuri', 'dulciuri');
 display (176,188,'Bauturi', 'bauturi');
 display (189,205,'Grasimi, mezeluri, conserve', 'gmc');
}