#!/bin/sh
lincat $1 | cut -c1-30 | sed "s/^/'/" | sed "s/_____*/'/" > segy.linelist
echo ".diskin time 0 linein " > segy.head
echo "version 0001 proclev mig16 " > segy.mid
echo ".segyout medium tape norewind" >> segy.mid
echo "project $1 shotid 17 -3 sampfm -2" >> segy.mid
echo "stored 9 32 21 32 comment" >> segy.mid
echo "'Transcribed from SeisWorks project'" >> segy.mid
echo "'by GeoCom Services Australia Pty Ltd'" >> segy.mid
echo "'contact : www.geocom.com.au'" >> segy.mid
echo "'Trace in position 21, 32 bit integer'" >> segy.mid
echo "'Shot Point in position 17, 32 bit IEEE FP'" >> segy.mid
echo "'X location in position 73, 32 bit IEEE FP'" >> segy.mid
echo "'Y location in position 77, 32 bit IEEE FP'" >> segy.mid
echo "' '" >> segy.mid
echo "'Line Name :-'" >> segy.mid
split -1 segy.linelist ssplit
ls ssplit?? > segy.filelist
paste -d" " segy.filelist segy.filelist | sed "s/ / segy.mid /" | sed "s/^/cat segy.head /" | sed "s/$/ >/" > segy.int
paste -d" " segy.int segy.filelist | sed "s/$/.pcf/" > segy.catjob
sh segy.catjob
echo "1" > segy.reply
echo "r" >> segy.reply
LGC_MASTER=`plist | grep $1 | awk '{print $5}'`
export LGC_MASTER
sed "s/^/bcm2d /" segy.filelist | sed "s/$/ < segy.reply /" > segy.bcmjobs
sh segy.bcmjobs