sioseis << eof
procs diskin stk agc plot end
diskin
!   ipath /home/archive/mcs/1999/odp/segy-cmp/line23.g.3116.4615
   ipath  line23.g.3116.3120
   end
end
agc
   winlen .5 end
end
stk 
   xxt 0 0 4.8 0 2000 4.8 0 3000 5.2 2000 6000 8. 3000 9000 9 end
end 
plot
   ann range taginc 2
   nibs 75 def .1 vscale 2.5 nsecs 4 trpin 2
   srpath sunfil end
end
end
eof
xloadimage -r 90 sunfil &