"BP_SS_getsrate - gets spinning rate and updates the probefile (Probesrate)"

$dest=curexp+'/stat'
shell('showstat > ',$dest):$dummy

lookup('file',$dest,'currently', 'at:','read'):$masrate,$ret 
if $ret then
   format($masrate,5,0):srate
endif
srate=trunc(srate*10000)/10000
write('line3','MAS Rate = %5.0f Hz',srate)
rm($dest)
$srate='' format(srate,5,0):$srate 
BPsetparams('srate',$srate,'Probe')
return(srate)
