# Copyright 1999 Arnica Resources
# All Rights Reserved
#
# Program Name : convert.ak
# Author       : Eric Keyser
# Email        : gekeyser@home.com
# Date         : August 11, 1999
#
# You are free to copy and distribute this awk. This permission notice
# must be preserved complete on all complete or partial copies.
#
# convert.ak
# this awk generates a batch file for execution
# It takes as input a list of lines, processed them
# and writes out a new data set using the name up to the first dot.

     BEGIN { }
     {
     printf("echo %s\n",$1)
     printf("C:/Paradigm/SeisX34/bin/convert \\\n")
     printf("-system C:/Paradigm/SeisX34/seisx_support \\\n")
     printf("-if C:/Paradigm/SeisX34/seisx_support/segy_v3.fmt \\\n")
#-ss Path to appropriate static shift file
     printf("-ss D:/Projects/Krasna \\\n")
     split($1,Line,".")
#-od Output name
     printf("-od shift/%s.STK.4.sgy \\\n",Line[1])
#input file name
     printf("%s\n",$1)
     }
     END {}