system "TVG1_System"
{
TVG1 - System
See VIP lounge website board for instructions
http://gambling.projectsydney.com/viewtopic.php?t=143&highlight=175+00
}
method "main"
begin
    While Starting a New Session
    begin
        Call "Initialize";
        Call "Input Data";
        Exit;
    end

    Call "Track Spins";
    Call "Determine Win/Loss";
    Call "Determine if Exceeded Progression";
    Call "Make Bet";
end

method "Make Bet"
begin
    Put 100% of record "Progression" data index to
                    record "temp" data;
                    
    Put 1 on record "Tracked Spins" Layout index;
    
    Loop until record "Tracked Spins" Layout index >
                        record "Tracked Spins" Layout count
    begin

        Put 100% of record "Progression" data on record "Tracked Spins" layout;
        Add 1 to record "Tracked Spins" layout index;
    end
end

method "Determine Win/Loss"
begin
    While Any Number Bet has won each time
    begin
        Put 1 on record "Progression" data index;
        Clear Record "Tracked Spins" Layout;
        Call "Track Spins";
        Return;
    end
    
    While Any Number Bet has lost each time
    begin
        Add 1 on Record "Progression" Data index;
    end
end

method "Determine if Exceeded Progression"
begin
    If Record "Progression" Data index > Record "Progression Index" data
    begin
        Display "Maximum Progression Exceeded. Session Ends.";
        Stop Session;
    end
end

method "Track Spins"
begin
    If record "Tracked Spins" Layout count <5
    begin
        Copy last number to record "Tracked Spins" Layout;
        Add 1 to record "Tracked Spins" Layout index;
    end
return;

    Copy last Number to the Record "Pointer to Next Spin to Track" layout;
    Add 1 on Record "Tracked Spins" Layout index;
     //Old Ref # pointer.  Uses index as pointer
    Add 1  on Record "Pointer to Next Spin to Track" data;
end

method "Initialize"
begin
    Clear Record "Starting Bankroll" data;
    Set List [5,3,2,2,1,2,2,2,3,3,3,4,5,5,6,7,8,
              10,11,13,15,17,20,23,27,31,36,42,
              49,57,66,77,89,104,120,140,162,189]
                to Record "Progression" data;
    Put 21  on Record "Progression Index" data;
    Clear Record "Tracked Spins" Layout;
    Clear Record "Total Progession Counter" data;
    Clear Record "Table Layout" data;
    Put 100% of Bankroll to record "Starting Bankroll" data;
end

method "Input Data"
begin
    Set Flag "Input Ok" to False;

    Loop Until Flag "Input Ok" is True
    begin
    Group
        begin
            Input Dropdown "What Table Layout do you want to use?

                      1:=European Layout
                      2:=American Layout" to Record "Table Layout" data;
            Input Data "Enter your starting Bankroll." to Record "Starting Bankroll" data;
            Input Data "Enter your Maximum Progression Count

                      from 1 to 38 losses." to Record "Progression Index" data;
        end

        Put 100 % of Record "Starting Bankroll" data on Bankroll;

        //=================================================================
        //Check Progression count range
        //=================================================================
        While Record "Progression Index" data = 0
        Or Record "Progression Index" data > 38
        begin
            Display "Maximum Progression Count Must be between 1 and 38";
        end
        else
        begin
            Set Flag "Input Ok" to True;
        end
    end
    
    //Setup the Table Layout
    //=================================================================
    
    While Record "Table Layout" data = 1
    begin
        Load Single Wheel;
    end
    Else
    begin
        Load Double Wheel;
    end
end