// System: Flaechendegression Full

/* 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:                             // start section
SZ STMAX(I(1));					// Ignore counter to 1
SZ ST1(1,2,4,4,6,9,6,7,8,5,5,6,2,2,2,3,3,3,3,3,3,3,3,3);
SZ EI0(ST1(1));

SZ CO00(1);						// What should be played
								// CO00 == 1 == select round
								// EC 1,2,3
								// DZ 4,5,6
								// TS 7,8,9
								// TP 10,11,12
								// PL 13-25

GW:
SZ EI0(ST1(1));
SZ PT1(C);						                         // Clear Playtable
SZ PT2(C);						                         // Clear Playtable
SZ CO00(0);						                         // reset round selector = nothing is played in AL

AL:                                                      // general section
IF CO00(1) AND IF GZ IN PL00 THEN SZ CO00(0);		     // in case of zero in select round -> skip number
IF CO00(1) AND IF GZ IN EC02 THEN SZ PT1(EC02);          // Select EC for play in the next rounds
IF CO00(1) AND IF GZ IN EC05 THEN SZ PT1(EC05);
IF CO00(1) THEN SZ PT1(1),PT2(GZ);					     // Round 1 play EC and save GZ
IF CO00(>=2) AND IF CO00(<=3) THEN SZ PT1(1);	         // Round 2-3 play EC

IF CO00(4) THEN SZ PT1(C);
IF CO00(4) AND IF V1 IN DZ01 THEN SZ PT1(DZ01);			 // Select DZ for play in the next rounds
IF CO00(4) AND IF V1 IN DZ02 THEN SZ PT1(DZ02);
IF CO00(4) AND IF V1 IN DZ03 THEN SZ PT1(DZ03);
IF CO00(4) THEN SZ PT1(1);								 // Round 4 play DZ 
IF CO00(>=5) AND IF CO00(<=6) THEN SZ PT1(1);            // Round 5-6 play DZ

IF CO00(7) THEN SZ PT1(C);
IF CO00(7) AND IF V4 IN TS01 THEN SZ PT1(TS01);			 // Select TS for play in the next rounds
IF CO00(7) AND IF V4 IN TS03 THEN SZ PT1(TS03);
IF CO00(7) AND IF V4 IN TS05 THEN SZ PT1(TS05);
IF CO00(7) AND IF V4 IN TS07 THEN SZ PT1(TS07);
IF CO00(7) AND IF V4 IN TS09 THEN SZ PT1(TS09);
IF CO00(7) AND IF V4 IN TS11 THEN SZ PT1(TS11);
IF CO00(7) THEN SZ PT1(1);								 // Round 7 play TS
IF CO00(>=8) AND IF CO00(<=9) THEN SZ PT1(1);            // Round 8-9 play TS

IF CO00(10) THEN SZ PT1(C);
IF CO00(10) AND IF V7 IN TP03 THEN SZ PT1(TP03);         // Select TP for play in the next rounds
IF CO00(10) AND IF V7 IN TP04 THEN SZ PT1(TP04);
IF CO00(10) AND IF V7 IN TP05 THEN SZ PT1(TP05);
IF CO00(10) AND IF V7 IN TP06 THEN SZ PT1(TP06);
IF CO00(10) AND IF V7 IN TP07 THEN SZ PT1(TP07);
IF CO00(10) AND IF V7 IN TP08 THEN SZ PT1(TP08);
IF CO00(10) AND IF V7 IN TP09 THEN SZ PT1(TP09);
IF CO00(10) AND IF V7 IN TP10 THEN SZ PT1(TP10);
IF CO00(10) AND IF V7 IN TP11 THEN SZ PT1(TP11);
IF CO00(10) AND IF V7 IN TP12 THEN SZ PT1(TP12);
IF CO00(10) AND IF V7 IN TP13 THEN SZ PT1(TP13);
IF CO00(10) AND IF V7 IN TP14 THEN SZ PT1(TP14);
IF CO00(10) THEN SZ PT1(1);								// Round 10 play TP
IF CO00(>=11) AND IF CO00(<=12) THEN SZ PT1(1);         // Round 11-12 play TP

IF CO00(>=13) AND IF CO00(<=25) THEN SZ PT2(1);			// Round 13-25 play PL which is saved in select EC

SZ CO00(+1);                                            // Increment round
IF CO00(>1) THEN SZ EI0(ST1(+1));                       // in case of play increment rise table value
IF CO00(25) THEN SZ CO00(1),EI0(ST1(1)),PT1(C),PT2(C);	// no win -> system reset