If Any street bet won eachbegin//add 1 on Record "progression" Data Index{subtract 2 from Record "progression" Data Index if Record "progression" Data Index <= 0 each begin put 1 on Record "progression" Data Index end}

If flag "s1" true eachbegin//put 100% of Record "progression" Data on Record "s2" Layout listput 100% of Record "progression" Data on Record "s3" Layout listput 100% of Record "progression" Data on Record "s4" Layout listend

If flag "s2" true eachbegin//put 100% of Record "progression" Data on Record "s1" Layout listput 100% of Record "progression" Data on Record "s3" Layout listput 100% of Record "progression" Data on Record "s4" Layout listend

If flag "s3" true eachbeginput 100% of Record "progression" Data on Record "s1" Layout listput 100% of Record "progression" Data on Record "s2" Layout list//put 100% of Record "progression" Data on Record "s4" Layout listend

If flag "s4" true eachbeginput 100% of Record "progression" Data on Record "s1" Layout listput 100% of Record "progression" Data on Record "s2" Layout list//put 100% of Record "progression" Data on Record "s3" Layout listend

If flag "s5" true eachbegin//put 100% of Record "progression" Data on Record "s6" Layout listput 100% of Record "progression" Data on Record "s7" Layout listput 100% of Record "progression" Data on Record "s8" Layout listend

If flag "s6" true eachbegin//put 100% of Record "progression" Data on Record "s5" Layout listput 100% of Record "progression" Data on Record "s7" Layout listput 100% of Record "progression" Data on Record "s8" Layout listend

If flag "s7" true eachbeginput 100% of Record "progression" Data on Record "s5" Layout listput 100% of Record "progression" Data on Record "s6" Layout list//put 100% of Record "progression" Data on Record "s8" Layout listend

If flag "s8" true eachbeginput 100% of Record "progression" Data on Record "s5" Layout listput 100% of Record "progression" Data on Record "s6" Layout list//put 100% of Record "progression" Data on Record "s7" Layout listend

If flag "s9" true eachbegin//put 100% of Record "progression" Data on Record "s10" Layout listput 100% of Record "progression" Data on Record "s11" Layout listput 100% of Record "progression" Data on Record "s12" Layout listend

If flag "s10" true eachbegin//put 100% of Record "progression" Data on Record "s9" Layout listput 100% of Record "progression" Data on Record "s11" Layout listput 100% of Record "progression" Data on Record "s12" Layout listend

If flag "s11" true eachbeginput 100% of Record "progression" Data on Record "s9" Layout listput 100% of Record "progression" Data on Record "s10" Layout list//put 100% of Record "progression" Data on Record "s12" Layout listend

If flag "s12" true eachbeginput 100% of Record "progression" Data on Record "s9" Layout listput 100% of Record "progression" Data on Record "s10" Layout list//put 100% of Record "progression" Data on Record "s11" Layout listend

If Any street bet won eachbeginadd 1 on Record "progression" Data Index{subtract 2 from Record "progression" Data Index if Record "progression" Data Index <= 0 each begin put 1 on Record "progression" Data Index end}

If flag "s1" true eachbegin//put 100% of Record "progression" Data on Record "s2" Layout listput 100% of Record "progression" Data on Record "s3" Layout listput 100% of Record "progression" Data on Record "s4" Layout listend

If flag "s2" true eachbegin//put 100% of Record "progression" Data on Record "s1" Layout listput 100% of Record "progression" Data on Record "s3" Layout listput 100% of Record "progression" Data on Record "s4" Layout listend

If flag "s3" true eachbeginput 100% of Record "progression" Data on Record "s1" Layout listput 100% of Record "progression" Data on Record "s2" Layout list//put 100% of Record "progression" Data on Record "s4" Layout listend

If flag "s4" true eachbeginput 100% of Record "progression" Data on Record "s1" Layout listput 100% of Record "progression" Data on Record "s2" Layout list//put 100% of Record "progression" Data on Record "s3" Layout listend

If flag "s5" true eachbegin//put 100% of Record "progression" Data on Record "s6" Layout listput 100% of Record "progression" Data on Record "s7" Layout listput 100% of Record "progression" Data on Record "s8" Layout listend

If flag "s6" true eachbegin//put 100% of Record "progression" Data on Record "s5" Layout listput 100% of Record "progression" Data on Record "s7" Layout listput 100% of Record "progression" Data on Record "s8" Layout listend

If flag "s7" true eachbeginput 100% of Record "progression" Data on Record "s5" Layout listput 100% of Record "progression" Data on Record "s6" Layout list//put 100% of Record "progression" Data on Record "s8" Layout listend

If flag "s8" true eachbeginput 100% of Record "progression" Data on Record "s5" Layout listput 100% of Record "progression" Data on Record "s6" Layout list//put 100% of Record "progression" Data on Record "s7" Layout listend

If flag "s9" true eachbegin//put 100% of Record "progression" Data on Record "s10" Layout listput 100% of Record "progression" Data on Record "s11" Layout listput 100% of Record "progression" Data on Record "s12" Layout listend

If flag "s10" true eachbegin//put 100% of Record "progression" Data on Record "s9" Layout listput 100% of Record "progression" Data on Record "s11" Layout listput 100% of Record "progression" Data on Record "s12" Layout listend

If flag "s11" true eachbeginput 100% of Record "progression" Data on Record "s9" Layout listput 100% of Record "progression" Data on Record "s10" Layout list//put 100% of Record "progression" Data on Record "s12" Layout listend

If flag "s12" true eachbeginput 100% of Record "progression" Data on Record "s9" Layout listput 100% of Record "progression" Data on Record "s10" Layout list//put 100% of Record "progression" Data on Record "s11" Layout listend