3585 GOSUB 1865 : SER3=SER