17 lines
656 B
C
17 lines
656 B
C
/*****************************************************************************
|
|
ExeCtO()
|
|
This function executes a ^O (control-O or caret-O) command. This
|
|
command sets the radix to octal.
|
|
*****************************************************************************/
|
|
#include "zport.h" /* define portability identifiers */
|
|
#include "tecoc.h" /* define general identifiers */
|
|
#include "defext.h" /* define external global variables */
|
|
DEFAULT ExeCtO() /* execute a ^O (control-O) command */
|
|
{
|
|
DBGFEN(1,"ExeCtO",NULL);
|
|
Radix = 8; /* set radix to octal */
|
|
CmdMod = '\0'; /* clear modifiers flags */
|
|
DBGFEX(1,DbgFNm,"SUCCESS");
|
|
return SUCCESS;
|
|
}
|