sioseis << eof
procs sort diskin weight filter smute agc plot end
diskin
   spath sfile
   ipath shot29.segy end
end
sort
  ipath shot29.segy opath sfile
  lkey1 4 rev1 yes end
end
prout
    fno 0 lno 99999 ftr 1 ltr 999 end
end
agc
   winlen .01 end
end
weight
      fno 29 lno 29 twp 11 0 end
end
smute
   interp no
    fno 29 tsets  12 -0.000178 0.037244
 16 -0.000089 0.03507
 17 -0.000267 0.034400
 18 -0.000089 0.03352
 19 -0.000356 0.033422
 20 -0.000089 0.03216
 21 -0.000089 0.03167
 22 -0.000178 0.03069
 23 -0.000267 0.030133
 24 -0.000444 0.02931
 25 -0.000444 0.02905
 26 -0.000267 0.029422
 27 -0.000267 0.04504
 28 0.000000 0.044801
 31 -0.000356 0.042844
 32 -0.000089 0.04255 end
end
filter
!  ftype 0 pass 100 800  dbdrop 48 end
  ftype 0 pass 100 800  end
end
plot
   scalar 0
   nsecs .1 tlines .01 .05 stime 0
   nibs 75 trpin 6 vscale 150 def .1 clip 1
!   nsecs .07 nibs 75 trpin 3 vscale 150 def .1 clip 1
   ftag 1 taginc 1 ann sh&tr fspace 24 nspace 1
  srpath sunfil
   end
end
end
eof
xloadimage -r 90 sunfil &