system "System 63"
{
*************************************
*          System by iamian         *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
You are betting on two dozens with this progression
1-1,3-3,9-9

If you win on any stage of progression, you will bet 1-1 again next time.
If you lose with 9-9 bets, you reset back to 1-1 and you continue.
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    call "Init"
    exit
    end
call "Bet"
end

method "Bet"
begin
if net > 0
    begin
    put 1 record"Pro"data index
    end
if net < 0
    begin
    add 1 record"Pro"data index
    end
if record"Pro"data index > record"Pro"data count
    begin
    put 1 record"Pro"data index
    end
put 100% record"Pro"data record"Bet this"layout list
end

method "Init"
begin
group
    begin
    display "2x63 System"
    display "----------------------------"
    input dropdown "Which Dozens?
    1:=1st & 2nd
    2:=1st & 3rd
    3:=2nd & 3rd" record"Which Dozens"data
    end
if record"Which Dozens"data = 1
    begin
    copy list [1st dozen, 2nd dozen] record"Bet this"layout
    end
if record"Which Dozens"data = 2
    begin
    copy list [1st dozen, 3rd dozen] record"Bet this"layout
    end
if record"Which dozens"data = 3
    begin
    copy list [2nd dozen, 3rd dozen] record"Bet this"layout
    end
set list [1,3,9] record"Pro"data
put 1 record"Pro"data index
call "Bet"
end