/*****************************************************************************

	SkpCtA()

	This function skips a control-A command.

*****************************************************************************/

#include "ZPort.h"		/* define portability identifiers */
#include "DefChars.h"		/* define identifiers for characters */
#include "DefTeco.h"		/* define general identifiers */

extern	DEFAULT	FindES();	/* find end of string */

EXTERN	BYTE	CmdMod;		/* command modifiers flags for @, :, etc. */
EXTERN	BOOLEAN	TraceM;		/* trace mode flag */


DEFAULT SkpCtA()		/* skip control-A command */
{
	LOCAL	BOOLEAN	TTrace;			/* temp: holds trace flag */

	TTrace = TraceM;			/* save trace mode flag */
	TraceM = NO;				/* keep FindES from tracing */
	if (FindES(CTRL_A) == FAILURE)		/* find end of string */
		{
		TraceM = TTrace;		/* restore trace mode flag */
		return(FAILURE);
		}

	TraceM = TTrace;			/* restore trace mode flag */
	CmdMod = '\0';				/* clear modifiers flags */
	return(SUCCESS);
}