# Copyright 1999 Arnica Resources
# All Rights Reserved
#
# Program Name : pha2segp.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.
#
# pha2segp.ak
# It takes as input a photon asc file of XY's
# and reformats the data to SEGP.
# This file can be used to update other map projects.

BEGIN {
     printf("H SeisX photon Ascii (PHA) locations to SEGP\n")
     printf("H\n")
     printf("H\n")
     printf("H\n")
printf("H23456789 123456789 123456789 123456789 123456789 123456789 123456\n")
printf("H<  LINE NAME   ><  SP  > < LAT   >< LONG   >< EAST >< NORTH><ELV>\n")
     i = 0
     while (i < 23 )
     { getline; ++i }
     }
     {
     if ( substr($0,1,1) == "\"" ) split($0,Line,"\"")
     if ( NF == 3) printf(" %-16s %7s %27.0f%8.0f\n",Line[2],$1,$2*10,$3*10)
     }
END {}