' this littel program lets you copy a part of a waveform channel from one file to another
var n,memochan,binSz,waveSize%,eTime, sTime,waveChan%,nTime;

waveChan%:=input("welcher Kanal",4);  'the channel to read from

Cursordelete(-1);
CursorNew();
Cursornew(Cursor(1)+0.01);

interact("Cursor1 links und Cursor2 rechts von auzuschneidenden Datenteil positionieren",1023);
sTime:=Cursor(1); 'set start time
eTime:=Cursor(2);	'set end time

binSz:=Binsize(waveChan%);						'get Binsize of datachannel
waveSize%:=Trunc((eTime-sTime)/binSz)+1;	'calculate size of array



copyn();			'call copy function

halt;

func copyn()		'copy function
var waveData[waveSize%]; 	'create array
	Chandata(waveChan%,waveData[],sTime,eTime,sTime);  'and copy data in it

	interact("neues File in den Vordergrund bringen!!!!",1023);  'change file by bringing them to foreground
	
	memochan:=input("neuen Memorykanal anlegen (0) oder in bestehenden Kanal schreiben (Nummer angeben)?",0);

	if memochan=0 then				'make memorychannel if necessary
		memochan:=MemChan(1,0,binSz);
		Chanshow(memochan);
	endif;

	CursorDelete(-1);
	Cursornew();

	interact("Cursor vor die einzufügenden Daten stellen",1023);

	nTime:=Cursor(1); 		'Cursor gives the new start time
	Chanwritewave(memochan,waveData[],nTime); 		'write data to memory channel

	
	return;
end;