:rd=:gd*((:r6+:r7+:c7+:c8+:c9+:l6+:l7)<7000) goto1