% Script PlayCalls

  Fs = 32678;
  ButtonDuration = .02;
  a = .02; b = .03;
  noiseVal = .03;
  for k=1:5
      
%    Generate a random 7-digit number...
     TeleNum = floor(10*rand(1,7));
     v = MakeCall(TeleNum,ButtonDuration,a,b,noiseVal);
     
%    Plot the call...
     t = linspace(0,length(v)/Fs,length(v));
     L = length(v);
     plot(t,v)
     axis([0 t(L) -1.2 1.2])
     title([ 'Tel.: ' sprintf(' %1d',TeleNum)],'Fontsize',14)
     set(gcf,'position',[100,400,1000,200])
     shg
%    Play the call...,
     sound(v,Fs)
     pause(2)
  end








