/* Copyright (C) 1996 by Thomas Glen Smith.	All Rights Reserved. */
/* formbfx APL2 V1.0.0 *************************************************
* Called by formbfv to handle either decorator or literal.			 *
***********************************************************************/
#define INCLUDES STDIO+STRING+FORM
#include "includes.h"
char formbfx(fldptr,fct,pofd,oq)
char **fldptr,*fct,**pofd,*oq;
{
	char ch,*pz;

	ch = ' ';
	pz = LEFT_PAD_ZEROS(fldptr);
	if (NULL != pz)
		if (pz <= fct) {
			ch = '0';
			if (*pofd == NULL)
				*pofd = oq; /* A(1st out dig) */
		}
	return(ch); /* put decorator char */
}