sioseis << eof
procs diskin filter gains plot prout end
diskin
    fno 245 lno 1839
     ipath fdm.line5 end
end
filter
   ftype 0 dbdrop 48 pass 20 70 end
end
plot
   wiggle 0 stime 3 tlines .5 1.
   srpath sunfil
    nsecs 2  ann gmtint anninc 5
   nibs 2859 trpin 300 vscale 1.6667 def .06 clip .01 end
end
prout
   fno 0 lno 99999 ftr 0 ltr 9999 noinc 100 end
end
gains
   type 3 alpha 2.75 end
end
end
eof
xloadimage -r 90 sunfil &