SIOSEIS script to PLOT the instantaneous amplitude traces with FILTER and AGC.

sioseis << eof
procs diskin filter agc plot end
diskin
   fno 469 lno 1475 allno no set .190 .240
    ipath L001_001.anal end
end
 agc
    winlen .01 end
 end
filter
   fno 1 lno 99999 pass 500 2000 ftype 0 end
end
prout
   fno 1 lno 99999 ftr 1 ltr 99999 end
end
plot
   wiggle 0  ann gmtint anninc 1
   trpin 150 def .008  tlines .001
   srpath sunfil
  nibs 2859 nsecs .04 vscale 75.75758
   end
end
end
eof