:w6=:gd*((:l4+:l5)<2000) :w5=:gd*((:l1+:l2+:l3)<3000) goto1