/* Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved. */
/* formatb APL2 V1.0.0 *************************************************
* Called from form if rite is character.  An exact copy is returned.   *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb formatb(left,rite)
Aplcb left,rite;
{
	Chrcopy; Errstop; Getcb; Intcopy;
	int *ip;
	char *cp;
	Aplcb out;

	if (left != NULL)
		return(errstop(14,left,rite,NULL)); /* bad character */
	out=getcb(NULL,rite->aplcount,APLCHAR+APLTEMP,rite->aplrank,NULL);
	ip=intcopy(out->apldim,rite->apldim,rite->aplrank,1);
	cp=chrcopy(out->aplptr.aplchar,rite->aplptr.aplchar,out->aplcount,1);
	return(errstop(0,left,rite,out));
}