system "Dilpreet Reds & Blacks"
{
    *** BY DILPREET:
    We will be betting on Red/blacks.
    We do not bet until we have a streak of one colour, which is 10 spins long.
    Eg - RRRRRRRRRR
    After this streak, we start betting on red with the following progression =
    1, 1, 1, 2, 2, 3, 4, 4, 5, 6, 8, 9, 12, 14, 16,
    Simultaneously, we bet on Blacks (supposed to be 'due') according to the Marty,
    1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, ________________
    Until we have a win.

}
method "main"
begin
    While Starting a New Session begin
        set list [1, 1, 1, 2, 2, 3, 4, 4, 5, 6, 8, 9, 12, 14, 16] to record "Bet#1" data
        set list[1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024]    to record "Bet#2" data
        Copy Red to record "Red" layout
        Copy Black to record "Black" layout

        input data "How many Spins in a Row ?" record "Spins" data
        exit
    end

    if net > 0 begin
        put 1 record "Bet#1" data index
        put 1 record "Bet#2" data index
    end
    if net < 0 begin
        add 1 record "Bet#1" data index
        add 1 record "Bet#2" data index
    end

    track last red-black for record "Spins" data to record "Streak" layout

    if record "Streak" layout count = record "Spins" data begin
    if record "Red" layout is not found in record "Streak" layout  begin
        put 100 % record "Bet#1" data to Black
        put 100 % record "Bet#2" data to Red
    end
     if record "Black" layout is not found in record "Streak" layout begin
        put 100 % record "Bet#1" data to Red
        put 100 % record "Bet#2" data to Black
    end
    end

end