Begin_of_File

while(! At_EoF){        
  Search("&", ERRBREAK)
  if (Match("Ä")==0)    { Del_Char(Chars_Matched) IT("Ä")  Continue }
  if (Match("ä")==0)    { Del_Char(Chars_Matched) IT("ä")  Continue }
  if (Match("Ö")==0)    { Del_Char(Chars_Matched) IT("Ö")  Continue }
  if (Match("ö")==0)    { Del_Char(Chars_Matched) IT("ö")  Continue }
  if (Match("ß")==0)   { Del_Char(Chars_Matched) IT("ß")  Continue }
  if (Match("Ü")==0)    { Del_Char(Chars_Matched) IT("Ü")  Continue }
  if (Match("ü")==0)    { Del_Char(Chars_Matched) IT("ü")  Continue }
  if (Match("Á")==0)  { Del_Char(Chars_Matched) IT("Á")  Continue }
  if (Match("á")==0)  { Del_Char(Chars_Matched) IT("á")  Continue }
  if (Match("À")==0)  { Del_Char(Chars_Matched) IT("À")  Continue }
  if (Match("à")==0)  { Del_Char(Chars_Matched) IT("à")  Continue }
  if (Match("Â")==0)   { Del_Char(Chars_Matched) IT("Â")  Continue }
  if (Match("â")==0)   { Del_Char(Chars_Matched) IT("â")  Continue }
  if (Match("Ã")==0)  { Del_Char(Chars_Matched) IT("Ã")  Continue }
  if (Match("ã")==0)  { Del_Char(Chars_Matched) IT("ã")  Continue }
  if (Match("Å")==0)   { Del_Char(Chars_Matched) IT("Å")  Continue }
  if (Match("å")==0)   { Del_Char(Chars_Matched) IT("å")  Continue }
  if (Match("&Aelig;")==0)   { Del_Char(Chars_Matched) IT("Æ")  Continue }
  if (Match("æ")==0)   { Del_Char(Chars_Matched) IT("æ")  Continue }
  if (Match("Ç")==0)  { Del_Char(Chars_Matched) IT("Ç")  Continue }
  if (Match("ç")==0)  { Del_Char(Chars_Matched) IT("ç")  Continue }
  if (Match("&Eth;")==0)     { Del_Char(Chars_Matched) IT("Ð")  Continue }
  if (Match("ð")==0)     { Del_Char(Chars_Matched) IT("ð")  Continue }
  if (Match("É")==0)  { Del_Char(Chars_Matched) IT("É")  Continue }
  if (Match("é")==0)  { Del_Char(Chars_Matched) IT("é")  Continue }
  if (Match("È")==0)  { Del_Char(Chars_Matched) IT("È")  Continue }
  if (Match("è")==0)  { Del_Char(Chars_Matched) IT("è")  Continue }
  if (Match("Ê")==0)   { Del_Char(Chars_Matched) IT("Ê")  Continue }
  if (Match("ê")==0)   { Del_Char(Chars_Matched) IT("ê")  Continue }
  if (Match("Ë")==0)    { Del_Char(Chars_Matched) IT("Ë")  Continue }
  if (Match("ë")==0)    { Del_Char(Chars_Matched) IT("ë")  Continue }
  if (Match("Í")==0)  { Del_Char(Chars_Matched) IT("Í")  Continue }
  if (Match("í")==0)  { Del_Char(Chars_Matched) IT("í")  Continue }
  if (Match("Ì")==0)  { Del_Char(Chars_Matched) IT("Ì")  Continue }
  if (Match("ì")==0)  { Del_Char(Chars_Matched) IT("ì")  Continue }
  if (Match("Î")==0)   { Del_Char(Chars_Matched) IT("Î")  Continue }
  if (Match("î")==0)   { Del_Char(Chars_Matched) IT("î")  Continue }
  if (Match("Ï")==0)    { Del_Char(Chars_Matched) IT("Ï")  Continue }
  if (Match("ï")==0)    { Del_Char(Chars_Matched) IT("ï")  Continue }
  if (Match("Ñ")==0)  { Del_Char(Chars_Matched) IT("Ñ")  Continue }
  if (Match("ñ")==0)  { Del_Char(Chars_Matched) IT("ñ")  Continue }
  if (Match("Ó")==0)  { Del_Char(Chars_Matched) IT("Ó")  Continue }
  if (Match("ó")==0)  { Del_Char(Chars_Matched) IT("ó")  Continue }
  if (Match("Ò")==0)  { Del_Char(Chars_Matched) IT("Ò")  Continue }
  if (Match("ò")==0)  { Del_Char(Chars_Matched) IT("ò")  Continue }
  if (Match("Ô")==0)   { Del_Char(Chars_Matched) IT("Ô")  Continue }
  if (Match("ô")==0)   { Del_Char(Chars_Matched) IT("ô")  Continue }
  if (Match("Õ")==0)  { Del_Char(Chars_Matched) IT("Õ")  Continue }
  if (Match("õ")==0)  { Del_Char(Chars_Matched) IT("õ")  Continue }
  if (Match("Ø")==0)  { Del_Char(Chars_Matched) IT("Ø")  Continue }
  if (Match("ø")==0)  { Del_Char(Chars_Matched) IT("ø")  Continue }
  if (Match("&Thorn;")==0)   { Del_Char(Chars_Matched) IT("Þ")  Continue }
  if (Match("þ")==0)   { Del_Char(Chars_Matched) IT("þ")  Continue }
  if (Match("Ú")==0)  { Del_Char(Chars_Matched) IT("Ú")  Continue }
  if (Match("ú")==0)  { Del_Char(Chars_Matched) IT("ú")  Continue }
  if (Match("Ù")==0)  { Del_Char(Chars_Matched) IT("Ù")  Continue }
  if (Match("ù")==0)  { Del_Char(Chars_Matched) IT("ù")  Continue }
  if (Match("Û")==0)   { Del_Char(Chars_Matched) IT("Û")  Continue }
  if (Match("û")==0)   { Del_Char(Chars_Matched) IT("û")  Continue }
  if (Match("Ý")==0)  { Del_Char(Chars_Matched) IT("Ý")  Continue }
  if (Match("ý")==0)  { Del_Char(Chars_Matched) IT("ý")  Continue }
  if (Match("ÿ")==0)    { Del_Char(Chars_Matched) IT("ÿ")  Continue }
  if (Match(""")==0)    { Del_Char(Chars_Matched) IT('"')  Continue }
  if (Match("&")==0)     { Del_Char(Chars_Matched) IT("&")  Continue }
  if (Match("&lt;")==0)      { Del_Char(Chars_Matched) IT("<")  Continue }
  if (Match("&gt;")==0)      { Del_Char(Chars_Matched) IT(">")  Continue }
  if (Match("&copy;")==0)    { Del_Char(Chars_Matched) IT("©")  Continue }
  if (Match("&reg;")==0)     { Del_Char(Chars_Matched) IT("®")  Continue }
  if (Match("&trade;")==0)   { Del_Char(Chars_Matched) IT("TM") Continue }
  if (Match("&nbsp;")==0)    { Del_Char(Chars_Matched) IT(" ")  Continue }
  Char(1)
}
Begin_of_File