2625 M=1 : GOSUB 3240