# FK migration
sioseis << eof
procs diskin tx2fk fkmigr fk2tx diskoa filter agc plot end
diskin
   fno 994 lno 1973   # < 1024
   ipath stack.line.1 end
end
diskoa
   opath fkmigr.line.1 end
end
tx2fk
   nxpad 20  end
end
fkmigr
   vel 1500 deltax 12.5 end
end
fk2tx
      end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
agc
   winlen .5 end
end
plot
  wiggle 0
   srpath sunfil
   nsecs 4  ann gmtint anninc 5
   nibs 2847 trpin 300 vscale 2.5 def .003 end
end
end
eof