// $language = "JScript"
// $interface = "1.0"

//
// 2008 02 20 Heeseung Jo (at KAIST)
//
function main()
{
var fso, f, r;
var ForReading = 1, ForWriting = 2;
var waitStrs;

fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.OpenTextFile("d:\\output.txt", ForWriting, 1)

crt.Screen.Synchronous = true;

var st = new Date().getTime(); // milli second
var str, screenrow, st, et ;
while ( true )
{
result = crt.Screen.WaitForStrings( "\n" );
if (result==2)
break;

screenrow = crt.screen.CurrentRow - 1
str = crt.Screen.Get(screenrow, 1, screenrow, 255 )

et = new Date().getTime(); // milli second
f.Write("["+ (et-st) +"] "+ str +"\n");
}

crt.screen.synchronous = false;

};