3 lines
203 B
Plaintext
3 lines
203 B
Plaintext
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<f then b=1 end goto2 |