Объединение двух скриптов (совмещение)

<SCRIPT LANGUAGE="JavaScript">
<!--
var filepath = "d:\\coding\\testcode1\\pr.dat";
var fso = new ActiveXObject("Scripting.FileSystemObject");
var myfile = fso.OpenTextFile(filepath, 1); // Объект файла
 
function window.onload()
{
  //Функция выполняется после загрузки документа.
  //Здесь загружается содержимое файла в текстовую область.
  document.frm1.txt1.value = myfile.ReadAll();
  //Перемещение указателя в начало файла
  myfile.Close();
  myfile = fso.OpenTextFile(filepath, 1);
}
</SCRIPT>

<script language="javascript">
function WriteToFile()
{
var fso, s, text;
//var lines = line + '\n' + secondLine;
var fso = new ActiveXObject('Scripting.FileSystemObject');
var s = fso.OpenTextFile('d:\\coding\\testcode1\\pr.dat', 8, true, 0);
var text=document.getElementById("TextArea1").innerText;
s.WriteLine(text);
var lines = text + '\n' - 1;
//s.writeline(lines);
<!-- s.WriteLine('***********************'); -->
s.Close();
}
 
</script>