name freqsav 'Prodcedures to Save and Restore Current FREQ and SMPL' ;
?
?  These procedures can be used to save and restore
?  the current FREQ and SMPL.
?  TSP 4.3 (April 1995)
?  Clint Cummins
?
proc smplsave oldfreq oldsmpl;
  copy @smpl oldsmpl;
  smpl 80:1 81:1;    ? This is just a dummy smpl to create a smpl
                     ? of length FREQ+1 (see the next statement). 
  set oldfreq = @smpl(2) - @smpl(1);
  smpl oldsmpl;
endproc;
proc smplrest oldfreq oldsmpl;
  if oldfreq=1;  then;  freq a;   ? or it could be  freq N;
  if oldfreq=4;  then;  freq q;
  if oldfreq=12;  then;  freq m;
  smpl oldsmpl;
endproc;