function dsply_event(x,fs,bord1,bord2,flo,fhi,id,NFFT);
          % b=specgram(x,NFFT,fs,wts,novlp);
    specgram(x,NFFT,fs);
    ns=length(x);
    title(id)
    hold on
    xp=[bord1/fs (ns-bord2)/fs (ns-bord2)/fs bord1/fs bord1/fs];
    yp=[flo flo fhi fhi flo];
    plot(xp,yp,'b','linewidth',2);
    hold off
return

