// System: Reziprokes Martingale System 4x4

/* Haftungsausschluss / Disclaimer
   Eine Haftung fuer die Richtigkeit der Implementierung des Systems wird NICHT uebernommen, der Download und
   der Einsatz des Systems erfolgt auf eigenes Risiko!
   A liability for the correctness of the implementation of the system will NOT be assumed, the download and use
   of the system is at your own risk!
   Ing. Thomas Froehlich (www.ing-froehlich.de)
*/

ST:
SZ STMAX(I(4),A);
SZ ST1(1,2,4,8,17,36,77,160,338,709,1487);			// EC rise table
SZ ST2(1,2,4,7,14,30,62);						    // Zero rise table
SZ CO00(0);											// define stage
SZ CO01(0);											// define which EC should be played
SZ CO02(0);											// define if zero safeguard should be played

SZ CO05(0);											// Loss Counter

SZ EI1(ST1(1));
SZ EI2(ST2(1));

GW:
SZ CO00(0);											// check signals
SZ CO01(0);											// reset EC set
SZ CO02(0);											// reset zero play
SZ CO05(0);
SZ EI1(ST1(1));
SZ EI1(ST2(1));

VE:
IF CO00(1) THEN SZ CO05(+1);
IF CO00(1) AND IF CO05(<4) AND IF GZ IN PL00 THEN RESTART(F);
IF CO00(1) THEN SZ EI1(ST1(+1));
IF CO00(1) AND IF CO01(5) THEN SZ EC04;
IF CO00(1) AND IF CO01(6) THEN SZ EC03;
IF CO05(4) THEN SZ EI2(ST2(1));
IF CO05(>4) THEN SZ EI2(ST2(+1));
IF CO05(>=4) THEN SZ PL00;

AL:
// first check the signals
IF CO00(0) AND IF GZ IN EC04 AND IF VZ IN EC04 AND IF V0 IN EC03 AND IF V1 IN EC04 AND IF V2 IN EC03 THEN SZ CO01(5);
IF CO00(0) AND IF GZ IN EC03 AND IF VZ IN EC03 AND IF V0 IN EC04 AND IF V1 IN EC03 AND IF V2 IN EC04 THEN SZ CO01(6);
IF CO00(0) AND IF CO01(5) THEN SZ EI1(ST1(1)),EC04,CO00(1);
IF CO00(0) AND IF CO01(6) THEN SZ EI1(ST1(1)),EC03,CO00(1);