:GenRate=(10000-:Battery)/85 goto1