sioseis << eof
procs diskin plot end
diskin
   ipath data.danl end
end
plot
   ann shotno
    nibs 75 vscale 2. trpin 20 nsecs 3 def .03 srpath sunfil end
end
end
eof
xv sunfil

sioseis << eof
procs diskin psmigr plot end
diskin
  decimf 2 ipath data.danl end
end
psmigr
    fmin 0  fmax 14 ref 2
    deltax 50 deltaz 30 ez 6000
    fno 61 vdp 2000 800 3000 1150 3000 2950 5000 3150 end
    fno 70 vdp 2000 1800 3000 2150 3000 2950 5000 3150 end
    fno 120 vdp 2000 1800 3000 2150 3000 2950 5000 3150 end
    fno 161 vdp 2000 800 3000 1150 3000 2950 5000 3150 end
end
plot
  ann shotno
    nibs 75 vscale 1.25 trpin 20 nsecs 6 def .04 srpath sunfil end
end
end
xv sunfil