# Copyright 1999 Arnica Resources
# All Rights Reserved
#
# Program Name : Batchit.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.
#
# 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("# spt_process batchit.job \n")
         }
     {
     printf("$INPUT\n")
     # printf("%s\n",$1)
     printf("SYSTEM_PATH C:/Paradigm/SeisX34/seisx_support\n")
     printf("FILE %s\n",$1)
     printf("FMT_FILE C:/Paradigm/SeisX34/seisx_support/segy_v3.fmt\n")
     printf("#END_PARMS\n")
     printf("$FILTER\n")
     printf("1.500000e+01 2.000000e+01 5.500000e+01 7.000000e+01\n")
     printf("#END_PARMS\n")
     printf("$RESAMPLE\n")
     printf("4.000000e+00\n")
     printf("#END_PARMS\n")
     printf("$AGC\n")
     printf("5.000000e+02 5.000000e+03\n")
     printf("#END_PARMS\n")
     printf("$OUTPUT\n")
     split($1,Line,".")
     printf("FILE Seismic/%s.STK.3.sgy\n",Line[1])
     printf("FMT_FILE\n")
     printf("DESC 4ms,15-20-55-70,500agc,5000rms\n")
     printf("FORMAT 16_BIT_INT\n")
     printf("#END_PARMS\n")
     printf("#PROCESS\n")
     }
     END {}