SIOSEIS script to plot a shot on the screen

sioseis << eof
procs diskin agc plot end
diskin
   set 4 7
    ipath /net/heezen/ldata/realtime/shots/latest.shot end
end
agc
    winlen .5 end
end
plot
   nibs 75 vscale 6.66667 nsecs 2.5 trpin 10 ann sh&tr
   def .02 scalar 9.0E-07
   srpath sunfil end
end
end
eof
xloadimage -r 90 sunfil &