<!--
function GetCharacterFromMorse(part)
{
  var res;
  if(part==".-"   ) res="A"; else
  if(part=="-...")  res="B"; else
  if(part=="-.-.")  res="C"; else
  if(part=="-..")   res="D"; else
  if(part==".")     res="E"; else
  if(part=="..-.")  res="F"; else
  if(part=="--.")   res="G"; else
  if(part=="....")  res="H"; else
  if(part=="..")    res="I"; else
  if(part==".---")  res="J"; else
  if(part=="-.-")   res="K"; else
  if(part==".-..")  res="L"; else
  if(part=="--")    res="M"; else
  if(part=="-.")    res="N"; else
  if(part=="---")   res="O"; else
  if(part==".--.")  res="P"; else
  if(part=="--.-")  res="Q"; else
  if(part==".-.")   res="R"; else
  if(part=="...")   res="S"; else
  if(part=="-")     res="T"; else
  if(part=="..-")   res="U"; else
  if(part=="...-")  res="V"; else
  if(part==".--")   res="W"; else
  if(part=="-..-")  res="X"; else
  if(part=="-.--")  res="Y"; else
  if(part=="--..")  res="Z"; else
  if(part==".-.-")  res="Ä"; else
  if(part=="---.")  res="Ö"; else
  if(part=="..--")  res="Ü"; else
  if(part==".----") res="1"; else
  if(part=="..---") res="2"; else
  if(part=="...--") res="3"; else
  if(part=="....-") res="4"; else
  if(part==".....") res="5"; else
  if(part=="-....") res="6"; else
  if(part=="--...") res="7"; else
  if(part=="---..") res="8"; else
  if(part=="----.") res="9"; else 
  if(part=="-----") res="0"; else
  if(part=="..--..") res="?"; else
  if(part==".-.-.-") res="."; else
  if(part=="----")   res="CH"; else
  if(part=="---...") res=":"; else
  if(part=="-.-.-.") res=";"; else
  if(part=="-....-")  res="-"; else
  if(part==".-.-.")  res="+"; else
  if(part=="-.--.-") res="("; else 
  if(part=="--..--") res=","; else res="#";
  return res;
}

function TranslateBack()
{
  var WarKlammer, part, WordEnd, x, c, res, Data;
  Data=document.Formular.TextRes.value;
  Data=Data.toUpperCase();
  x=0; 
  WordEnd=1; 
  WarKlammer=0;
  part=""; 
  res="";
  while(x<Data.length)
  { 
    c=Data.charAt(x);
    if(c==".")
    {
      part=part+"."; 
      WordEnd=0;
    }
    if(c=="-") 
    {
      part=part+"-"; 
      WordEnd=0;
    }
    if((c=="/")&&(WordEnd==1))
    {
      res=res+" ";
    }
    if(((c=="/")&&(WordEnd==0))||(x>=Data.length-1))
    {
      back=GetCharacterFromMorse(part);
      if(back=="(") if(WarKlammer==0) 
      {
        WarKlammer=1;
      } else
      {
        WarKlammer=0;
        back=")";
      }
      res=res+back;
      part="";
      WordEnd=1;
    }
    x++;
  }
  document.Formular.TextData.value=res;
}

function Translate()
{
  var c, res, x, Data;
  res="";
  Data=document.Formular.TextData.value;
  if (Data.length>0)
  {
    Data=Data.toUpperCase()
    for(x=0;x<=Data.length-1;x++)
    { 
      c=Data.charAt(x);
      if(c=="A") res=res+".-";
      if(c=="B") res=res+"-...";
      if(c=="C")
      {
        if((x==Data.length-1) || (Data.charAt(x+1)!="H"))
        {
          res=res+"-.-.";
        }
        else
        {
          res=res+"----";
          x++;
        } 
      }
      if(c=="D") res=res+"-..";
      if(c=="E") res=res+".";
      if(c=="F") res=res+"..-.";
      if(c=="G") res=res+"--.";
      if(c=="H") res=res+"....";
      if(c=="I") res=res+"..";
      if(c=="J") res=res+".---";
      if(c=="K") res=res+"-.-";
      if(c=="L") res=res+".-..";
      if(c=="M") res=res+"--";
      if(c=="N") res=res+"-.";
      if(c=="O") res=res+"---";
      if(c=="P") res=res+".--.";
      if(c=="Q") res=res+"--.-";
      if(c=="R") res=res+".-.";
      if(c=="S") res=res+"...";
      if(c=="T") res=res+"-";
      if(c=="U") res=res+"..-";
      if(c=="V") res=res+"...-";
      if(c=="W") res=res+".--";
      if(c=="X") res=res+"-..-";
      if(c=="Y") res=res+"-.--";
      if(c=="Z") res=res+"--..";
      if(c=="1") res=res+".----";
      if(c=="2") res=res+"..---";
      if(c=="3") res=res+"...--";
      if(c=="4") res=res+"....-";
      if(c=="5") res=res+".....";
      if(c=="6") res=res+"-....";
      if(c=="7") res=res+"--...";
      if(c=="8") res=res+"---..";
      if(c=="9") res=res+"----.";
      if(c=="0") res=res+"-----";
      if(c==".") res=res+".-.-.-";
      if(c=="?") res=res+"..--..";
      if(c==",") res=res+"--..--";
      if(c=="Ä") res=res+".-.-";
      if(c=="Ü") res=res+"..--";
      if(c=="Ö") res=res+"---.";
      if(c==":") res=res+"---...";
      if(c=="(") res=res+"-.--.-";
      if(c==")") res=res+"-.--.-";
      if(c==";") res=res+"-.-.-.";
      if(c=="-") res=res+"-....-";
      if(c=="+") res=res+".-.-.";

      if (x<Data.length-1) res=res+"/";
    }
  }
  document.Formular.TextRes.value=res;
}
//-->