k=1000
a=:gd>0 :w5=(:r5<k)*a :w6=(:r6<k)*a :w7=(:r7<k)*a :w8=(:r8<k)*a goto2