:w8=:gd*((:l4+:l5)<2000) :w7=:gd*((:l3+:l6+:l7)<3000) goto1