7 lines
372 B
Plaintext
7 lines
372 B
Plaintext
a=1000 if :direction==0 and :rc==0 and :cas then goto2else goto1end
|
|
:acr=0 :abl=1 b=(:r5+:2)/a if b<2 then :aup=1 else :aup=0 end
|
|
c=(:r1+:4)/a if c<2 then :adn=1 else :adn=0 end
|
|
d=(:r3+:1+:r4+:r2)/a if d<4 then :art=1 else :art=0 end
|
|
e=(:r7+:3+:r6+:r8)/a if e<4 then :alt=1 else :alt=0 end
|
|
if:cas and :direction==0 then goto2else goto7end
|
|
:aup=0 :adn=0 :art=0 :alt=0 goto1 |