# Copyright 1999 Arnica Resources
# All Rights Reserved
#
# Program Name : move.ak
# Author       : Eric Keyser
# Email        : gekeyser@home.com
# Date         : August 11, 1999
#
#move.ak
#awk to rename a group of seisx lines
BEGIN {}
{split($1,Line,".")
printf("mv %s %s\n",$1, Line[1])}
END {}