1290 CA=0 : IF NXC>0 THEN GA=GA+1 : PY=PY+TJ(M,0) : CA=TJ(M,0)/NXC