3545 GOSUB 1865 : SER2=SER