6665 XA=VC(M,1) : IF M=0 THEN XA=-1E+10