// Чтение вслух нуклеотидной последовательности

ver=parseInt(navigator.appVersion)
ie4=(ver>3  && navigator.appName!="Netscape")?1:0
ns4=(ver>3  && navigator.appName=="Netscape")?1:0
ns3=(ver==3 && navigator.appName=="Netscape")?1:0
var nseq = "";
var lnseq = 0;
var i = 0;
var speed = 0.5;
var LEFT = "";
var right = "";
var ps = 0;
var strt = 0;
var bgn = 0;
var rd=0;
dictor = new Array("sound_ru/", "sound/");
dictor1 = new Array("_ru", "");

function clr(){
nseq = "";
lnseq = 0;
i = 0;
speed = 0.5;
LEFT = "";
right = "";
ps = 0;
strt = 0;
}

function begn(){
if(strt==0){ut()} else {bgn = 1; ps=1; playSound()}
}

function pse(){
if(strt==1){ps = 1}
}

function chng(){
nsq();
if(strt!=0){bgn = 1; ps=1;}
}

function spd(){
speed = parseFloat(document.sequt.speed.value.replace(/,/g,".")); 
if(isNaN(speed)){alert(alt15_01); document.sequt.speed.focus(); return true;};
document.sequt.speed.value = speed;
}

function nsq(){
str = document.sequt.str.value;
nseq = str.toLowerCase();
nseq = nseq.replace(/[^agctuswrymkhbdvn]/g,"");
lnseq = nseq.length;
right = nseq;
}

function ut()
{if(rd==0){
	if(ps==0){
	spd();
	nsq();
	strt = 1;}
	ps = 0;
	playSound();
	}
}

function playSound() {
if(ps==0 && bgn==0){
rd=1;
lett = nseq.charAt(i);
LEFT = LEFT + lett.toUpperCase();
right = right.slice(1);
i++;
document.sequt.read.value = LEFT + right;
if (ie4) {
eval("document.all['BGSOUND_ID'].src=" + "dictor[document.sequt.dict.selectedIndex] + lett + '.wav'");}
 if ((ns4||ns3)
  && navigator.javaEnabled()
  && navigator.mimeTypes['audio/x-midi']
  && self.document.a.IsReady()
 )
{eval("self.document." + lett + dictor1[document.sequt.dict.selectedIndex] + ".play();");}
if(i<lnseq){setTimeout('playSound()', speed*1000)} else {i = 0; LEFT = ""; right = nseq; rd=0;}
} else {rd=0;
	if(bgn==1){
	bgn=0;
	i = 0;
	LEFT = "";
	right = nseq;
	document.sequt.read.value = nseq;
	}
}
}