// System: Running Dozen

/* 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)
*/

// in the first two runs - determine DZ (or KL)

ST:
SZ STMAX(I(1));
SZ STMAX(A);
SZ ST1(1,3,9,27);
SZ EI1(ST1(1));
SZ CO01(1);			// 1= determine DZ
SZ CO03(0);		 	// necessary to find 2 different DZ's

GW:
SZ CO01(1);			// set back to determine the next attack
SZ EI1(ST1(1));		// reset rise table
SZ PT1(C);

VE:
SZ EI1(ST1(+1));
SZ PT1;

AL:
SZ CO02(0),CO03(0);
IF CO01(1) AND IF GZ IN DZ01 THEN SZ CO02(1),PT1(DZ01);				// in case of KL play - replace DZ01 with KL01
IF CO01(1) AND IF GZ IN DZ02 THEN SZ CO02(2),PT1(DZ02);				// in case of KL play - replace DZ02 with KL02
IF CO01(1) AND IF GZ IN DZ03 THEN SZ CO02(3),PT1(DZ03);				// in case of KL play - replace DZ03 with KL03
IF CO01(1) AND IF VZ IN DZ01 AND IF CO02(2) THEN SZ CO03(1),PT1(DZ01);
IF CO01(1) AND IF VZ IN DZ01 AND IF CO02(3) THEN SZ CO03(1),PT1(DZ01);
IF CO01(1) AND IF VZ IN DZ02 AND IF CO02(1) THEN SZ CO03(2),PT1(DZ02);
IF CO01(1) AND IF VZ IN DZ02 AND IF CO02(3) THEN SZ CO03(2),PT1(DZ02);
IF CO01(1) AND IF VZ IN DZ03 AND IF CO02(1) THEN SZ CO03(3),PT1(DZ03);
IF CO01(1) AND IF VZ IN DZ03 AND IF CO02(2) THEN SZ CO03(3),PT1(DZ03);
// check if DZ's different - if not - try in the next round to found 2 different DZ's
IF CO01(1) AND IF CO03(>0) THEN SZ CO01(2),PT1;
IF CO01(1) AND IF CO03(0) THEN SZ PT1(C);