:w3=:gd*((:r4+:r5)<2000) :w4=:gd*((:r3+:r6+:r7)<3000) goto1