Well, from my testings this will win for "a couple of thousand spins" before it crash,...so, short-term then, ...we´ll see? i just finished the code and did 5 short live-tests.
Procedure; TRIGGER 2 hits within 1 dozen, now when the repeat has Ended and any of the (non-repeating dozens) Hits, you bet all streets within those 2 "non-repeating dozens", except the current street hit. That will be 7 STREETs Bet (21 numbers).
Progression; This can be the tweak, i just use an ordinary negative (Let me know if you have any good progression ideas)...
Test 1-5 (Livespins)
RX-code
system "Lucky 21"
//(copyright) ignatus 2019
method "main"
begin
while starting a new session
begin
//Set List[1,1,3,7,21,55,125,275]
Set List[1,1,2,5,12,25,55,120,250,525]
to Record "progression" Data
end
Copy List [Street(4-6),Street(7-9),street(10-12)] to Record "s1" Layout
Copy List [Street(1-3),street(7-9),street(10-12)] to Record "s2" Layout
Copy List [Street(4-6),Street(1-3),street(10-12)] to Record "s3" Layout
Copy List [Street(4-6),Street(7-9),Street(1-3)] to Record "s4" Layout
Copy List [Street(16-18),Street(19-21),Street(22-24)] to Record "s5" Layout
Copy List [Street(13-15),Street(19-21),Street(22-24)] to Record "s6" Layout
Copy List [Street(16-18),Street(13-15),Street(22-24)] to Record "s7" Layout
Copy List [Street(16-18),Street(19-21),Street(13-15)] to Record "s8" Layout
Copy List [Street(28-30),Street(31-33),Street(34-36)] to Record "s9" Layout
Copy List [Street(25-27),Street(31-33),Street(34-36)] to Record "s10" Layout
Copy List [Street(28-30),Street(25-27),Street(34-36)] to Record "s11" Layout
Copy List [Street(28-30),Street(31-33),Street(25-27)] to Record "s12" Layout
Copy List [Street(1-3),Street(4-6),Street(7-9),street(10-12)] to Record "D1" Layout
Copy List [street(13-15),street(16-18),Street(19-21),Street(22-24)] to Record "D2" Layout
Copy List [street(25-27),Street(28-30),Street(31-33),Street(34-36)] to Record "D3" Layout
while on each spin
begin
If Any street bet won each
begin
put 1 on Record "progression" Data Index
set flag "D1" false
set flag "D2" false
set flag "D3" false
set flag "D1s5" false
set flag "D1s6" false
set flag "D1s7" false
set flag "D1s8" false
set flag "D1s9" false
set flag "D1s10" false
set flag "D1s11" false
set flag "D1s12" false
set flag "D2s1" false
set flag "D2s2" false
set flag "D2s3" false
set flag "D2s4" false
set flag "D2s9" false
set flag "D2s10" false
set flag "D2s11" false
set flag "D2s12" false
set flag "D3s1" false
set flag "D3s2" false
set flag "D3s3" false
set flag "D3s4" false
set flag "D3s5" false
set flag "D3s6" false
set flag "D3s7" false
set flag "D3s8" false
clear Record "s1" Layout
clear Record "s2" Layout
clear Record "s3" Layout
clear Record "s4" Layout
clear Record "s5" Layout
clear Record "s6" Layout
clear Record "s7" Layout
clear Record "s8" Layout
clear Record "s9" Layout
clear Record "s10" Layout
clear Record "s11" Layout
clear Record "s12" Layout
clear Record "D1" Layout
clear Record "D2" Layout
clear Record "D3" Layout
end
{if total bankroll >= 300 each time
begin
stop session
end
}
if total bankroll <= -1500 each time
begin
stop session
end
{if total spin count >= 250 each time
begin
stop session
end
}
If any inside bet lost each
begin
add 1 on Record "progression" Data Index
end
IF 1st dozen has hit more 1 times each
begin
set flag "D1" true
end
IF 2nd dozen has hit more 1 times each
begin
set flag "D2" true
end
IF 3rd dozen has hit more 1 times each
begin
set flag "D3" true
end
IF flag "D1" true each
begin
if street(13-15) has hit each
begin
set flag "D1s5" true
put 100% of Record "progression" Data on Record "s5" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(16-18) has hit each
begin
set flag "D1s6" true
put 100% of Record "progression" Data on Record "s6" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(19-21) has hit each
begin
set flag "D1s7" true
put 100% of Record "progression" Data on Record "s7" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(22-24) has hit each
begin
set flag "D1s8" true
put 100% of Record "progression" Data on Record "s8" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(25-27) has hit each
begin
set flag "D1s9" true
put 100% of Record "progression" Data on Record "s9" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(28-30) has hit each
begin
set flag "D1s10" true
put 100% of Record "progression" Data on Record "s10" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(31-33) has hit each
begin
set flag "D1s11" true
put 100% of Record "progression" Data on Record "s11" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(34-36) has hit each
begin
set flag "D1s12" true
put 100% of Record "progression" Data on Record "s12" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
end
IF flag "D2" true each
begin
if street(1-3) has hit each
begin
set flag "D2s1" true
put 100% of Record "progression" Data on Record "s1" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(4-6) has hit each
begin
set flag "D2s2" true
put 100% of Record "progression" Data on Record "s2" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(7-9) has hit each
begin
set flag "D2s3" true
put 100% of Record "progression" Data on Record "s3" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(10-12) has hit each
begin
set flag "D2s4" true
put 100% of Record "progression" Data on Record "s4" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(25-27) has hit each
begin
set flag "D2s9" true
put 100% of Record "progression" Data on Record "s9" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(28-30) has hit each
begin
set flag "D2s10" true
put 100% of Record "progression" Data on Record "s10" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(31-33) has hit each
begin
set flag "D2s11" true
put 100% of Record "progression" Data on Record "s11" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(34-36) has hit each
begin
set flag "D2s12" true
put 100% of Record "progression" Data on Record "s12" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
end
IF flag "D3" true each
begin
if street(1-3) has hit each
begin
set flag "D3s1" true
put 100% of Record "progression" Data on Record "s1" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(4-6) has hit each
begin
set flag "D3s2" true
put 100% of Record "progression" Data on Record "s2" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(7-9) has hit each
begin
set flag "D3s3" true
put 100% of Record "progression" Data on Record "s3" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(10-12) has hit each
begin
set flag "D3s4" true
put 100% of Record "progression" Data on Record "s4" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(13-15) has hit each
begin
set flag "D3s5" true
put 100% of Record "progression" Data on Record "s5" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(16-18) has hit each
begin
set flag "D3s6" true
put 100% of Record "progression" Data on Record "s6" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(19-21) has hit each
begin
set flag "D3s7" true
put 100% of Record "progression" Data on Record "s7" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(22-24) has hit each
begin
set flag "D3s8" true
put 100% of Record "progression" Data on Record "s8" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
end
IF flag "D1s5" true each
begin
put 100% of Record "progression" Data on Record "s5" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D1s6" true each
begin
put 100% of Record "progression" Data on Record "s6" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D1s7" true each
begin
put 100% of Record "progression" Data on Record "s7" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D1s8" true each
begin
put 100% of Record "progression" Data on Record "s8" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D1s9" true each
begin
put 100% of Record "progression" Data on Record "s9" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D1s10" true each
begin
put 100% of Record "progression" Data on Record "s10" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D1s11" true each
begin
put 100% of Record "progression" Data on Record "s11" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D1s12" true each
begin
put 100% of Record "progression" Data on Record "s12" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D2s1" true each
begin
put 100% of Record "progression" Data on Record "s1" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D2s2" true each
begin
put 100% of Record "progression" Data on Record "s2" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D2s3" true each
begin
put 100% of Record "progression" Data on Record "s3" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D2s4" true each
begin
put 100% of Record "progression" Data on Record "s4" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D2s9" true each
begin
put 100% of Record "progression" Data on Record "s9" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D2s10" true each
begin
put 100% of Record "progression" Data on Record "s10" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D2s11" true each
begin
put 100% of Record "progression" Data on Record "s11" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D2s12" true each
begin
put 100% of Record "progression" Data on Record "s12" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D3s1" true each
begin
put 100% of Record "progression" Data on Record "s1" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D3s2" true each
begin
put 100% of Record "progression" Data on Record "s2" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D3s3" true each
begin
put 100% of Record "progression" Data on Record "s3" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D3s4" true each
begin
put 100% of Record "progression" Data on Record "s4" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D3s5" true each
begin
put 100% of Record "progression" Data on Record "s5" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D3s6" true each
begin
put 100% of Record "progression" Data on Record "s6" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D3s7" true each
begin
put 100% of Record "progression" Data on Record "s7" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D3s8" true each
begin
put 100% of Record "progression" Data on Record "s8" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
If Record "progression" Data Index >
Record "progression" Data Count
Begin
Put 1 on Record "progression" Data Index
set flag "D1" false
set flag "D2" false
set flag "D3" false
set flag "D1s5" false
set flag "D1s6" false
set flag "D1s7" false
set flag "D1s8" false
set flag "D1s9" false
set flag "D1s10" false
set flag "D1s11" false
set flag "D1s12" false
set flag "D2s1" false
set flag "D2s2" false
set flag "D2s3" false
set flag "D2s4" false
set flag "D2s9" false
set flag "D2s10" false
set flag "D2s11" false
set flag "D2s12" false
set flag "D3s1" false
set flag "D3s2" false
set flag "D3s3" false
set flag "D3s4" false
set flag "D3s5" false
set flag "D3s6" false
set flag "D3s7" false
set flag "D3s8" false
clear Record "s1" Layout
clear Record "s2" Layout
clear Record "s3" Layout
clear Record "s4" Layout
clear Record "s5" Layout
clear Record "s6" Layout
clear Record "D1" Layout
clear Record "D2" Layout
clear Record "D3" Layout
End
end
END
OK Tested now *short-term* and in 40 Livesessions 5 games lost. That will be 35/40 wins= 87,5% winrate
I played with WG/SL +100/-300
Calculating wins/losses
losses: 5*300=1500
wins: 35*100=3500
TOTAL= +2000u
RX-code (WG/SL +100/-300)
system "Lucky 21"
//(copyright) ignatus 2019
method "main"
begin
while starting a new session
begin
//Set List[1,1,3,7,21,55,125,275]
Set List[1,1,2,5,12,25,55,120,250,525]
to Record "progression" Data
end
Copy List [Street(4-6),Street(7-9),street(10-12)] to Record "s1" Layout
Copy List [Street(1-3),street(7-9),street(10-12)] to Record "s2" Layout
Copy List [Street(4-6),Street(1-3),street(10-12)] to Record "s3" Layout
Copy List [Street(4-6),Street(7-9),Street(1-3)] to Record "s4" Layout
Copy List [Street(16-18),Street(19-21),Street(22-24)] to Record "s5" Layout
Copy List [Street(13-15),Street(19-21),Street(22-24)] to Record "s6" Layout
Copy List [Street(16-18),Street(13-15),Street(22-24)] to Record "s7" Layout
Copy List [Street(16-18),Street(19-21),Street(13-15)] to Record "s8" Layout
Copy List [Street(28-30),Street(31-33),Street(34-36)] to Record "s9" Layout
Copy List [Street(25-27),Street(31-33),Street(34-36)] to Record "s10" Layout
Copy List [Street(28-30),Street(25-27),Street(34-36)] to Record "s11" Layout
Copy List [Street(28-30),Street(31-33),Street(25-27)] to Record "s12" Layout
Copy List [Street(1-3),Street(4-6),Street(7-9),street(10-12)] to Record "D1" Layout
Copy List [street(13-15),street(16-18),Street(19-21),Street(22-24)] to Record "D2" Layout
Copy List [street(25-27),Street(28-30),Street(31-33),Street(34-36)] to Record "D3" Layout
while on each spin
begin
If Any street bet won each
begin
put 1 on Record "progression" Data Index
set flag "D1" false
set flag "D2" false
set flag "D3" false
set flag "D1s5" false
set flag "D1s6" false
set flag "D1s7" false
set flag "D1s8" false
set flag "D1s9" false
set flag "D1s10" false
set flag "D1s11" false
set flag "D1s12" false
set flag "D2s1" false
set flag "D2s2" false
set flag "D2s3" false
set flag "D2s4" false
set flag "D2s9" false
set flag "D2s10" false
set flag "D2s11" false
set flag "D2s12" false
set flag "D3s1" false
set flag "D3s2" false
set flag "D3s3" false
set flag "D3s4" false
set flag "D3s5" false
set flag "D3s6" false
set flag "D3s7" false
set flag "D3s8" false
clear Record "s1" Layout
clear Record "s2" Layout
clear Record "s3" Layout
clear Record "s4" Layout
clear Record "s5" Layout
clear Record "s6" Layout
clear Record "s7" Layout
clear Record "s8" Layout
clear Record "s9" Layout
clear Record "s10" Layout
clear Record "s11" Layout
clear Record "s12" Layout
clear Record "D1" Layout
clear Record "D2" Layout
clear Record "D3" Layout
end
if total bankroll >= 100 each time
begin
stop session
end
if total bankroll <= -300 each time
begin
stop session
end
{if total spin count >= 250 each time
begin
stop session
end
}
If any inside bet lost each
begin
add 1 on Record "progression" Data Index
end
IF 1st dozen has hit more 1 times each
begin
set flag "D1" true
end
IF 2nd dozen has hit more 1 times each
begin
set flag "D2" true
end
IF 3rd dozen has hit more 1 times each
begin
set flag "D3" true
end
IF flag "D1" true each
begin
if street(13-15) has hit each
begin
set flag "D1s5" true
put 100% of Record "progression" Data on Record "s5" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(16-18) has hit each
begin
set flag "D1s6" true
put 100% of Record "progression" Data on Record "s6" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(19-21) has hit each
begin
set flag "D1s7" true
put 100% of Record "progression" Data on Record "s7" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(22-24) has hit each
begin
set flag "D1s8" true
put 100% of Record "progression" Data on Record "s8" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(25-27) has hit each
begin
set flag "D1s9" true
put 100% of Record "progression" Data on Record "s9" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(28-30) has hit each
begin
set flag "D1s10" true
put 100% of Record "progression" Data on Record "s10" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(31-33) has hit each
begin
set flag "D1s11" true
put 100% of Record "progression" Data on Record "s11" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(34-36) has hit each
begin
set flag "D1s12" true
put 100% of Record "progression" Data on Record "s12" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
end
IF flag "D2" true each
begin
if street(1-3) has hit each
begin
set flag "D2s1" true
put 100% of Record "progression" Data on Record "s1" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(4-6) has hit each
begin
set flag "D2s2" true
put 100% of Record "progression" Data on Record "s2" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(7-9) has hit each
begin
set flag "D2s3" true
put 100% of Record "progression" Data on Record "s3" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(10-12) has hit each
begin
set flag "D2s4" true
put 100% of Record "progression" Data on Record "s4" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
if street(25-27) has hit each
begin
set flag "D2s9" true
put 100% of Record "progression" Data on Record "s9" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(28-30) has hit each
begin
set flag "D2s10" true
put 100% of Record "progression" Data on Record "s10" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(31-33) has hit each
begin
set flag "D2s11" true
put 100% of Record "progression" Data on Record "s11" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(34-36) has hit each
begin
set flag "D2s12" true
put 100% of Record "progression" Data on Record "s12" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
end
IF flag "D3" true each
begin
if street(1-3) has hit each
begin
set flag "D3s1" true
put 100% of Record "progression" Data on Record "s1" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(4-6) has hit each
begin
set flag "D3s2" true
put 100% of Record "progression" Data on Record "s2" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(7-9) has hit each
begin
set flag "D3s3" true
put 100% of Record "progression" Data on Record "s3" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(10-12) has hit each
begin
set flag "D3s4" true
put 100% of Record "progression" Data on Record "s4" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
if street(13-15) has hit each
begin
set flag "D3s5" true
put 100% of Record "progression" Data on Record "s5" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(16-18) has hit each
begin
set flag "D3s6" true
put 100% of Record "progression" Data on Record "s6" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(19-21) has hit each
begin
set flag "D3s7" true
put 100% of Record "progression" Data on Record "s7" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
if street(22-24) has hit each
begin
set flag "D3s8" true
put 100% of Record "progression" Data on Record "s8" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
end
IF flag "D1s5" true each
begin
put 100% of Record "progression" Data on Record "s5" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D1s6" true each
begin
put 100% of Record "progression" Data on Record "s6" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D1s7" true each
begin
put 100% of Record "progression" Data on Record "s7" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D1s8" true each
begin
put 100% of Record "progression" Data on Record "s8" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D1s9" true each
begin
put 100% of Record "progression" Data on Record "s9" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D1s10" true each
begin
put 100% of Record "progression" Data on Record "s10" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D1s11" true each
begin
put 100% of Record "progression" Data on Record "s11" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D1s12" true each
begin
put 100% of Record "progression" Data on Record "s12" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D2s1" true each
begin
put 100% of Record "progression" Data on Record "s1" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D2s2" true each
begin
put 100% of Record "progression" Data on Record "s2" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D2s3" true each
begin
put 100% of Record "progression" Data on Record "s3" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D2s4" true each
begin
put 100% of Record "progression" Data on Record "s4" Layout list
put 100% of Record "progression" Data on Record "D3" Layout list
end
IF flag "D2s9" true each
begin
put 100% of Record "progression" Data on Record "s9" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D2s10" true each
begin
put 100% of Record "progression" Data on Record "s10" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D2s11" true each
begin
put 100% of Record "progression" Data on Record "s11" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D2s12" true each
begin
put 100% of Record "progression" Data on Record "s12" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D3s1" true each
begin
put 100% of Record "progression" Data on Record "s1" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D3s2" true each
begin
put 100% of Record "progression" Data on Record "s2" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D3s3" true each
begin
put 100% of Record "progression" Data on Record "s3" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D3s4" true each
begin
put 100% of Record "progression" Data on Record "s4" Layout list
put 100% of Record "progression" Data on Record "D2" Layout list
end
IF flag "D3s5" true each
begin
put 100% of Record "progression" Data on Record "s5" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D3s6" true each
begin
put 100% of Record "progression" Data on Record "s6" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D3s7" true each
begin
put 100% of Record "progression" Data on Record "s7" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
IF flag "D3s8" true each
begin
put 100% of Record "progression" Data on Record "s8" Layout list
put 100% of Record "progression" Data on Record "D1" Layout list
end
If Record "progression" Data Index >
Record "progression" Data Count
Begin
Put 1 on Record "progression" Data Index
set flag "D1" false
set flag "D2" false
set flag "D3" false
set flag "D1s5" false
set flag "D1s6" false
set flag "D1s7" false
set flag "D1s8" false
set flag "D1s9" false
set flag "D1s10" false
set flag "D1s11" false
set flag "D1s12" false
set flag "D2s1" false
set flag "D2s2" false
set flag "D2s3" false
set flag "D2s4" false
set flag "D2s9" false
set flag "D2s10" false
set flag "D2s11" false
set flag "D2s12" false
set flag "D3s1" false
set flag "D3s2" false
set flag "D3s3" false
set flag "D3s4" false
set flag "D3s5" false
set flag "D3s6" false
set flag "D3s7" false
set flag "D3s8" false
clear Record "s1" Layout
clear Record "s2" Layout
clear Record "s3" Layout
clear Record "s4" Layout
clear Record "s5" Layout
clear Record "s6" Layout
clear Record "D1" Layout
clear Record "D2" Layout
clear Record "D3" Layout
End
end
END