#! /bin/csh -f
set SHOTNO = 1
while ( $SHOTNO <= 38 )
sioseis << eof
procs diskin agc plot end
agc
   winlen .02 end
end
diskin
   ipath little.segy fno $SHOTNO lno $SHOTNO end
end
plot
   scalar 3.E-06   # little hammer
   nsecs .12 tlines .01 .05 .1 stime 0
   nibs 75 trpin 3 vscale 53.3333 def .15
   ftag 1 taginc 1 ann sh&tr
  srpath sunfil end
end
prout
   fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
suntops -w 8 -h 10.5 < sunfil > psfil
lpr -Pmumbo psfil
#xloadimage -r 90 sunfil
@ SHOTNO = $SHOTNO + 1
end