Открытие файла

function Make_Order(TransactionOper)
{
	local data, fh;

	fh = fopen("C:\\Quick\\file.TXT","w"); 
	if (fh) 
	{
		data = "X"+TransactionOper;
		fputs(data,fh); 
		fclose(fh);
	} 
	else 
	{ 
		printf("Error opening file"); 
	}

 	return;
}

// Смотрим текущую позицию и отрабатываем сигналы. CurrentPosition хранит 0, если позиции нет и размер позиции, если она есть
CurrentPosition = StrToNum(StaticVarGetText("POSITION"));
if (CurrentPosition == 0)
   {  if (LastValue(Buy))
      { Make_Order(ClassCode,SecCode,"Buy",Size);
        StaticVarSetText("POSITION","" + Size);
      }
   }
else
   {  if (LastValue(Sell))
      { Make_Order(ClassCode,SecCode,"Sell",CurrentPosition);
         StaticVarSetText("POSITION","0");
      }
   }

CurrentPosition = StaticVarGet("POSITION");

if (CurrentPosition == 0)
{
	if (LastValue(Buy))
	{
		Make_Order("B");
		StaticVarSet("POSITION",1);
	}
	if (LastValue(Sell))
	{
		Make_Order("S");
		StaticVarSet("POSITION",-1);
	}
}
if (CurrentPosition == 1)
{
	if (LastValue(Sell))
	{
		Make_Order("S");
		StaticVarSet("POSITION",-1);
	}
}
if (CurrentPosition == -1)
{
	if (LastValue(Buy))
	{
		Make_Order("B");
		StaticVarSet("POSITION",1);
	}
}