/* Copyright (C) 1996 by Thomas Glen Smith.	All Rights Reserved. */
/* formbfw APL2 V1.0.0 *************************************************
* Called by formbfv to handle either decorator or literal.			 *
***********************************************************************/
#define INCLUDES STDIO+STRING+FORM
#include "includes.h"
char formbfw(ch,fct,fdi,fldptr,fldint)
char	ch,			/* Current char(decorator) from format field. */
	*fct,		/* Ptr to current char in format field. */
	**fldptr;		/* Ptr to array of ptrs into format control field. */
int	*fldint;		/* Ptr to array describing format control field. */
int	fdi;			/* # digits left to process left of d.p. in fcf. */
{
	if (fdi) /* Left side of decimal point? */
		if (fct < FIRST_DIGIT(fldptr) /* Left decorator? */
			&& !(FCCFLAGS(fldint) & FC4L) /* Asis? */)
			ch = ' '; /* Print blank for now. */
		else;
	else /* Right side of decimal point. */
		if (fct > LAST_DIGIT(fldptr) /* Right decorator? */
			&& !(FCCFLAGS(fldint) & FC4R) /* Asis? */)
			ch = ' '; /* Print blank for now. */
	return(ch); /* put decorator char */
}