var eventChan% := 1;
var memChan%;

DlgCreate("Input channel");
DlgChan(1, "Chanel to edit", 2);
DlgShow(eventChan%);

MemChan% := MemChan(2);
ChanShow(memChan%);
DrawMode(memChan%, 2);
MemImport(memChan%, eventChan%, 0, Maxtime());

ToolbarSet(1, "Add Event", AddEvent%);
ToolbarSet(2, "Remove Events", RemoveEvents%);
ToolbarSet(3, "Done", Done%);
Toolbar("Add event at cursor 1. Delete events between cursors 1 and 2. Changes committed when done", 1023);

MemSave(memChan%, eventChan%);
ChanDelete(memChan%);
ChanShow(eventChan%);
DrawMode(eventChan%, 2);

func AddEvent%()
	var curr1;
	curr1 := Cursor(1);
	MemSetItem(memChan%, 0, curr1);
	return 1;
end;

func RemoveEvents%()
	var curr1;
	var curr2;
	curr1 := Cursor(1);
	curr2 := Cursor(2);
	MemDeleteTime(memChan%, 3, curr1, curr2);
	return 1;
end;

func Done%()
	return 0;
end;