1995 FOR K=1 TO NVI : YE=YE+AA(K)/XP(K) : NEXT K : RETURN