:GenRate=:MinEPS*:Min_Gen+(10000-:Battery)/85 goto1