Sistema Tanausu V1.0

system "Zechnas Tanausu V 1.0"
{
Apostamos al cambio de color y cuando fallamos a la repetición del color que nos
hizo perder después de una serie de dos.
Despues de acertar esperamos bola no agrupada y apostamos de nuevo al contrario.
Las series que nos haran perder son del tipo : RRNNRRNN O NNRRNNRR repetidamente
en todas sus extensiones.
J.Zechnas/2010
}
method "main"
begin
while starting a new session
begin

Input Data "¿ Con que caja quiere jugar hoy ? " bankroll
exit;
end

call "sistema"
end

method "sistema"
begin
clear last answer
if red tiene hit en 1 bola
begin
put 1 ficha en black
end

if black tiene hit en 1 bola
begin
put 1 ficha en red
end

if red tiene hit en 2 bolas
begin
put 2 fichas en red
end

if black tiene hit en 2 bolas
begin
put 2 fichas en black
end

End