// System: Charlotte System

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

// select one plein and play this plein endless according the bet rules

ST:
SZ STMAX(I(1));
SZ STMAX(A);
SZ ST1(2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
SZ EI1(ST1(1));
SZ PT1(C);
SZ CO01(1);					// used to change the number 

SZ CO00(0);					// round counter
GW:
SZ CO01(1),CO00(0),EI1(ST1(1));
VE:
SZ CO00(+1);				// increment round counter
IF CO00(28) THEN SZ EI1(ST1(+1));
IF CO00(38) THEN SZ EI1(ST1(+1));
IF CO00(46) THEN SZ EI1(ST1(+1));
IF CO00(52) THEN SZ EI1(ST1(+1));
IF CO00(58) THEN SZ EI1(ST1(+1));
IF CO00(62) THEN SZ EI1(ST1(+1));
IF CO00(66) THEN SZ EI1(ST1(+1));
IF CO00(70) THEN SZ EI1(ST1(+1));
IF CO00(73) THEN SZ EI1(ST1(+1));
IF CO00(76) THEN SZ EI1(ST1(+1));
IF CO00(79) THEN SZ EI1(ST1(+1));
IF CO00(82) THEN SZ EI1(ST1(+1));
IF CO00(84) THEN SZ EI1(ST1(+1));
IF CO00(86) THEN SZ EI1(ST1(+1));
IF CO00(88) THEN SZ EI1(ST1(+1));
IF CO00(90) THEN SZ CO01(1),EI1(ST1(1));
IF CO01(0) THEN SZ PT1;

AL:
IF CO01(1) THEN SZ CO00(1),PT1(C),PT1(GZ);	 // save the last PL to play
IF CO01(1) THEN SZ PT1;
SZ CO01(0);