Input: 
BalanceBegin(10000),
StartTradingSession(1530),
CheckGapSize(1),
ExitBarNum(5);

Vars:
currentOpenToday(false),
todayOpen(0),
previusHigh(0),
previusLow(0),
previusClose(0),
previusOpen(0);


If Bartype = 1 Then // minute
Begin 
	previusHigh = HighD(1);
	previusLow = LowD(1);
	previusClose = CloseD(1); 
	previusOpen = OpenD(1);
	todayOpen = OpenD(0);
	//currentOpenToday = ((OpenD(0) <> CloseD(1)) And (Time >= StartTradingSession));

End;
If Bartype = 2 Then // Daily
Begin
	previusHigh = High[1];
	previusLow = Low[1]; 
	previusClose = Close[1];
	previusOpen = Open[1];
	todayOpen  = Open;

End; 

Vars:
gapSize(0); 

	if bartype = 1  then
	begin
		
		if OpenD(0) > CloseD(0) Then
		Begin
			gapSize = ((OpenD(0) - CloseD(1)) / OpenD(0) * 100);
		End;

		if OpenD(0) < CloseD(0) Then
		Begin
			gapSize = ((CloseD(1) - OpenD(0)) / OpenD(0) * 100);
		End;	
	
		print(CloseD(1) ," Yesterday close ", OpenD(0)," Today Open ");
		Print(gapSize," Gap Size % ",D,Newline);	
	end;
		
	if bartype = 2  then
	begin
		
		if Open > Close[1] Then
		Begin
			gapSize = ((Open - Close[1]) / Open * 100);
		End;

		if Open < Close[1] Then
		Begin
			gapSize = ((Close[1] - Open) / Open * 100);
		End;	
		
		print(Close[1] ," Yesterday close ", Open," Today Open ");
		Print(gapSize," Gap Size % ",D,Newline);		
	
	end;

if  gapSize >= CheckGapSize then
buy Floor(BalanceBegin/close) shares next bar at market;

if barssinceentry >= ExitBarNum then sell this bar at Close;