Sistema Zechnas 12 del patíbulo

system "Zechnas 12 del patibulo"
{ Se trata de una vieja forma de apuesta basada en la repetición de una tanda de
números ya salidos, en éste caso 12.
Matemáticamente jugamos 1 de cada 3 números que pueden salir, pero aplicando la
Ley del Tercio, después de las primeras 12 bolas se comienzan a conformar las 3
tandas de salidos, repetitivos y no salidos que la componen.
Si apostamos a los salidos quiere decirse que optamos tambien a 1/3 de las posi-
bilidades que es la que los convertiría en repetitivos.
De hecho la suma de las posibilidades que se dan en ciertos momentos parece que
nos brinda entonces una clara ventaja, pero ojo una sola racha negativa en la
cresta de la progresión puede dar al traste con nuestras ganancias.
Las permenencias de electros parecen ser el fuerte de éste sistéma.
Aconsejo probar diferentes cantidades y cajas y ojo, la cantidad a perder debe
estar en negativo, como indica el ejemplo.
J.Zechnas.
}

method "main"
begin
while starting a new session
begin
put 100% del bankroll en record "primitiva" data ;
put 1 en record "valores" data ;
put 1 en record "vueltas" data ;
clear record "apuestas" layout;
clear record "apostado" layout;
clear record "giro" layout;
clear record "cuentavueltas" layout;
call "pregunta"
end

while en each spin
begin
while any number bet y won each
begin
clear record "valores" data;
clear record "apostado" layout;
end

while any number bet lost each
begin
if record "valores" data = 13
begin
clear record "valores" data;
clear record "apostado" layout;
end
add 1 en record "valores" data;
call "en mesa";
end

copy Last Number en record "giro" layout;
if record "giro" layout es not found en el record "apuestas" layout
begin
set max record para "apuestas" layout index;
add 1 en record "apuestas" layout index;
copy record "giro" layout en record "apuestas" layout;
if record "apuestas" layout count > 12 then
begin
Move List Up para 1 del record "apuestas" layout;
end
end
if record "cuentavueltas" layout index = 12
begin
clear record "cuentavueltas" layout;
put 1 en record "apuestas" layout index;
put 1 en record "apostado" layout index;
loop until record "apuestas" layout index > record "apuestas" layout count
begin
copy record "apuestas" layout para record "apostado" layout;
add 1 al record "apostado" layout index;
add 1 al record "apuestas" layout index;
end
call "en mesa";
end
add 1 al record "cuentavueltas" layout index;
end
end

method "en mesa"
begin
put 1 del record "apostado" layout index;
loop until record "apostado" layout index > record "apostado" layout count
begin
put 100% del record "valores" data en record "apostado" layout;
add 1 al record "apostado" layout index;
end

if Bankroll >= record "triunfando" data
begin
Display "Sesión ganada, objetivo cumplido"
end
if Bankroll <= record "perdiendo" data
begin
Display"Sesión perdida, lo siento...."
end

if Bankroll >= record "triunfando" data
or Bankroll <= record "perdiendo" data
begin
Stop Session
end
end

method "pregunta"
begin
group
begin
input data "Objetivo de ganancia... (ej: 100) " record "triunfando" Data
input data "Máximo dispuesto a perder... (ej: -50) " record "perdiendo" Data
end
end