system "most and least showing dozens and columns"

method "main"

begin

if starting a new session
or bankroll > record "bankroll" data
or record "progression" data index > record "progression" data index count
     begin
     call "init"
     exit
     end
     
// keep track of how many times each dozen hits

if 1st dozen hit each time begin
add 1 to record "doz1" data ;
return ;
end

if 2nd dozen hit each time begin
add 1 to record "doz2" data ;
return ;
end

if 3rd dozen hit each time begin
add 1 to record "doz3" data ;
return ;
end

// check for most hit dozen and bet on it

if record "doz1" data > record "doz2" data and record "doz1" data > record "doz3" data begin
put 5 on 1st dozen ;
end

if record "doz2" data > record "doz1" data and record "doz2" data > record "doz3" data begin
put 5 on 2nd dozen ;
end

if record "doz3" data > record "doz1" data and record "doz3" data > record "doz2" data begin
put 5 on 3rd dozen ;
end

// check for least hit dozen and bet on it

if record "doz1" data < record "doz2" data and record "doz1" data < record "doz3" data begin
put 5 on 1st dozen ;
end

if record "doz2" data < record "doz1" data and record "doz2" data < record "doz3" data begin
put 5 on 2nd dozen ;
end

if record "doz3" data < record "doz1" data and record "doz3" data < record "doz2" data begin
put 5 on 3rd dozen ;
end
// ==================================

// keep track of how many times each column hits

if column a hit each time begin
add 1 to record "column a" data ;
return ;
end

if column b hit each time begin
add 1 to record "column b" data ;
return ;
end

if column c hit each time begin
add 1 to record "column c" data ;
return ;
end

// check for most hit column and bet on it

if record "column a" data > record "column b" data and record "column a" data > record "column c" data begin
put 5 on column a ;
end

if record "column b" data > record "column a" data and record "column b" data > record "column c" data begin
put 5 on column b ;
end

if record "column c" data > record "column a" data and record "column c" data > record "column b" data begin
put 5 on column c ;
end

// check for least hit column and bet on it

if record "column a" data < record "column b" data and record "column a" data < record "column c" data begin
put 5 on column a ;
end

if record "column b" data < record "column a" data and record "column b" data < record "column c" data begin
put 5 on column b ;
end

if record "column c" data < record "column a" data and record "column c" data < record "column b" data begin
put 5 on column c ;
end
// done
//put 100% of record "progression" data on WHATEVER

// Assume we've lost and increment the pointer on the progression list - if we have won, the check on bankroll will take care of resetting the progression

add 1 unit on record "progression" data index

end


method "init"
begin

set list [1,2,3,4,5,6,7] on record "progression" data

// the set list command automatically puts a value of '1' in the data index

put 100% of bankroll on record "bankroll" data

end