2315 FOR M=1 TO 25 : VY(M)=0 : NEXT M