sioseis << eof
procs diskin despike prout tx2fk fkfilt fkmigr fk2tx diskoa prout end
diskin
  fno 21700 lno 23600  # read 1900 traces
  ipath /orizaba1/mcs.dir/stacked/stack.line3 end
end
diskoa
    opath line3.fkmigr.1 end
end
fkfilt
    dipcut -6 6 dippas -5 5 end
end
filter 
    pass 5 50 ftype 0 dbdrop 24 end 
end
tx2fk
   nxpad 20  end   # x pad 20 traces plus (2048-(1900+20+20))
end
despike
    fac 5 end
end
fkmigr
   vel 1500 deltax 12.5 end
end
fk2tx
      end
end
prout
     fno 0 lno 999999 noinc 20 ftr 0 ltr 9999 end
end
end