#include <stdio.h>

short wordin(inf,rvptr)
FILE *inf;
short int *rvptr;
{
    short int retval;
    short int ateof=0;
    short int c;

    if(inf == NULL || (c=getc(inf))==EOF || (retval = c<<8, c=getc(inf))==EOF) {
	retval = -1L;
	ateof = 1;
    } else {
	retval |= c;
    }
    *rvptr = retval;
    return ateof;
}

long uswordin(inf,rvptr)
FILE *inf;
long int *rvptr;
{
    int retval;
    int ateof=0;
    int c;

    if(inf == NULL || (c=getc(inf))==EOF || (retval = c<<8, c=getc(inf))==EOF) {
	retval = -1L;
	ateof = 1;
    } else {
	retval |= c;
    }
    *rvptr = retval;
    return ateof;
}
 
short wordout(opf,rvptr)
FILE *opf;
short int *rvptr;
{   short int retval;
    short int ateof=0;
    short int c;

    c = (*rvptr>>8)&0xff;
    if (opf != NULL) {
       putc(c,opf);
       c = *rvptr&0xff;
       putc(c,opf);
       retval = 0L; }
    else
       retval = -1L;
    return retval;
}

short byteout(opf,rvptr)
FILE *opf;
short int *rvptr;
{   short int retval;
    short int ateof=0;
    short int c;

    c = *rvptr&0xff;
    if (opf != NULL) {
       putc(c,opf);
       retval = 0L; }
    else
       retval = -1L;
    return retval;
}

strcat(s,t)
char s[],t[];
{
   int i,j;
   
   i = j = 0;
   while (s[i] != '\0')  i++;
   while ((s[i++] = t[j++]) != '\0');
}

strcpy(s,t)
char s[],t[];
{
   int i;
  
   i = 0;
   while ((s[i] = t[i]) != '\0') i++;
}