/************************************************************
 *          IBM PC "C" Bulletin Board                       *
 *          Tulsa, OK  918-664-8737                         *
 ************************************************************/






rename(old, new)
char *old, *new;
{
	char buff[60];

	fcbinit(new,buff);
	bdos(19,buff);
	fcbinit(old,buff);
	fcbinit(new,buff+16);
	bdos(23,buff);
}