

echo on

 setbb cut1 800
 setbb cut2 1000
 evaluate to cut1 800 - 50
 evaluate to cut2 1000 + 50
    cut %cut1 %cut2
    evaluate to totlen %cut2 - %cut1
    evaluate to tprfrac 50 / %totlen

     r f25.sac
     taper w %tprfrac
     w temp2
    cuterr fillz
    cut 0 2000
    r temp2
    cuterr u
     w f25.cut800t1000
echo off

sc rm  temp?



