4327 FOR I=1 TO NFM : A(I,0)=0 : NEXT I