echo on
qdp off
*do file wild BDM.z BRIB.z CVS.z JRSC.z POTR.z SAO.z WENL.z BKS.z BRK.z FARB.z MHC.z PACP.z
do file wild ???.z ????.z 
 fileid type name
 setbb sta (BEFORE ".z" $file )
 r %sta%.[rtz]
 synch
 ch f UNDEFINED
 wh over
 xlim o -10 o 300
 sc pwd
*hp bu n 2 p 2 c .5
*p
 message "pick f-q on the one side of the cut window, or"
 message "just digit q if waveforms do not need to be cut..."
 ppk p 3 m on bells off 
 set bells off
 wh over
 setbb resp1 &1,f&
 if %resp1% ne UNDEFINED
  message "pick f-q on the other side of the cut window..."
  message "file will be trashed if the cut window is shorter than 10 s..."
  ppk p 3 m on bells off
  set bells off
  wh over
  setbb resp2 &1,f&
  if %resp2% gt %resp1%
   setbb dif ( %resp2% - %resp1% )
   getbb dif
   if %dif% ge 10.0
    cut %resp1% %resp2%
    r %sta%.[rtz]
    cut off
    ch lovrok true
    rtr
    taper
    w over
*   hp bu n 2 p 2 c .5
*   p
*   pause 200
   endif
  endif 
  if %resp2% le %resp1%
   setbb dif ( %resp1% - %resp2% )
   getbb dif
   if %dif% ge 10.0
    cut %resp2% %resp1%
    r %sta%.[rtz]
    cut off
    ch lovrok true
    rtr
    taper
    w over
*   hp bu n 2 p 2 c .5
*   p
*   pause 200
   endif
  endif
  if %dif% lt 10.0
   sc mv %sta%.[rtz] Trash/
  endif
  set bells off
  cut off
  xlim off
 endif
enddo