var n;
var f$, jim[10], s[100][10], d, t, s$, a,b,c, x, z, chan, v1%, v2%, v3%, m, sec, datachan%;
x:=0;
sec:=2000;
m:=3;

v1%:=fileopen("",8,0);			'externes Textfile zum Lesen oeffnen
	if v1%<0 then					'irgendwas hat nicht funktioniert
		fileclose(-1,-1);			'alle offenen Files schliessen
		halt;						'Script beenden
	endif;

'v2%:=fileopen("",0,0);			'externes Textfile zum Lesen oeffnen
'	if v2%<0 then					'irgendwas hat nicht funktioniert
'		fileclose(-1,-1);			'alle offenen Files schliessen
'		halt;						'Script beenden
'	endif;

sec:=input("wie lange in ses solls denn sein?",sec); 'limitiert durch time/point und samplingfrequ in neuem file!!

v3%:=filenew(7,1,2,2,sec);	'neues Datenfile generieren
	if v2%<0 then
		message("Something went wrong");
		halt;
endif;

m:=input("wieviele Memory_channels?",m);
'interact("bitte memorychannels anlegen",1023);
PrintLog (m);

For z:=1 to m do
datachan%:=MemChan(2);
ChanShow(datachan%);
next;

repeat
x:=x+1;
view(v1%);		'macht Textfile current window
n := Read(jim[:3]);
PrintLog(jim[]);
view(v3%);		

  for z:=1 to m do
  chan:=100 + z;
  if jim[z-1] > 0 then MemSetItem(chan, 0, jim[z-1]);
  endif;
  next;

until n<0;