system "untitled" method "main" begin if starting a new session begin call "init"; end if flag "qualified" is false begin call "qualify"; end else begin call "check win/lose"; call "place bets"; end end method "init" begin set list [1,2,4,8,16,32,64,128] on record "Progression" data; put 1 units on record "Progression" data index; set flag "qualified" to false; copy list [number 0, number 1, number 2, number 3, number 8, number 10, number 11, number 12, number 13, number 20, number 21, number 22, number 23, number 26, number 30, number 31, number 32, number 33] to record "Bets" layout; end method "qualify" begin if number 0 has not hit more than 1 times and number 1 has not hit more than 1 times and number 2 has not hit more than 1 times and number 3 has not hit more than 1 times and number 8 has not hit more than 1 times and number 10 has not hit more than 1 times and number 11 has not hit more than 1 times and number 12 has not hit more than 1 times and number 13 has not hit more than 1 times and number 20 has not hit more than 1 times and number 21 has not hit more than 1 times and number 22 has not hit more than 1 times and number 23 has not hit more than 1 times and number 26 has not hit more than 1 times and number 30 has not hit more than 1 times and number 31 has not hit more than 1 times and number 32 has not hit more than 1 times and number 33 has not hit more than 1 times begin set flag "qualified" to true; call "place bets"; end end method "check win/lose" begin if net amount > 0 or record "Progression" data index > record "Progression" data count begin call "init"; exit; end else begin add 1 unit on record "Progression" data index; end end method "place bets" begin put 1 unit on record "bets" layout index; loop until record "bets" layout index > record "bets" layout count begin put 100% of record "Progression" data on record "Bets" layout; add 1 unit on record "bets" layout index; end end