2690 CB=INT((VY(L)-XMI)*30/(XMA-XMI))+1