4540 IF KA>0 THEN VY(KA)=M : GOTO 4565