2435 K=VAL(A$) : KS=0 : IF K<0 THEN KS=1 : K=-K