:w1=:gd*((:r4+:r5)<2000) :w2=:gd*((:r1+:r2+:r3)<3000) goto1