// System: Flaechendegression 3P /* 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); 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 GW: SZ EI0(ST1(1)); SZ PT1(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); // Round 1 play EC 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 SZ CO00(+1); // Increment round IF CO00(>1) THEN SZ EI0(ST1(+1)); // in case of play increment rise table value IF CO00(9) THEN SZ CO00(1),EI0(ST1(1)),PT1(C); // no win -> system reset