4021 FOR M=1 TO L : VY(M)=1 : NEXT M