Go to the list of seismic processes.      Go to SIOSEIS introduction.
sioseis << eof
procs sort diskin agc plot end
diskin
   spath sfile
    ipath little.fkmigr.new end
end
prout
    fno 0 lno 999999 ftr 0 ltr 9999 end
end
sort
  ipath little.fkmigr.new opath sfile
  lkey1 6 rev1 yes end
end
agc 
    winlen .01 end 
 end 
filter
   pass 100 800 ftype 0 dbdrop 48 end
end
 plot 
  wiggle 0
    nsecs .12 tlines .01 .05 .1 stime 0 
    nibs 300 trpin 20 vscale 26.6666 def .14 clip .14
!    ftag 1 taginc 10 ann rpno 
    ftag 5 taginc 40 ann fanno fanno 4 anninc -1 
   srpath sunfil end 
 end 
 end 
eof
xloadimage -r 90 sunfil &