sioseis script to extract every 100th shot from a disk file.
sioseis << eof
procs diskin diskoa END
diskin
set 3 6
ipath /archive/mcs/1997/nbp9702/tape39 fno 2500 lno 4000 noinc 100 END
END
prout
fno 0 lno 99999 ftr 0 ltr 9999 END
END
diskoa
opath tape39by100 end
end
end