2285 GOSUB 1950 : ER=Y-YE