var ur,sampl,n,ch,v,log%,logfilename$,vh%;

vh%:=View(); 'get view of data file

'clear log window
View(LogHandle());
		EditSelectAll();
		EditClear();

'bring data file to front again

View(vh%);

CursorDelete(-1);
CursorNew();
Cursornew(Cursor(1)+1);

interact("place Cursors around area that you wish to dump ",1023);
n:=Cursor(1);
ur:=n;
ch:=input("What channel",1);
sampl:=input("What sampling distance (ms)",1);
sampl:=sampl/1000;


'prepare Logfile
Printlog("norm. Zeit", "	","Zeit","	","Datenwert", "	","sampling distance:",sampl*1000," ms");

'get data

while n<Cursor(2) do;
n:=n+sampl;
v:=Chanvalue(ch,n);
Printlog(n-ur, "	",n,"	",v); 'print data to logfile (normalized time, time, data value)
wend;

' and save the file
View(LogHandle()); ' show it
FileSaveAs(logfilename$,1); ' save it