var loesch,kanal,memory,neuerKanal,sample,frage,wo,wokanal, links, rechts;
' max 1000s, , für 10kHz
cursordelete(-1);
cursornew();cursornew();
interact("set Cursors for area to be processed",1023);
links:=Cursor(1);
rechts:=Cursor(2);

kanal:=input("which channel do you want to process?",1);
'sample:=input("what is your sampling rate?",1);
wokanal:=input("Give trigger channel or do not change",0);


'Copy waveform to a memory channel
if ChanKind(kanal)<>1 then halt endif; 'Not a waveform!
memory := MemChan(1,0,BinSize(kanal));     'Create waveform channel
if memory>0 then                            'Created OK?
   ChanScale(memory, ChanScale(kanal));    'Copy scale...
   ChanOffset(memory, ChanOffset(kanal));  '...and offset...
   ChanUnits$(memory, ChanUnits$(kanal));  '...and units
   ChanTitle$(memory, "Copy");              'Set our own title
   ChanComment$(memory, "Copied from channel "+Str$(kanal));
   MemImport(memory, kanal, links, rechts); 'Copy data
endif;




chanshow(memory); 'display new channel

draw(links, rechts-links);

cursordelete(-1);
cursornew();
'interact("place Cursor in front of data you want to delete",1023);
loesch:=0.5;
cursornew();


if wokanal<=0 then

repeat
interact("place Cursor around data you want to delete",1023);
loesch:=cursor(2)-cursor(1);
MemdeleteTime(memory,3,Cursor(1),Cursor(2));
interact("place cursor 1 in front of next data to delete", 1023);
cursor(2, cursor(1)+loesch);
frage:=input("continue to delete (<0 stops deleting)?",1);
until frage<0;

else

interact("place Cursor around data you want to delete",1023);

repeat
wo:=nexttime(wokanal,wo);

loesch:=cursor(2)-cursor(1);
MemdeleteTime(memory,3,Cursor(1),Cursor(2));
Cursor(1,wo);
cursor(2, cursor(1)+loesch);
interact("place cursor 2 correctly", 1023);

until wo<0;



endif;
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();