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

	ExeCtO()

	This function executes a control-O command.

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

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

EXTERN	BYTE	CmdMod;		/* command modifiers flags for @, :, etc. */
EXTERN	BYTE	Radix;		/* TECO's current radix, 2-32 */


DEFAULT ExeCtO()		/* execute a ^O (control-O) command */
{
#if DEBUGGING
DbgInd+=2;if(DbgLvl>=1){DbgMsg();DbgDBf("ExeCtO: called.\015\012");DbgROf();}
#endif
	Radix = 8;			/* set radix to octal */
	CmdMod = '\0';			/* clear modifiers flags */
#if DEBUGGING
if(DbgLvl>=1)
{DbgMsg();DbgDBf("ExeCtO: returning SUCCESS.\015\012");DbgROf();}DbgInd-=2;
#endif
	return(SUCCESS);
}