b=1 a=0 c=1 d=1 e=1 f=-1 if :wc and :ws==5 then goto2 else goto1 end if:wc==0 or :ws!=5 thengoto1else :ra1=a :ra3=a :ra5=a :ra7=a end a+=(b==1)*c a-=(b==0)*d if a>e then b=0 end if a