2555 GOSUB 1950 : ER=Y-YE : ERN=ER/(DER*2)