Dozens & Columns

Contenuto del file

system "another system for Dozens & Columns"
{

}
method "main"
begin
while starting a new session
    begin
    put 1 on record "bet amount" data
    put 100% bankroll on record "highbr" data
    end
put 100% bankroll on record "tempbr" data
call "eval"
call "bet"
end

method "eval"
begin
if net > 0
    begin
    subtract 1 on record "bet amount" data
       if record "bet amount" data < 1
       begin
       put 1 on record "bet amount" data
       end
    end

if net > 0 and record "tempbr" data > record "highbr" data
    begin
    put 1 on record "bet amount" data
    put 100% record "tempbr" data on record "highbr" data
    end

if net < 0
    begin
    add 1 on record "bet amount" data
    end
end

method "bet"
begin
if 1st dozen has hit each time and column a has hit each time
    begin
    put 100% record "bet amount" data on column b
    put 100% record "bet amount" data on column c
    put 100% record "bet amount" data on 2nd dozen
    put 100% record "bet amount" data on 3rd dozen
    end

if 2nd dozen has hit each time and column b has hit each time
    begin
    put 100% record "bet amount" data on column a
    put 100% record "bet amount" data on column c
    put 100% record "bet amount" data on 1st dozen
    put 100% record "bet amount" data on 3rd dozen
    end

if 3rd dozen has hit each time and column c has hit each time
    begin
    put 100% record "bet amount" data on column b
    put 100% record "bet amount" data on column a
    put 100% record "bet amount" data on 2nd dozen
    put 100% record "bet amount" data on 1st dozen
    end
end