var bins,n[1000000],kanal,memory,neuerKanal,sample;
' max 100s, , für 10kHz
cursordelete(-1);
cursornew();cursornew();
interact("set Cursors for area to invert - max 100sec at 10 khz",1023);
kanal:=input("which channel do you want to invert?",1);
sample:=Binsize(kanal);
'sample:=input("what is your sampling rate?",bins);
'sample:=1/sample;
memory:=memchan(1,0,sample);
chandata(kanal,n[],cursor(1),cursor(2));
arrmul(n[],-1);
memsetitem(memory,0,cursor(1),n[]);
neuerKanal:=input("write to which channel?, 0 means do not write",0,0,32);
if neuerKanal>0 then
memsave(memory,neuerKanal);
chandelete(memory);
chanshow(neuerKanal);
else chanshow(memory);
endif;
draw();