<!-- Copyright 2000 Foreignword-->

var gST="|ABATAUBE|ACAUCP|ADAAAUBABEDF|AEAAAUBACP|AFAUCECJDC|AIBA|AJAU|AKAAAUCP|ALAUCT|AMBE|ANAUBX|AOANAPAU|APANAOAU|AQAUBE|ARAAATAUBABEBQCJCP|ASATAUAYBABEBGBPBQBUCGCPCT|ATAAABARASAUAVAYBABBBEBGBPBQBUCGCPCT|AUAAABACADAEAFAGAJAKALANAOAPAQARASATAVAWAXAYBABBBEBGBHBIBJBLBNBOBPBQBRBSBTBUBVBWBXBYCACBCDCECGCHCICJCKCLCMCNCOCPCSCTCUCVCWCXDADCDDDEDG|AVATAUBABECG|AWAAAUCJ|AXAU|AYASATAUBABEBGBPBQBUCGCJCPCT|BAAAADAEAIARASATAUAVAYBEBGBPBQBUBXCCCGCHCJCLCPCTDADE|BBATAU|BCAA|BDBE|BEAAABADAMAQARASATAUAVAYBABDBGBLBMBPBQBUCBCGCJCLCMCNCPCTDA|BFAA|BGASATAUAYBABEBPBQBUCGCPCT|BHAAAU|BIAU|BJAU|BKAU|BLAUBE|BMBE|BNAUCT|BOAUCP|BPASATAUAYBABEBGBQBUCGCPCT|BQAAARASATAUAYBABEBGBPBUCGCJCLCPCTDA|BRAUCW|BSAU|BTAU|BUAAASATAUAYBABEBGBPBQCGCPCT|BVAU|BWAU|BXANAUBA|BYAU|CBAAAUBE|CCBA|CEAAAFAUCJDC|CGAAASATAUAVAYBABEBGBPBQBUCPCT|CHAUBACP|CIAU|CJAAAFARAUAWBABEBQCECPDADC|CKAU|CLAAAUBABEBQ|CMAUBE|CNAUBE|CPAAACAEAKARASATAUAYBABEBGBOBPBQBUCGCHCJCTDA|CSAU|CTAAAHALAQASATAUAYBABEBGBNBPBQBUCGCPCU|CUAUCT|CVAU|CWAU|CXAU|DAAAADAUBABEBQCJCP|DCAFAUCECJ|DEAUBA|DGAU|";
var gL="AA*Mono-lingual  AFAfrikaans      AGAlbanian       AHArabic         AIBasque         AJBelarusan      AEBengali        IPBosnian        ICBreton         AKBulgarian      APCatalan        AQCebuano        ARChechen        AUChinese        IAChinese (pinyinIBChinese (yale) AWCroatian       BACzech          BFDanish         BKDutch          BPEnglish        BREsperanto      BUEstonian       BYFarsi          CAFinnish        CFFrench         CHFrisian        GVGalician       GWGeorgian       CKGerman         CLGerman (austr.)CPGreek          CQGreek (ancient)CSHawaiian       CUHebrew         CWHindi          DAHungarian      DCIcelandic      DDIlongo         DFIndonesian     DMIrish          DKItalian        DPJapanese       DSKhmer          DUKorean         EALatin          ECLatvian        EDLithuanian     IKMalay          EEMaori          IUMongolian      EFNorwegian      EGOccitan        IDPersian        EHPolish         ELPortug. (braz.)EKPortuguese     EORomanian       IERotuman        EPRussian        EQSanskrit       ILSardinian      ERSerbian        ESSlovak         EUSlovenian      FASpanish        FCSpanish (eur.) FBSpanish (lat.) FDSwahili        FFSwedish        FGTagalog        FLTamil          FMThai           FNTibetan        FOTswana         FPTurkish        FQUkrainian      GAUkrainian      GDUrdu           GKVietnamese     GUWelsh          HFYiddish        HKZulu           ";


var chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";

function window_onload(){
	with (document.TSearch){
	Src_Change();}}

function Src_Change(){
	with (document.TSearch){pos=0;
	var newsels = srcbox.options[document.TSearch.srcbox.selectedIndex].value;
	src.value=gL.substring(newsels *17,newsels *17 + 2);
	newsels=EncodeInt(newsels);
	
	var  srch= "|" +  newsels;
	var p = gST.indexOf(srch,0);
	if (p >= 0){
	p = p + 3; p2 = gST.indexOf("|",p) - 1;
	for (var i = p; i <= p2 ; i = i + 2){
	var a =  gST.charAt(i);
	var b = (AsciiCode(a) - 65) * 25;
	var c =  gST.charAt(i + 1);
	var id1 = b + (AsciiCode(c) - 65);	
	trg.options[pos].value=gL.substring(id1 *17,id1 *17 + 2);
	trg.options[pos].text =   gL.substring(id1 *17 + 2,id1 *17 + 2+15); pos++;}} 
	for (var i = pos; i<=51;i++){trg.options[i].value=""; trg.options[i].text="";} 
	trg.selectedIndex=0;}}

function Trg_Change(){
	with(document.TSearch){pos=0;var newselt=
	trg.options[trg.selectedIndex].value;if(newselt==""){trg.selectedIndex=0}}}

function AsciiChar(asccode){asccode = asccode - 65; var value = chars.charAt(asccode); return value;}

function AsciiCode(achar){var codeis = chars.indexOf(achar) + 65; return codeis}

function Decode(selx){
	var a = AsciiCode(gL.substring(selx*17,selx*17+1)); var b = AsciiCode(gL.substring(selx*17+1,selx*17+2));
	var selis= (a - 65) *25  + (b - 65); return selis}	

function EncodeInt(id1){
	str = AsciiChar((id1 % 25 + 65));a1 = Math.floor((id1 / 25) % 25 ) + 65;
  	str = AsciiChar(a1) + str; return str;}