sioseis << eof
procs diskin tx2fk fkmigr fk2tx filter mute diskoa agc plot end
diskin
   ipath little.stack.new end
end
tx2fk
   nxpad 50  end
end
diskoa
   opath little.fkmigr.new end
end
mute
 fno 21 ttp 1 .021 end
 fno 81 ttp 1 .025 end
 fno 121 ttp 1 .011 end
 fno 141 ttp 1 0 end
 fno 231 ttp 1 0 end
 fno 271 ttp 1 .01 end
 fno 291 ttp 1 .015 end
 fno 321 ttp 1 .02 end
end
fkmigr
   vel 60 deltax 2.5 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 .12 clip .12 
!    ftag 1 taginc 10 ann rpno 
    ftag 25 taginc 40 ann fanno fanno -4 anninc 1 
   srpath sunfil.jah end 
 end 
 end 
eof
xloadimage -r 90 sunfil.jah &
suntops -w 8 -h 10.5 < sunfil.jah > psfil