#  read and plot the FK on the NovaJet
sioseis << eof
procs diskin prout filter agc plot end
diskin
  fno  25450 lno 27375 ipath line4a.fkmigr.4 end
  fno  27376 lno 29250 ipath line4a.fkmigr.5 end
  fno  29251 lno 31150 ipath line4a.fkmigr.6 end
  fno  31151 lno 33075 ipath line4a.fkmigr.7 end
  fno  33076 lno 36506 ipath line4a.fkmigr.8 end
end
agc
  winlen 1 end
end
prout
  fno 0 lno 9999999 noinc 20 ftr 0 ltr 9999 end
end
filter
  pass 5 40 ftype 0 dbdrop 24 end
end
plot
  dir ltr
  scalar 8.1e-08 nsecs 8 ann gmtint anninc 30 tlines .5 1
  nibs 2859 trpin 300 vscale 1.6667 def .008 wiggle 0 clip .008
  opath siofil end
end
end
eof

#    convert the sio rasterfile to an HP-RTL file
sio2hp << eof2
ipath siofil opath hpfil end
eof2