3525 GOSUB 1865 : SER1=SER