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