system "Tim's 10 number system"
{ Designed Feb 11, 2005 by ShanksComp

The idea is to spin the wheel from spin #1 to spin #10.  Then place 1 unit on
those numbers that came up.  If we loose, we add 1 unit to the bet.  Progression
is up to 5.  Once we win, we spin the wheel until spin #20, and the bet on the
last 10 numbers.}

method "main"
begin
while starting a new session begin
// for use later if progression bets are needed
put 100% of bankroll on record "high" data ;
put 1 on record "spins" data ;
put 1 on record "units" data ;
clear record "spin" layout;
clear record "BetList" layout;
clear record "SpinCount" layout;
clear record "Bet" layout;
end

while on each spin
begin

while any number bet won each time begin
clear record "Bet" layout;
clear record "units" data;
end


while any number bet lost each time begin
if record "units" data = 6 then
// This is set to 6 because of the counter...  Bets will only show 5.
begin
    clear record "Bet" layout;
    clear record "units" data;
end
add 1 to record "units" data;
call "Place Bets";
end

    copy Last Number to record "spin" layout;
//    add 1 to record "SpinCount" layout index;
        if record "spin" layout is not found in record "BetList" layout then
        begin
            set max record to "BetList" layout index;
            add 1 to record "BetList" layout index;
            copy record "spin" layout to record "BetList" layout;
            if record "BetList" layout count > 10 then
            begin
                Move List Up by 1 to record "BetList" layout;
            end
        end
    if record "SpinCount" layout index = 10
    then
    begin
        clear record "SpinCount" layout;
        put 1 on record "Bet" layout index;
        put 1 on record "BetList" layout index;
        loop until record "BetList" layout index > record "BetList" layout count
        begin
            copy record "BetList" layout to record "Bet" layout;
            add 1 to record "BetList" layout index;
            add 1 to record "Bet" layout index;
        end
        call "Place Bets";
    end
    add 1 to record "SpinCount" layout index;
end
end

method "Place Bets"
begin
    // Placing 10 bets
        put 1 on record "Bet" layout index;
        loop until record "Bet" layout index > record "Bet" layout count
        begin
            put 100% of record "units" data on record "bet" layout;
            add 1 to record "Bet" layout index;
            end
end