# Copyright 1999 Arnica Resources
# All Rights Reserved
#
# Program Name : ex2sx.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.
#
# ex2sx.ak
# {Program to read excalibur x y z file to SeisX xyz.asc
# file and build an asc file for SeisX}

BEGIN {
       printf("# Photon Systems ASCII Format v1.0\n")
       printf("\n")
       printf("struct DATA_SET[ N ] {\n")
       printf("X\n")
       printf("Y\n")
       printf("Z\n")
       printf("}\n")
       printf("DATA_SET {\n")
       }
{
     printf(" %12.0f %12.0f %12.0f\n",$4,$5,$1) #X, Y, Z
}

END { printf("}\n") }