k=1000
a=:gd>0 :w1=(:r1<k)*a :w2=(:r2<k)*a :w3=(:r4<k)*a :w4=(:r4<k)*a goto2