2925 FOR L=1 TO NVI