# read the SEG-Y tape and put in disk file test.line.1 sioseis << eof procs input diskoa prout end input fis 1 lis 214 iunit 1 set 5 9 decimf 2 end end prout fno 0 lno 999999 ftr 1 ltr 1 end end diskoa opath test.line.1 end end end eof