3810 JB=VAL(A$)