/*Copyright (C) 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* formath APL2 V1.0.0 *************************************************
* Called from formatg to obtain the address of Lfc.                    *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
char *formaty()
{
	Treesrch;
	extern char quadfc[];
	Aplcb fc;
	char *fch=NULL;

	fc = treesrch(quadfc); /* Find Format Control, Lfc */
	if (fc != NULL)
		if (fc->aplflags & APLCHAR && fc->aplcount >= 4)
			fch = fc->aplptr.aplchar;
	return(fch);
}