2675 FOR S=1 TO 31 : VZ(S)=0 : NEXT S