{ PR_TRD
Pattern Regonition Result - trading
(C)Copyright, 2015, B.Eichberger from Professional Software Solutions, pss@pobox.com
This program remains the exclusive property of B. EICHBERGER and may not be sold,
used, copied, displayed or modified without the written consent of B. EICHBERGER
}
Input:
	LeftStrength(10),
	RightStrength(2),
	PatternName("GartleyBull"),
	ProfitAmount(1000);

Vars:
	CheckPivotValue(true),
	LeaveTempLines(false),
	nColor(0),
	nDir(0),
	nShift(0),
	nShiftOpp(0),
	nPrc(0),
	nBar(0),
	nPrcOpp(0),
	iIdx(0),
	nTLID(-1),
	nCustomerID(0),
	txtDiag("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxXX"),
	txtID(Symbol + "_PRTrd"),
	MainSignal(0),
	ret1(0), ret2(0);
Array:
	float arrValIn[50](0),
	float arrValOut[100](0);

external: "C:\Database\MC_ADD\PSS_PR.DLL", int, "PSS_PR64",LPSTR,LPSTR,IEasyLanguageObject {self},LPSTR;
DefineDLLFunc: "C:\Database\MC_ADD\PSS_PR.DLL", int , "PSS_GCID", LPSTR;

nCustomerID = PSS_GCID(getUserName());
arrValIn[0] = LeftStrength;
arrValIn[1] = RightStrength;
arrValIn[2] = 1;	// PSS_PR_CalcPat
arrValIn[3] = 0;
IF CheckPivotValue = true THEN
	arrValIn[3] = 1;
ret2 = PSS_PR64(txtID,txtDiag,Self,PatternName);
//print("ret2=",ret2,",",Date,",",Time);

MainSignal = arrValOut[0];
if ret2 > 0 AND MainSignal >= 100 AND MainSignal[1] < 100 then
	Buy next bar at market;
	
IF MarketPosition <> 0 THEN BEGIN
	setprofittarget(ProfitAmount);
END;