#! /bin/sh
#*******************************************************************************
#                                                                              *
#                                   Viewmol                                    *
#                                                                              *
#                                W R I T E T M                                 *
#                                                                              *
#                 Copyright (c) Joerg-R. Hill, December 1997                   *
#                                                                              *
#*******************************************************************************
#
# $Id: writetm,v 1.1 1998/01/26 00:35:39 jrh Exp jrh $
# $Log: writetm,v $
# Revision 1.1  1998/01/26 00:35:39  jrh
# Initial revision
#
#

case `uname -s` in
  IRIX*) AWK=nawk
	   ;;
  *)     AWK=awk
	   ;;
esac

cat | $AWK 'BEGIN {printf("$coord\n");}
            /^\$/ {readcoord=0;}
		      {if (readcoord == 1) print $0;}
            /^\$coord/  {readcoord=1;}
	      END         {printf("$end\n");}' > $1
