/* Copyright (C) 1996 by Thomas Glen Smith.  All Rights Reserved. */
/* formotb APL2 V1.0.0 *************************************************
* Called by formato when the format char is not '0' thru '9'.          *
***********************************************************************/
#define INCLUDES STRING+FORM
#include "includes.h"
void formotb(cc,ch,bca,bia,four_switch,seven_switch,fcc_local)
char	*cc;			/* Pointer to current format character. */
char	ch;			/* Copy of current format character. */
char **bca;		/* Array of character pointers. */
int	*bia;		/* Array of integers */
int	*four_switch;	/* 1 if '4' format character was seen. */
int	*seven_switch;	/* 1 if '7' format character was seen. */
int	*fcc_local;	/* Format Control work area. */
{

	switch(ch) {
		case '.':
			if (Decimal_Point == NULL)
				Decimal_Point = cc; /* d.p. */
			break;
		case ',':
			break;
		default:
			if (*seven_switch && (E_Format_Symbol == NULL))
				E_Format_Symbol = cc; /* save symbol */
			break;
	} /* end switch */
}