#include <ctype.h>
#define TRUE 1
#define FALSE 0

char *getwrd(bp)
char **bp;
{
   char *retval;
   
   while (**bp == ' ') (*bp)++;
   retval = *bp;
   while (**bp && (**bp != ' ') ) (*bp)++;
   return(retval);
}


numeric(cp)
char *cp;
{
   int rv = FALSE;
   char c;
   
   while(*(cp) == ' ') cp++;

   while (c = *(cp++)) {
      if (isdigit(c)||(toupper(c)=='E')||(c=='-')||(c=='+')||(c=='.'))
         rv = TRUE;
      else if ( c==' ')
         return(rv);
      else
         return(FALSE);
   }
   return(rv);
}


void trch(oldch,newch,buf)
char oldch, newch, *buf;
{
   while (*buf) {
      if (*buf == oldch) *buf = newch;
      buf++;
   }
}