# 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