2730 XP(K)=VAL(A$)