system "Zechnas - D'Alambert."

[zechnas]

system "Zechnas - D'Alambert."

{
D´Alambert a docenas y columnas suave con las subidas, bruco en las bajadas y
corte cuando baja de 1 la apuesta.
Zechnas/2013.
}
method "main"
begin
While Starting a new Session
begin
Clear All Records;
Clear Record "Aini" data;
Clear Record "FichApu" data;
Put 3 on Record "Aini" data;
Call "Menu";
call "Apuini";
Exit;
end

While Record "FichApu" layout has lost each time
begin
Add 0.5 on Record "Aini" data;
end
   
While Record "FichApu" layout has won each time
begin
Subtract 2 on Record "Aini" data;
end
   
While Record "Aini" data = 0
begin
Put 1 on Record "Aini" data;
end

call "Apuini";
end

method "Apuini"
begin
Put 100 % of Record "Aini" data on Record "FichApu" layout;
end

method "Menu"
begin
Input Dropdown "Haga su apuesta...

1:= 1ª.Docena
2:= 2ª.Docena
3:= 3ª.Docena
4:= Columna a
5:= Columna b
6:= Columna c " to Record "Selección" data;

While Record "Selección" data = 1
begin
Copy 1st dozen to the Record "FichApu" layout;
end
Else
begin
While Record "Selección" data = 2
begin
Copy 2nd dozen to the Record "FichApu" layout;
end

Else
begin
While Record "Selección" data = 3
begin
Copy 3rd dozen to the Record "FichApu" layout;
end

Else
begin
While Record "Selección" data = 4
begin
Copy column a to the Record "FichApu" layout;
end

Else
begin
While Record "Selección" data = 5
begin
Copy column b to the Record "FichApu" layout;
end

Else
begin
While Record "Selección" data = 6
begin
Copy column c to the Record "FichApu" layout;
end
end
end
end
end
end
  Joseph Zechnas. Posted 17/05/2022

[zechnas]

-