sioseis << eof
procs diskin filter mute nmo shift avenor stack diskoa agc plot end 
 diskin 
   set 0 .12 ipath little.rps.new  end 
 end 
mute
    ttp 1 .01 end
end
avenor
   sets .05 .1 end
end
 nmo 
    fno 111 vtp 6000 0  end
!    fno 111 vtp 10000 0 10000 .03 end
!    fno 175 vtp 5000 0 10000 .03 end
!    fno 240 vtp 10000 0 10000 .03 end
 end 
 prout 
    fno 0 lno 9999 ftr 0 ltr 999 end 
 end 
 filter 
    ftype 0 pass 100 800 dbdrop 48 end 
 end 
 shift 
    datume 600 datumv 60000 end # elevation is in mm 
 end 
 diskoa 
    opath little.stack.new end 
 end 
 agc 
    winlen .01 end 
 end 
 plot 
  wiggle 0
    nsecs .10 tlines .01 .05 .1 stime 0 
    nibs 300 trpin 20 vscale 26.6666 def .04 clip .05 
!    ftag 1 taginc 10 ann rpno 
    ftag 25 taginc 40 ann fanno fanno -4 anninc 1 
   srpath sunfil end 
 end 
 end 
eof
xloadimage -r 90 sunfil &
#suntops -w 8 -h 10.5 < sunfil > psfil